求助：使用geom_text在facet grid空白区域添加‘Not Sampled’文本遇阻

你的核心问题是没有为所有空白分面生成对应的文本数据，而且geom_text的配置也没跟上。先看你的原图表：

问题分析 #

1. 你的data_text只定义了treatmentType=1和Year=2023，但分面是Year~Seasonshort，那些没有数据的季节（比如2023年的Winter、Spring）并没有被包含进去，所以文本只会出现在有数据的分面里。
2. geom_text继承了主图层的fill=Killifish美学，但文本不需要填充色，会导致报错或显示异常。
3. 代码里多了一段错误的+[**enter image description here**][1]，必须删掉。

修正步骤与代码 #

1. 生成所有分面的完整组合

先把Year和Seasonshort的所有可能组合列出来，再筛选出没有数据的分面，用来添加文本：

# 加载必要包
library(tidyverse)

# 先获取所有分面的组合（Year + Seasonshort + x轴类别）
all_facets <- expand.grid(
  Year = unique(kfish$Year),
  Seasonshort = unique(kfish$Seasonshort),
  treatmentType = unique(kfish$treatmentType)
)

# 找出有数据的分面组合
existing_facets <- kfish %>%
  filter(!is.na(Killifish)) %>%
  distinct(Year, Seasonshort, treatmentType)

# 筛选出空白分面，生成文本数据
data_text <- anti_join(all_facets, existing_facets, by = c("Year", "Seasonshort", "treatmentType")) %>%
  mutate(lab = "未采样")

2. 修正ggplot代码

在geom_text里指定y轴位置（设为0.5居中），关闭继承主美学，避免fill的干扰：

kfish %>%
  filter(!is.na(Killifish)) %>%
  ggplot(aes(x = treatmentType, fill = Killifish)) +
  geom_bar(position = "fill", color = "black") +
  facet_grid(Year ~ Seasonshort) +
  # 添加文本，指定y位置，关闭继承主aes
  geom_text(
    data = data_text,
    aes(label = lab, x = treatmentType),
    y = 0.5,
    inherit.aes = FALSE,
    size = 4 # 可根据需要调整文本大小
  ) +
  theme_bw() +
  xlab("站点类型") +
  ylab("样本比例 \n") +
  scale_fill_manual(values = blues9[c(1, 3, 5, 8)])

关键说明 #

• anti_join用来筛选出没有数据的分面组合，确保每个空白区域都能对应到文本数据。
• inherit.aes = FALSE避免继承主图层的fill=Killifish，防止因缺失Killifish值导致的错误。
• y=0.5让文本在分面垂直居中，因为条形图用了position="fill"，y轴范围是0到1。

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