这篇文章主要介绍r语言中ggpubr包的ggarrange()函数怎么用，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！
当使用ggplot2作图的时候如果多个图拼接到一起，图例互相之间有一样的时候，比如如下的情况（我们用R语言内置的鸢尾花的数据集做三个散点图）
实现上面图片的代码是
计算
安全
数据库
网络和加速
企业服务
library(ggplot2)library(ggpubr)df<-iriscolnames(df)<-paste0("V",1:5)p1<-ggplot(df,aes(x=V1,y=V2))+ geom_point(aes(color=V5))+ theme_bw()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)因为三个图的图例是一样的，我们完全可以只显示一个图例就够了。这里拼图使用的函数是ggpubr这个包里的ggarrange()函数，这个函数里有一个参数是common.legend，默认好像是FALSE，我们直接设置成TRUE就好了，代码如下
ggarrange(p1,p2,p3,ncol = 3, common.legend = T)
还有一个legend参数用来控制图例的位置
ggarrange(p1,p2,p3,ncol = 3, common.legend = T, legend = "right")
还有一种情况是分组过多如何调整图例的布局，比如
代码
df$V6<-sample(LETTERS[1:6],150,replace = T)p4<-ggplot(df,aes(x=V1,y=V2))+ geom_point(aes(color=V6))+ theme_bw()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列，如果要改成1行6列呢？ggplot2里应该有对应的参数可以修改吧？但是目前还不知道如何使用ggplot2自带的函数来操作，查资料的时候发现了一个R包
lemon里有一个reposition_legend()函数
参考资料的链接是
https://cran.r-project.org/web/packages/lemon/vignettes/legends.html
但是我按照这个方法操作我自己的数据的时候一直遇到报错
代码是
#install.packages("lemon")library(lemon)reposition_legend(p4,panel = c('panel-1-5'),position = "top")报错内容是
Error in reposition_legend(p4, panel = c("panel-1-5"), position = "top") : Could not find panel named `panel-1-5`.暂时还没有搞懂是什么原
我去查了一下ggplo2里关于图例的布局，找到了解决办法 参考链接是 https://ggplot2.tidyverse.org/reference/guide_legend.html
如果将ggplot2的图例设置为顶部，默认结果如下
p4<-ggplot(df,aes(x=V1,y=V2))+ geom_point(aes(color=V6))+ theme_bw()+ theme(legend.position = "top")p4
图例两行，顺序是从上到下依次排，那如果要改成2行从左到右依次排列呢？
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
如果要改成一行的话再加一个nrow参数就好了
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
以上是“r语言中ggpubr包的ggarrange()函数怎么用”这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注亿速云行业资讯频道！
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
原文链接：https://my.oschina.net/u/4579431/blog/4982067
