自定义图例为多层 ggplot

我正在尝试为 ggplot 获得一个自定义图例，其中的数据来自两个独立的数据帧。请参阅下面的最小可重复示例。

我想要完成的是一个关于丝带填充，黑线和红线的传说。

require(ggplot2)
x=seq(1,10,length=100)
data=data.frame(x,dnorm(x,mean=6.5,sd=1))
names(data)=c('x','new.data')
x.ribbon=seq(1,10,length=20)
ribbon=data.frame(x.ribbon,
dnorm(x.ribbon,mean=5,sd=1)+.01,
dnorm(x.ribbon,mean=5,sd=1)-.01,
dnorm(x.ribbon,mean=5,sd=1))
names(ribbon)=c('x.ribbon','max','min','avg')
ggplot()+geom_ribbon(data=ribbon,aes(ymin=min,ymax=max,x=x.ribbon),fill='lightgreen')+
geom_line(data=ribbon,aes(x=x.ribbon,y=avg),color='black')+
geom_line(data=data,aes(x=x,y=new.data),color='red')+
xlab('x')+ylab('density')

enter image description here

105306

小开

最佳答案

不要设置 colour和 fill，而是使用几何美学映射它们 < strong > 然后使用 scale_xxx_manual或 scale_xxx_identity。

例如

ggplot()+geom_ribbon(data=ribbon,aes(ymin=min,ymax=max,x=x.ribbon,fill='lightgreen'))+
geom_line(data=ribbon,aes(x=x.ribbon,y=avg,color='black'))+
geom_line(data=data,aes(x=x,y=new.data,color='red'))+
xlab('x')+ylab('density') +
scale_fill_identity(name = 'the fill', guide = 'legend',labels = c('m1')) +
scale_colour_manual(name = 'the colour',
values =c('black'='black','red'='red'), labels = c('c2','c1'))

enter image description here

注意，必须指定 guide = 'legend'才能强制 scale_..._identity生成图例。

您可以为值传递一个命名向量——名称应该是在对 geom_...的调用中调用的颜色，然后您可以很好地标记。