使用ggplot与grid.arrange组合绘图时的宽高适配问题

嘿，这个grid.arrange的宽度问题我太熟了！因为你的两个图x轴任务数量不一样（2个vs4个），ggplot自动适配绘图区域后，默认平分宽度就会显得不协调。给你几个实用的解决办法：

方法1：用grid.arrange的widths参数直接指定宽度比例 #

这是最快速的解决方案，你可以根据两组任务的数量比例来设置宽度，比如2任务组和4任务组，就用1:2的比例，也可以根据实际视觉效果微调数值。

示例代码：

library(ggplot2)
library(gridExtra)

# 模拟两组实验数据
df_group2 <- data.frame(
  Task = c("任务1", "任务2"),
  RT_Median = c(340, 410)
)

df_group4 <- data.frame(
  Task = c("任务1", "任务2", "任务3", "任务4"),
  RT_Median = c(310, 370, 440, 480)
)

# 绘制两个反应时中位数图
plot_group2 <- ggplot(df_group2, aes(x = Task, y = RT_Median)) +
  geom_col(fill = "#6A5ACD") +
  labs(title = "2任务组反应时中位数", y = "反应时(ms)") +
  theme_minimal()

plot_group4 <- ggplot(df_group4, aes(x = Task, y = RT_Median)) +
  geom_col(fill = "#FF6347") +
  labs(title = "4任务组反应时中位数", y = "反应时(ms)") +
  theme_minimal()

# 用widths参数设置宽度比例，这里用1:2适配任务数量
grid.arrange(plot_group2, plot_group4, ncol = 2, widths = c(1, 2))

你可以把widths=c(1,2)改成比如c(0.9,1.1)这类微调值，直到视觉上协调为止。

方法2：统一两个图的x轴范围（适合任务有对应关系的场景） #

如果两组的任务有重叠或对应关系，你可以让左侧图的x轴也显示全部4个任务（没有数据的任务留空），这样两个图的宽度会自动对齐：

# 定义所有任务的统一x轴类别
all_tasks <- c("任务1", "任务2", "任务3", "任务4")

plot_group2 <- ggplot(df_group2, aes(x = factor(Task, levels = all_tasks), y = RT_Median)) +
  geom_col(fill = "#6A5ACD") +
  labs(title = "2任务组反应时中位数", y = "反应时(ms)") +
  theme_minimal() +
  scale_x_discrete(drop = FALSE)  # 强制保留所有x轴类别

plot_group4 <- ggplot(df_group4, aes(x = Task, y = RT_Median)) +
  geom_col(fill = "#FF6347") +
  labs(title = "4任务组反应时中位数", y = "反应时(ms)") +
  theme_minimal()

grid.arrange(plot_group2, plot_group4, ncol = 2)

这种方式能让两个图的x轴完全对齐，视觉上更统一，但如果两组任务完全不相关就不太适用。

方法3：用patchwork包替代（更灵活的绘图组合工具） #

如果你经常需要组合ggplot图，推荐试试patchwork包，它的语法更直观，调整宽度也很顺手：

library(patchwork)

# 直接用+组合，用plot_layout设置宽度比例
plot_group2 + plot_group4 + plot_layout(ncol = 2, widths = c(1, 2))

它会自动处理图的主题对齐，有时候比grid.arrange更省心。

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