ggplot2作图共享图例方法一：ggpubr包的ggarrange()函数以及调整图例的布局

用户7010445

发布于 2021-03-15 09:44:00

4.6K0

发布于 2021-03-15 09:44:00

文章被收录于专栏：小明的数据分析笔记本

当使用ggplot2作图的时候如果多个图拼接到一起，图例互相之间有一样的时候，比如如下的情况（我们用R语言内置的鸢尾花的数据集做三个散点图）

image.png

实现上面图片的代码是

library(ggplot2)
library(ggpubr)
df<-iris
colnames(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)

image.png

还有一个legend参数用来控制图例的位置

ggarrange(p1,p2,p3,ncol = 3,
          common.legend = T,
          legend = "right")

image.png

还有一种情况是分组过多如何调整图例的布局，比如

代码

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)

结果是

image.png

图例放到顶部，默认的布局是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

image.png

图例两行，顺序是从上到下依次排，那如果要改成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

image.png

如果要改成一行的话再加一个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