如何为ggplot2+cowplot绘制的每个分面图添加纵轴（y轴）

要实现每个分面都显示y轴，同时保留cowplot无灰色背景、无网格线的风格，只需在原代码基础上做两处关键修改：

• 在facet_grid()中添加scales = "free_x"参数，让每个分面的x轴独立渲染，确保每个子图都显示y轴；
• 通过theme()强制显示黑色轴线，并调整分面标题位置避免遮挡轴线。

修改后的完整代码：

# 示例代码
y <- rnorm(300)
x <- rep(1:3, each=100)
library(ggplot2)
library(cowplot)
dat <- as.data.frame(x=x, y=y)

ggplot(dat, aes(y=y)) +
  geom_boxplot() +
  facet_grid(~x, scales = "free_x") +
  theme_cowplot(12) +
  theme(
    axis.line = element_line(color = "black"),  # 添加黑色轴线
    strip.placement = "outside",  # 分面标题移至轴线外侧，避免遮挡
    panel.border = element_blank()  # 移除默认面板边框，保持风格统一
  )

修改后每个横向分面都会显示独立的y轴，同时满足无灰色背景、无网格线、黑色轴线的要求。

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