• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

R语言与医学统计图形-【20】ggplot2图例

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

ggplot2绘图系统——图例:guide函数、标度函数、overrides.aes参数

图例调整函数guide_legend也属于标度函数,但不能单独作为对象使用,即不能如p+guide_legend()使用。

1. guides及guides_legend函数

guide_legend函数参数:

guide_legend(title = , #图例标题
             title.position = ,#top/bottom/right/left
             title.theme = , #图例风格
             title.hjust = , #标题水平调整
             title.vjust = ,
             label = TRUE, #是否显示标签
             label.position = , #标签位置,同上title
             label.theme = ,
             label.hjust = ,
             label.vjust = ,
             keywidth = , #图标宽度
             keyheight = ,
             direction = , #图标方向,horizontal/vetical
             default.unit = 'line',
             override.aes = list(), #忽略aes中设置
             nrow = , #几行
             ncol = , #几列
             byrow = FALSE, #是否按行
             reverse = FALSE, #图例是否翻转
             order = 0,...)

guide_legend结合guides函数调整图例。

图例的四种形式:fill, color, shape, size,使用guides函数时,使用相应参数即可。

df <- data.frame(x=1:20,y=1:20,color=letters[1:20])
p <- ggplot(df,aes(x,y))+geom_point(aes(color=color))

p+guide_legend(title='legend',nrow = 4,ncol = 5) #error
p+guides(color=guide_legend('legend',nrow=4,ncol=5,label.position='left'))

不同的图例可以同时调整。

dat <- data.frame(x=1:5,y=1:5,p=1:5,q=factor(1:5),r=factor(1:5))
#生成3种图例
pp <- ggplot(dat,aes(x,y,color=p,size=q,shape=r))+
  geom_point()

#只使用guides函数
b=pp+guides(color='colorbar', #颜色条
          size='none', #不显示
          shape='legend') #普通图例

grid.arrange(pp,b,ncol=2)

#结合guide_*函数
c=pp+guides(color=guide_colorbar('color'), #颜色条用相应函数colorbar
          shape=guide_legend('shape',ncol=5))

#将3个图例整合成一个
d=pp+guides(color=guide_legend('title'),
          size=guide_legend('title'),
          shape=guide_legend('title'))

grid.arrange(c,d,ncol=2)


order参数:
不同图例的排列顺序。

ggplot(mpg,aes(displ,cty))+
  geom_point(aes(size=hwy,color=cyl,shape=drv))+
  guides(color=guide_colorbar(order = 2),
         shape=guide_legend(order=3),
         size=guide_legend(order=1)) #第一位

2. 标度函数调整图例

在scale_*中使用guide参数。标度函数中,有严格的连续型和离散型变量之分。colorbar针对连续型变量,legend针对离散型变量。

#只用guide参数
a=pp+scale_color_continuous(guide='colorbar')+
  scale_shape(guide='legend')+
  scale_size_discrete(guide='legend')

#结合guide_*函数(即自定义图例)
b=pp+scale_color_continuous(guide=guide_colorbar('color'))+
  scale_shape(guide=guide_legend('shape',ncol=5))+
  scale_size_discrete(guide=guide_legend('size',ncol=5))

grid.arrange(a,b,ncol=2)

3. 结合theme函数调整图例

theme函数修饰图例有关参数:

示例。

pt <- ggplot(mtcars,aes(mpg,wt,color=factor(cyl)))+
  geom_point()
a=pt+scale_color_discrete(name='cyl')+
  theme(legend.title = element_text(color='blue'),
        legend.background = element_rect(color = 'red',
                                         linetype = 2))

b=pt+scale_color_discrete(name='cyl')+
  theme(legend.position = 'bottom',
        legend.text = element_text(color='red',size=13,angle = 45),
        legend.key = element_rect(color='black',fill = 'orange'),
        legend.key.height = unit(1,'cm'),
        legend.key.width = unit(1,'cm'))
grid.arrange(a,b,ncol=2)

自定义图例到图形区域中。

pt <- ggplot(mtcars,aes(mpg,wt,color=factor(cyl)))+
  geom_point()
pt+scale_color_discrete(name='cyl')+
  theme(legend.position = c(0.9,0.8), #相对位置比例
        legend.title = element_text(color='blue'),
        legend.background = element_rect(color='red',
                                         linetype = 2))

4. overrides.aes参数的技巧

该参数接受list函数,可对图例样式进行修改而不受映射函数的影响。

示例比较。

p=ggplot(diamonds,aes(carat,price))+
  geom_point(aes(color=color),alpha=1/100)

b=p+guides(color=guide_legend(override.aes = list(alpha=1)))

grid.arrange(p,b,ncol=2)

虽然图上的点模糊,但图例上的点很清晰(将alpha还原为1),这就是overrides.aes参数作用。

对图例进行其他设置,而不受映射函数干扰,如图例中图标大小。


df <- data.frame(id=rep(c('hq','lq'),each=5),
                 values=rnorm(n=10,mean=1,sd=0.5)+c(1:10),
                 period=rep(c(1:5),2))
ggplot(df,aes(x=period,y=values,group=id,shape=id,fill=id))+
  geom_line(color='gray40')+
  geom_point(size=2)+
  guides(shape=guide_legend(override.aes = list(size=5)))+
  scale_fill_manual(values=c('lightskyblue1','lightpink'),
                    labels=c('HQ','LQ'))+
  scale_shape_manual(values = c(22,24),labels=c('HQ',"LQ"))


为突出图例中的点,图例中的点设置比图中点大。

fill和shape的labels设置相同,合并了两种图例。


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
R语言读取JSON数据发布时间:2022-07-18
下一篇:
R语言hist重叠图作法发布时间:2022-07-18
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap