用不同的圖層類型手動爲ggplot添加圖例

Question

請考慮下面我使用下面的代碼創建的圖表。我想添加一個可能會說「中位數」和「90％置信區間」的圖例。我已經看到這個問題部分解決了here（感謝羅蘭），但是當我嘗試在我自己的代碼中實現它時，圖例看起來很傻，因爲中間線沒有填充色帶。有什麼方法可以讓傳說看起來明智嗎？它只顯示中線的一條線和功能區的填充框。

library(ggplot2) 
middle = data.frame(t=c(0,1,2,3),value=c(0,2,4,6)) 
ribbon = data.frame(t=c(0,1,2,3),min=c(0,0,0,0),max=c(0,4,8,12)) 
g = ggplot() 
g = g + geom_line (data=middle,aes(x=t,y=value),color='blue',size=2) 
g = g + geom_ribbon(data=ribbon,aes(x=t,ymin=min,ymax=max),alpha=.3,fill='lightblue') 
print(g) 

library(ggplot2) 
middle = data.frame(t=c(0,1,2,3),value=c(0,2,4,6)) 
ribbon = data.frame(t=c(0,1,2,3),min=c(0,0,0,0),max=c(0,4,8,12)) 
g = ggplot() 
g = g + geom_ribbon(data=ribbon,aes(x=t,ymin=min,ymax=max,fill="CI" ,color="CI")) 
g = g + geom_line (data=middle,aes(x=t,y=value,      color="median")) 
g = g + scale_colour_manual(values=c("lightblue","blue")) 
g = g + scale_fill_manual (values=c("lightblue")) 
print(g) 

Answer 1

首先，設置guide="none"爲scale_fill_manual()，然後使用函數guides()與參數override.aes=根據線和置信區間改變linetype=和fill=。

ggplot() + 
    geom_ribbon(data=ribbon,aes(x=t,ymin=min,ymax=max,fill="CI" ,color="CI")) + 
    geom_line(data=middle,aes(x=t,y=value,color="median"))+ 
    scale_colour_manual("Legend",values=c("lightblue","blue")) + 
    scale_fill_manual(values=c("lightblue"),guide="none")+ 
    guides(colour = guide_legend(override.aes = list(linetype=c(0,1),fill=c("lightblue","white"))))