我正在嘗試為ggplot獲取自定義圖例，其中的數(shù)據(jù)來自兩個(gè)單獨(dú)的數(shù)據(jù)幀。請(qǐng)參閱下面的最小可復(fù)制示例。我要完成的工作是使用一個(gè)圖例來描述功能區(qū)填充，黑線和紅線。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')
2 回答
哆啦的時(shí)光機(jī)
TA貢獻(xiàn)1779條經(jīng)驗(yàn) 獲得超6個(gè)贊
不用設(shè)置colour和fill，而是使用幾何美學(xué)來 映射它們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')
請(qǐng)注意，您必須指定guide = 'legend'強(qiáng)制scale_..._identity生成圖例。
scale_...manual您可以為值傳遞命名向量-名稱應(yīng)為調(diào)用中的顏色geom_...，然后可以很好地標(biāo)記。
)
婷婷同學(xué)_
TA貢獻(xiàn)1844條經(jīng)驗(yàn) 獲得超8個(gè)贊
順便說一句，為進(jìn)一步澄清，我會(huì)說：geom_line(aes(..., color = 'a')...)然后scale_color_manual(..., values = c('a' = 'black', ...))。這樣一來，很明顯，其中的字符串aes(color = 'string')只是一個(gè)綁定，實(shí)際顏色將是您在中定義的顏色scale_color_manual()。
- 2 回答
- 0 關(guān)注
- 615 瀏覽
添加回答
舉報(bào)
0/150
提交
取消