标签：p2 p1 ggplot ggarrange ggpubr 图例 ncol tools legend
library(ggpubr) # ggpubr 是基于ggplot2开发，更便捷，使图满足论文出版的需要。
df<-iris
colnames(df)<-paste0("V",1:5) # paste0 连接符是空字符串，相比paste不能设置sep
df
p1<-ggplot(df,aes(x=V1,y=V2))+geom_point(aes(color=V5))+theme_bw() p1 p2<-ggplot(df,aes(x=V1,y=V3))+geom_point(aes(color=V5))+theme_bw() p3<-ggplot(df,aes(x=V1,y=V4))+geom_point(aes(color=V5))+theme_bw() ggarrange(p1,p2,p3,ncol=3)
p1:
ggarrange(p1,p2,p3,ncol=3) # 注 Rstudio 缩略图坐标压缩不正常显示，zoom看正常，解决方法是ggsave可以保存正常图如ggsave("~/Downloads/ggarrange.png",ggarrange(p1,p2,p3,ncol=3))
备注 这里Rstudio右下角压缩不正常图 ，直接Export也是这种异常，需要ggsave
因为图例一致，可以共用图例，设置common.legend=T
参数ncol: 设置绘图网格的列数，number of columns in the plot grid.
ggarrange(p1,p2,p3,ncol=3,common.legend = T)
设置图例位置 legend = "right"
ggarrange(p1,p2,p3,ncol=3,common.legend = T,legend = "right")
df$V6<-sample(LETTERS[1:6],150,replace = T) df
p4<-ggplot(df,aes(x=V1,y=V2))+geom_point(aes(color=V6))+theme_bw() p4
p5<-ggplot(df,aes(x=V1,y=V3))+geom_point(aes(color=V6))+theme_bw() p6<-ggplot(df,aes(x=V1,y=V4))+geom_point(aes(color=V6))+theme_bw() ggarrange(p4,p5,p6,ncol=3,common.legend = T) #图例放在顶部，默认布局是3行3列
更改图例中顺序。
p4<-ggplot(df,aes(x=V1,y=V2))+geom_point(aes(color=V6))+theme_bw()+theme(legend.position = "top") #默认是如下顺序 p4
p4<-ggplot(df,aes(x=V1,y=V2))+geom_point(aes(color=V6))+theme_bw()+theme(legend.position = "top")+scale_color_discrete(guide=guide_legend(byrow=T)) p4 # 靠guide_legend 设置图例顺序
p4<-ggplot(df,aes(x=V1,y=V2))+geom_point(aes(color=V6))+theme_bw()+theme(legend.position = "top")+scale_color_discrete(guide=guide_legend(byrow = T,nrow=1)) p4
ggarrange
标签：p2,p1,ggplot,ggarrange,ggpubr,图例,ncol,tools,legend 来源： https://www.cnblogs.com/koujiaodahan/p/15862815.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。