Légende ggplot montrant la transparence et la couleur de remplissage

Je suis le traçage de deux semi-transparent rubans ensemble. À l'aide du code ci-dessous, sans le scale_fill_manual partie, je reçois fondamentalement, ce que je veux, avec une légende appelé "red"et les étiquettes blue et red. L'ajout de la scale_fill_manual partie me permet au nom de la légende et de ses entrées de ce que je veux, mais je perds la transparence de la couleur des rectangles dans la légende.

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'))

Légende ggplot montrant la transparence et la couleur de remplissage

sortie de sessionInfo()

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   

Il y a beaucoup de solutions à des problèmes similaires (Personnaliser la légende dans ggplothttps://stats.stackexchange.com/questions/5007/how-can-i-change-the-title-of-a-legend-in-ggplot2etc.), mais je ne peux pas trouver quelque chose qui traite de ce particulier.

Merci d'avance

source d'informationauteur RyanStochastic