2013-01-02 351 views
11

我將兩個半透明色帶繪製在一起。使用下面的代碼,沒有scale_fill_manual部分,我基本上得到了我想要的,帶有一個名爲"red"的圖例,以及標籤bluered。添加scale_fill_manual部分允許我將圖例和其條目命名爲我想要的,但是我失去了圖例中彩色矩形的透明度。 sessionInfo的顯示透明度和填充顏色的ggplot圖例

x=1:10 
y1=1:10 
y2=2:11 
y3=10:1 
y4=9:0 
dt=data.frame(x,y1,y2,y3,y4) 
library(ggplot2)  
ggplot(dt)+ 
    geom_ribbon(aes(x=x,ymin=y1,ymax=y2,fill='red'), 
       alpha=0.4,)+ 
    geom_ribbon(aes(x=x,ymin=y3,ymax=y4,fill='blue'), 
       alpha=0.5)+ 
    scale_fill_manual(name='legendname', 
        values=c('red','blue'), 
        labels=c('one','two')) 

輸出()

R version 2.15.2 (2012-10-26) 
Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit) 

locale: 
[1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8 

attached base packages: 
[1] stats  graphics grDevices utils  datasets methods base  

other attached packages: 
[1] scales_0.2.3 ggplot2_0.9.3 plyr_1.8  reshape2_1.2.2 

loaded via a namespace (and not attached): 
[1] colorspace_1.2-0 dichromat_1.2-4 digest_0.6.0  grid_2.15.2  gtable_0.1.2  labeling_0.1  
[7] MASS_7.3-22  munsell_0.4  proto_0.3-10  RColorBrewer_1.0-5 rstudio_0.97.248 stringr_0.6.2  
[13] tools_2.15.2 

有很多類似的問題(Customize legend in ggplothttps://stats.stackexchange.com/questions/5007/how-can-i-change-the-title-of-a-legend-in-ggplot2等)的解決方案,但我無法找到任何專門解決這個。

在此先感謝

回答

14

您可以通過添加覆蓋在傳說中的美學:

+ guides(fill = guide_legend(override.aes= list(alpha = 0.4))) 

您ggplot電話。

但是,與在ggplot大多數事情一樣,它可能是更簡單的方式,使多個geom_ribbon來安排你的數據調用不必要的:

dt1 <- data.frame(x = c(x,x), 
        ymin = c(y1,y3), 
        ymax = c(y2,y4), 
        grp = rep(c('red','blue'),each = 10)) 
ggplot(data = dt1,aes(x = x,ymin = ymin, ymax = ymax,fill = grp)) + 
    geom_ribbon(alpha = 0.4) + 
    scale_fill_manual(name = "legendname", 
         values = c('red','blue'), 
         labels = c('one','two')) 

enter image description here

+1

該解決方案適用於我,因爲我只需要1級透明度[0.4]。如果每個色帶都具有獨特的透明度,您是否可以評論該解決方案將如何改變? – RyanStochastic

+0

@RyanStochastic'alpha'是一種美學,它本身可以像任何其他一樣映射到一個變量。所以你可以映射'alpha = grp'並且可能添加'scale_alpha_manual'組件。 – joran

+0

感謝您的幫助。 – RyanStochastic