R：多层ggplot的自定义图例

Question

我正在尝试为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')

Answer 1

不用设置colour和fill，而是使用几何美学来 映射它们aes，然后使用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')请注意，您必须指定guide = 'legend'强制scale_..._identity生成图例。scale_...manual您可以为值传递命名向量-名称应为调用中的颜色geom_...，然后可以很好地标记。)

Answer 2

顺便说一句，为进一步澄清，我会说：geom_line(aes(..., color = 'a')...)然后scale_color_manual(..., values = c('a' = 'black', ...))。这样一来，很明显，其中的字符串aes(color = 'string')只是一个绑定，实际颜色将是您在中定义的颜色scale_color_manual()。