R：複数レイヤー用のカスタムレジェンドggplot

Question

ggplotのカスタムレジェンドを2つの別々のデータフレームからのデータで取得しようとしています。再現可能な最小限の例については、以下を参照してください。

私が達成しようとしているのは、リボンの塗りつぶし、黒い線、赤い線を説明する伝説を持つことです。

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

凡例を生成するためにscale_..._identityを強制的にguide = 'legend'を指定する必要があります。

名前にベクトルを渡すことができます。名前はgeom_...の呼び出しで色を呼び出したものでなければなりません。