70

2 つの別々のデータ フレームからのデータを使用して、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')

ここに画像の説明を入力

4

1 に答える 1

115

colourとを設定する代わりに、ジオメトリの美学を使用してfillそれらをマッピングしてから、またはを使用します。 aesscale_xxx_manualscale_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_...ラベルを付けることができます。

于 2013-08-23T05:00:35.817 に答える