当然可以实现这个需求！我们可以借助grid包的绘图工具，结合ggplot2的gtable布局来给Y轴标题添加匹配整个绘图高度的灰色背景。下面是修改后的完整代码，我会把关键步骤解释清楚：

首先确保你加载了所有需要的包（包括ggh4x，因为用到了facetted_pos_scales函数）：

library(ggplot2)
library(dplyr)
library(ggh4x)
library(gtable)
library(grid)

然后生成数据并绘制基础图形：

# 生成示例数据
pdf <- data.frame(xx = as.factor(c(rep(0, 100), rep(1, 100))),
                  value = rnorm(200),
                  selected_site = c('y', rep('n', 98), 'y'),
                  name = as.factor(rep(1:5, each = 20)),
                  version = rep(c('A', 'B'), each = 100))

# 绘制基础图形，保存为对象p
p <- pdf %>%
  ggplot(aes(x = value, fill = xx)) +
  geom_histogram(alpha=0.6, position="identity") +
  facet_grid(selected_site ~ name, scale = 'free_y') +
  scale_fill_manual(name = '', values = c('red', 'blue')) +
  facetted_pos_scales(
    y = list(selected_site == 'n' ~ scale_y_continuous(limits = c(0,5)),
             selected_site == 'y' ~ scale_y_continuous(limits = c(0,2)))) +
  xlab('') + ylab('THIS IS A TEST') +
  theme_bw() +
  theme(legend.position = 'none',
        strip.background.y = element_blank(),
        strip.text.y = element_blank(),
        panel.spacing=unit(0.2, "lines"))

接下来是核心的背景添加步骤：

# 将ggplot对象转换为gtable，方便手动调整布局组件
gt <- ggplotGrob(p)

# 定位Y轴标题在gtable中的位置
y_title_pos <- which(gt$layout$name == "ylab-l")

# 计算所有分面面板的总高度，让背景高度完全匹配绘图区域
panel_height <- sum(gt$heights[gt$layout[gt$layout$name == "panel", ]$t])

# 创建灰色背景矩形grob，设置填充色为浅灰，无边框
bg_rect <- rectGrob(
  x = gt$layout[x = y_title_pos, ]$l,
  y = gt$layout[y = y_title_pos, ]$t,
  width = gt$widths[gt$layout[x = y_title_pos, ]$l],
  height = panel_height,
  gp = gpar(fill = "gray85", col = NA),
  just = c("left", "top")
)

# 将背景矩形添加到gtable的最底层（z=0），确保它在Y轴标题后面
gt <- gtable_add_grob(gt, bg_rect, 
                      t = gt$layout[y_title_pos, ]$t - (panel_height/gt$heights[gt$layout[y_title_pos, ]$t]) + 1, 
                      l = gt$layout[y_title_pos, ]$l,
                      z = 0)

# 绘制最终的图形
grid.draw(gt)

关键步骤说明： #

1. 转换为gtable：ggplot的底层是gtable结构，转换成gtable后我们可以精准控制每个组件的位置和层级。
2. 定位Y轴标题：通过gt$layout$name找到Y轴标题对应的单元格，方便后续对齐背景。
3. 匹配面板高度：计算所有分面面板的总高度，这样背景的高度就能完美覆盖整个绘图区域的垂直范围。
4. 添加背景矩形：创建一个矩形图形对象（rectGrob），设置浅灰色填充，然后把它放到gtable的最底层，确保不会遮挡Y轴标题和其他绘图元素。

这样处理后，Y轴标题就会有一个和绘图高度完全匹配的灰色背景啦！

备注：内容来源于stack exchange，提问作者Dai