當(dāng)使用ggplot2作圖的時(shí)候如果多個(gè)圖拼接到一起，圖例互相之間有一樣的時(shí)候，比如如下的情況（我們用R語言內(nèi)置的鳶尾花的數(shù)據(jù)集做三個(gè)散點(diǎn)圖）

    

實(shí)現(xiàn)上面圖片的代碼是

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)

因?yàn)槿齻€(gè)圖的圖例是一樣的，我們完全可以只顯示一個(gè)圖例就夠了。這里拼圖使用的函數(shù)是ggpubr這個(gè)包里的ggarrange()函數(shù)，這個(gè)函數(shù)里有一個(gè)參數(shù)是common.legend，默認(rèn)好像是FALSE，我們直接設(shè)置成TRUE就好了，代碼如下

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

   

還有一個(gè)legend參數(shù)用來控制圖例的位置

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

    

還有一種情況是分組過多如何調(diào)整圖例的布局，比如

代碼

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)

結(jié)果是

    

圖例放到頂部，默認(rèn)的布局是3行3列，如果要改成1行6列呢？ggplot2里應(yīng)該有對(duì)應(yīng)的參數(shù)可以修改吧？但是目前還不知道如何使用ggplot2自帶的函數(shù)來操作，查資料的時(shí)候發(fā)現(xiàn)了一個(gè)R包lemon里有一個(gè)reposition_legend()函數(shù)

參考資料的鏈接是

https://cran.r-project.org/web/packages/lemon/vignettes/legends.html

但是我按照這個(gè)方法操作我自己的數(shù)據(jù)的時(shí)候一直遇到報(bào)錯(cuò)

代碼是

#install.packages("lemon")
library(lemon)
reposition_legend(p4,panel = c('panel-1-5'),position = "top")

報(bào)錯(cuò)內(nèi)容是

Error in reposition_legend(p4, panel = c("panel-1-5"), position = "top") : 
  Could not find panel named `panel-1-5`.

暫時(shí)還沒有搞懂是什么原

我去查了一下ggplo2里關(guān)于圖例的布局，找到了解決辦法 參考鏈接是 https://ggplot2.tidyverse.org/reference/guide_legend.html

如果將ggplot2的圖例設(shè)置為頂部，默認(rèn)結(jié)果如下

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

    

如果要改成一行的話再加一個(gè)nrow參數(shù)就好了

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