本文首发于微信公众号“生信补给站”,
mtcars数据集作为示例数据
library(ggplot2)#查看数据集head(mtcars) # 将cyl gear变量转为因子变量mtcars$cyl<-as.factor(mtcars$cyl)mtcars$gear <- as.factor(mtcars$gear)
#gear为横坐标,对mpg做箱线图,gear填充颜色p <- ggplot(mtcars, aes(x=gear, y=mpg, fill=gear)) + geom_boxplot()p
使用 theme() 参数设置legend位置
# 可选参数为“left”,“top”, “right”, “bottom”.p + theme(legend.position="bottom")
# 数值向量 c(x,y) 调控位置p + theme(legend.position = c(0.8, 0.2))
# legend titlep + theme(legend.title = element_text(colour="blue", size=10, face="bold"))# legend labelsp + theme(legend.text = element_text(colour="blue", size=10, face="bold"))
#fill设置legend box背景色,colour设置边框颜色p + theme(legend.background = element_rect(fill="lightblue", size=0.5, linetype="solid", colour ="darkblue"))
scale_x_discrete自定义设置顺序
p + scale_x_discrete(limits=c("3", "5", "4"))
# 去除legend titlep + theme(legend.title = element_blank())# 去除整个legendp + theme(legend.position='none')
使用guides()参数来设置或移除特定的美学映射(fill, color, size, shape等).
因子变量cyl和gear映射为点图的颜色和形状,qsec决定点的大小。
p <- ggplot(data = mtcars, aes(x=mpg, y=wt, color=cyl, size=qsec, shape=gear))+ geom_point()# 不设定specific aesthetic时候p
# 更改 legend positionp +theme(legend.position="bottom")# Horizontal legend boxp +theme(legend.position="bottom", legend.box = "")
使用 guide_legend() 参数:
p+guides(color = guide_legend(order=1), size = guide_legend(order=2), shape = guide_legend(order=3))
通过设置FALSE,可不展示对应的legend
p+guides(color = FALSE)
# Remove legend for the point shapep+scale_shape(guide=FALSE)# Remove legend for sizep +scale_size(guide=FALSE)# Remove legend for colorp + scale_color_manual(values=c('#999999','#E69F00','#56B4E9'), guide=FALSE)
联系客服