R ggplot2 facet_wrap分面子图符合条件时替换为指定提示文本

实现逻辑：先识别出符合「仅x=0位置有柱形」条件的分组，再对这类分组单独渲染文本代替直方图即可，完整可运行代码如下：

• 加载依赖包

library(tidyverse)
library(patchwork)

patchwork包用于拼接子图，语法简洁兼容性好

• 构造示例数据集

df <- tibble(
  key = c("v1", "v1", "v1", "v1", "v2", "v2", "v2", "v2", "v3"),
  values = c(1, 2, 4, 2, 5, 8, 3, 1, 0)
)

• 给需要替换的分组打标记：判断规则为分组下所有value均为0，和「仅x=0处有单个柱形」的条件完全匹配

df <- df %>%
  group_by(key) %>%
  mutate(is_empty = all(values == 0)) %>%
  ungroup()

• 编写子图生成函数：空分组直接输出居中的"No data"文本，正常分组输出对应直方图

render_subplot <- function(sub_df) {
  # 空分组返回带分组标签的提示文本
  if (sub_df$is_empty[1]) {
    return(
      ggplot() + 
        annotate("text", x = 0.5, y = 0.5, label = "No data", size = 5) +
        theme_void() +
        labs(tag = unique(sub_df$key)) +
        theme(plot.tag.position = "bottom")
    )
  }
  # 正常分组返回直方图
  ggplot(sub_df, aes(x = values)) +
    geom_histogram(aes(y = after_stat(count)), binwidth = 1) +
    scale_x_continuous(breaks = seq(min(sub_df$values), max(sub_df$values), 1))
}

• 按分组拆分数据，批量生成子图后横向拼接

final_plot <- df %>%
  group_split(key) %>%
  map(render_subplot) %>%
  wrap_plots(nrow = 1, axes = "collect")

运行后输出效果和预期一致：v1、v2正常显示直方图，v3子图显示No data提示。

注意事项：

1. 如果你使用的是3.3.0之前版本的ggplot2，将after_stat(count)替换为旧写法..count..即可
2. 实际使用时请把binwidth参数调整为你绘图时用的分箱宽度，保证直方图显示和判断逻辑一致
3. 可以修改annotate里的size、label参数自定义提示文本的大小和内容

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