如何在R ggplot中为所有渐变图设置统一颜色指南？

针对多幅同色标渐变图组合时重复显示色标的问题，以下是几种高效的解决方案：

方法一：使用patchwork包（推荐） #

patchwork是专为组合ggplot对象设计的工具包，能轻松实现统一色标管理：

1. 安装并加载包：

install.packages("patchwork")
library(patchwork)

2. 生成不带色标的子图模板：
   修改你的绘图代码，移除子图的色标显示：

make_plot <- function(df) {
  ggplot(data=df,aes(y=Var2,x=Var1))+
    geom_tile(aes(fill=Value))+
    scale_fill_gradientn(colours = c('#1E90FF','white','#DC143C'),
                         limit=c(-10,10),
                         name=expression(paste(Delta,'T',' (sec)')),
                         guide = "none")+ # 关闭子图色标
    theme_bw()+
    theme(axis.title = element_blank(),
          axis.text = element_blank(),
          axis.ticks = element_blank())+
    coord_fixed()
}

# 生成多个子图（假设你有对应的数据框）
plt1 <- make_plot(flat_df1)
plt2 <- make_plot(flat_df2)
plt3 <- make_plot(flat_df3)
plt4 <- make_plot(flat_df4)

3. 组合图并添加统一色标：
   先生成一个带完整色标的参考图，再通过patchwork的布局功能统一展示色标：

# 生成带色标的参考图（仅用于提取色标）
ref_plot <- ggplot(data=flat_df3,aes(y=Var2,x=Var1))+
  geom_tile(aes(fill=Value))+
  scale_fill_gradientn(colours = c('#1E90FF','white','#DC143C'),
                       limit=c(-10,10),
                       name=expression(paste(Delta,'T',' (sec)')))+
  theme_bw()+
  theme(axis.title = element_blank(),
        axis.text = element_blank(),
        axis.ticks = element_blank())+
  coord_fixed()

# 组合子图并收集统一色标到右侧
combined_plot <- (plt1 + plt2) / (plt3 + plt4) + 
  plot_layout(guides = "collect") & 
  theme(legend.position = "right")

# 查看结果
print(combined_plot)

方法二：使用cowplot包 #

cowplot的plot_grid和get_legend函数也能快速实现需求：

1. 安装加载包：

install.packages("cowplot")
library(cowplot)

2. 提取色标并组合子图：

# 提取参考图的色标
legend <- get_legend(ref_plot)

# 先组合子图为网格
plot_grid <- plot_grid(plt1, plt2, plt3, plt4, ncol = 2)

# 组合网格与色标，调整宽度比例
final_plot <- plot_grid(plot_grid, legend, rel_widths = c(4, 1))

print(final_plot)

方法三：原生grid包手动处理（适合熟悉grid的用户） #

如果坚持使用原生grid包，可按以下步骤操作：

1. 转换ggplot为grob对象并提取色标：

library(grid)
library(gridExtra)

# 移除子图色标并转换为grob
plt1_nolegend <- plt1 + theme(legend.position = "none")
plt2_nolegend <- plt2 + theme(legend.position = "none")
plt3_nolegend <- plt3 + theme(legend.position = "none")
plt4_nolegend <- plt4 + theme(legend.position = "none")

g1 <- ggplotGrob(plt1_nolegend)
g2 <- ggplotGrob(plt2_nolegend)
g3 <- ggplotGrob(plt3_nolegend)
g4 <- ggplotGrob(plt4_nolegend)

# 提取色标grob
legend_grob <- ggplotGrob(ref_plot)$grobs[[which(sapply(ggplotGrob(ref_plot)$grobs, function(x) x$name) == "guide-box")]]

2. 构建布局并绘制：

# 创建2行3列的布局，给色标预留窄列
layout <- grid.layout(nrow = 2, ncol = 3, widths = unit(c(1,1,0.2), "null"))
vp <- viewport(layout = layout)
pushViewport(vp)

# 放置子图
print(g1, vp = viewport(layout.pos.row = 1, layout.pos.col = 1))
print(g2, vp = viewport(layout.pos.row = 1, layout.pos.col = 2))
print(g3, vp = viewport(layout.pos.row = 2, layout.pos.col = 1))
print(g4, vp = viewport(layout.pos.row = 2, layout.pos.col = 2))

# 放置统一色标
grid.draw(legend_grob, vp = viewport(layout.pos.row = 1:2, layout.pos.col = 3))

内容的提问来源于stack exchange，提问作者Pratik Mullick