R语言ggplot2固定区域合并双图并实现分组布局对齐的方法

问题根源拆解 #

你遇到的两个布局问题本质来自两点：

• 两个图的纵轴坐标范围、边距规则完全独立，即使拼在一起，p2的堆叠色块纵向边界和p1的行位置没有统一坐标映射，自然错位
• plot_grid默认直接拼接两个图的绘图区，没有预留空白间隔，视觉上会显得间距过窄

具体调整方案 #

1. 预先统一颜色映射 #

避免p1的点颜色和p2的填充色出现色差，手动绑定每个分组的固定色值：

library(ggplot2)
library(dplyr)
library(cowplot)

# 固定分组颜色，保证p1/p2视觉统一
group_colors <- c(
  "crop" = "#1b9e77",
  "inter" = "#d95f02",
  "semi" = "#7570b3"
)

2. 调整p1的坐标规则 #

固定纵轴的因子顺序、坐标范围，修正文字偏移的错误逻辑（coord_flip会交换坐标轴方向，原来的nudge参数适配错误）：

p1 <- v %>% 
  ggplot(aes(
    x = factor(ID, levels = levels(v$ID)), # 锁定ID的排列顺序，避免随机重排
    y = ES, 
    color = group
  )) +
  geom_hline(yintercept = 0) + 
  geom_errorbar(
    aes(ymin = ES - `Std. Error`, ymax = ES + `Std. Error`),
    width = 0, lwd = 1.5
  ) +
  coord_flip() +
  # 修正文字偏移：把ID标签放在纵轴内侧，不偏离ES值方向
  geom_text(aes(label = ID), nudge_x = -0.3, nudge_y = 0) + 
  geom_point(size = 4) +
  scale_color_manual(values = group_colors) +
  # 固定翻转后的纵轴范围：9个ID对应位置1-9，两边留0.5边距，总范围0.5-9.5
  scale_x_discrete(expand = expansion(add = 0.5)) +
  theme(
    axis.text.y = element_blank(),
    axis.ticks.y = element_blank(),
    plot.margin = margin(r = 10, unit = "pt")
  ) +
  xlab('') +  
  guides(color = FALSE)

3. 调整p2的坐标对齐规则 #

把p2的纵轴范围设置成和p1完全一致，去掉所有冗余边距，让堆叠色块的纵向边界和p1的行坐标一一对应：

p2 <- v %>% 
  group_by(group) %>% 
  summarise(Estimate = sum(Estimate)) %>% # 按组汇总方差值，避免同组块拆分
  ggplot(aes(x = '1', y = Estimate, fill = group)) +
  geom_col(position = position_fill(reverse = TRUE)) +
  scale_y_continuous(
    labels = scales::percent, 
    name = "Variance explained",
    # 纵轴范围和p1完全锁定为0.5-9.5，去掉默认边距
    limits = c(0.5, 9.5),
    expand = c(0, 0)
  ) +
  scale_fill_manual(values = group_colors) +
  theme(
    legend.position = 'none', 
    axis.title.x = element_blank(), 
    axis.text.x = element_blank(),
    axis.ticks.x = element_blank(),
    # 去掉p2纵轴所有冗余元素
    axis.text.y = element_blank(),
    axis.ticks.y = element_blank(),
    axis.title.y = element_blank(),
    plot.margin = margin(l = 10, r = 0, unit = "pt")
  )

4. 调整拼接间距 #

在p2和p1之间插入窄的空白占位，拉开视觉距离，同时强制水平对齐两个图的绘图区边界：

final_plot <- plot_grid(
  p2, 
  plot_spacer(), # 无内容的空白占位，专门用来调整图间距
  p1,
  nrow = 1,
  rel_widths = c(0.2, 0.08, 1), # 宽度比例：p2占0.2、空白占0.08、p1占1
  align = "h",
  axis = "tb"
)

调整后效果说明 #

• p2的100%堆叠柱会完全填满和p1等高的纵向区域，上下边界和p1的绘图区完全齐平，色块颜色和p1对应分组的点颜色一一匹配，不会出现错位
• 中间的空白占位会把两个图的间距拉开到合适距离，不会出现贴边的拥挤感
• 因为锁定了因子顺序和坐标范围，后续调整数据也不会出现行顺序混乱的问题

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