如何使用ggarrange编辑常见的图例标题（将其变为粗体并放大字体大小）？
根据我拥有的六个图（从p1到p6），我认为以下方法会起作用：
p6 <- p6 + theme(legend.title = element_text(size = 15,face = "bold")
下面的ggarrange用于合并六个图：
p <- ggarrange(p1,p2,p3,p4,p5,p6,common.legend = TRUE,legend = "bottom",labels = c("1","2","3","4","5","6"),# font.label = list(size = 10,color = "green"),nrow = 2,ncol = 4
)
但是，这不会改变通用图例。
您可以从感兴趣的地块中提取图例，然后将该图例与地块并排放置。
#libraries:
library(ggplot2)
library(ggpubr)
library(gridExtra)
library(grid)
#example plots:
p1 <- ggplot(mtcars) +
geom_point(aes(x=mpg,y=qsec,color = factor(cyl)))
p2 <- ggplot(mtcars) +
geom_point(aes(x=mpg,y=4*drat,color = factor(cyl))) +
theme(legend.title = element_text(size = 15,face = "bold"),legend.position="bottom")
#function to extract the legend of a ggplot; source:
#https://github.com/hadley/ggplot2/wiki/Share-a-legend-between-two-ggplot2-graphs
get_legend<-function(a.gplot){
tmp <- ggplot_gtable(ggplot_build(a.gplot))
leg <- which(sapply(tmp$grobs,function(x) x$name) == "guide-box")
legend <- tmp$grobs[[leg]]
return(legend)}
#arranging the legend and plots in a grid:
p2_legend <- get_legend(p2)
grid.arrange(arrangeGrob(p1 + theme(legend.position="none"),p2 + theme(legend.position="none"),nrow=2),p2_legend,nrow=2,heights=c(10,1))
