使用cowplot::plot_grid()组合直方图时轴标签与刻度消失问题求助

问题原因 #

as.ggplot()转换R基础绘图时，默认边界计算会裁剪掉轴标签、刻度这类边缘元素——因为基础绘图的布局逻辑和ggplot存在差异，转换后的ggplot对象没有预留足够空间展示这些内容。

解决方案1：转换时预留足够空间 #

通过as.ggplot()的width和height参数增大尺寸，给轴标签和刻度留出显示空间：

# 测试数据
set.seed(123)
df1 <- data.frame(x = rnorm(100))
df2 <- data.frame(x = rnorm(100, mean = 2))

library(ggplotify)
library(cowplot)
library(graphics)

# 绘制并转换直方图，指定width/height预留边缘空间
p1 <- as.ggplot(function() {
  hist(df1$x, main = "直方图1", xlab = "数值", ylab = "频数")
}, width = 1.2, height = 1.2)

p2 <- as.ggplot(function() {
  hist(df2$x, main = "直方图2", xlab = "数值", ylab = "频数")
}, width = 1.2, height = 1.2)

# 组合网格图
plot_grid(p1, p2, ncol = 2)

解决方案2：直接用ggplot绘制（更推荐） #

如果不需要依赖基础绘图，直接用ggplot2绘制直方图再组合，从根源避免转换兼容问题：

library(ggplot2)
library(cowplot)

# 用ggplot绘制直方图
p1_ggplot <- ggplot(df1, aes(x = x)) +
  geom_histogram(bins = 10, color = "black", fill = "white") +
  labs(title = "直方图1", x = "数值", y = "频数") +
  theme_bw()

p2_ggplot <- ggplot(df2, aes(x = x)) +
  geom_histogram(bins = 10, color = "black", fill = "white") +
  labs(title = "直方图2", x = "数值", y = "频数") +
  theme_bw()

# 组合网格图
plot_grid(p1_ggplot, p2_ggplot, ncol = 2)

补充调整技巧 #

• width和height的取值可根据标签长度灵活调整，比如长标签可增大到1.3~1.5；
• 若仍有元素被裁剪，可在基础绘图中手动调整边距后再转换：

  p1 <- as.ggplot(function() {
    par(mar = c(4,4,2,1)) # 依次调整下、左、上、右边距
    hist(df1$x, main = "直方图1", xlab = "数值", ylab = "频数")
  }, width = 1.2, height = 1.2)
  

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