如何在ggplot2中基于分组频率条件绘制geom_text文本

方法1：直接在geom_text中通过ifelse控制标签显示 #

无需提前处理数据，利用stat(count)自动计算每组样本量，通过ifelse判断计数是否符合条件，仅在满足时显示数字，否则显示空文本：

library(ggplot2)

set.seed(123) # 固定随机种子，确保结果可复现
df <- data.frame(
  group= c("A","A","B","B","B","C",rep("D",4)),
  value= runif(10)
)

ggplot(df, aes(x=as.factor(group), y=value)) +
  geom_boxplot() +
  geom_text(
    aes(label = ifelse(..count.. == 1, ..count.., "")),
    y=0.5, 
    stat = "count"
  )

方法2：提前预处理数据（匹配你提到的group_by+summarise思路） #

先通过dplyr统计每组计数，筛选出符合条件的组，再用该子集绘制文本，逻辑更清晰：

library(ggplot2)
library(dplyr)

set.seed(123)
df <- data.frame(
  group= c("A","A","B","B","B","C",rep("D",4)),
  value= runif(10)
)

# 统计每组计数，筛选出计数为1的组
count_df <- df %>%
  group_by(group) %>%
  summarise(count = n(), .groups = "drop") %>%
  filter(count == 1)

ggplot(df, aes(x=as.factor(group), y=value)) +
  geom_boxplot() +
  geom_text(
    data = count_df,
    aes(x=group, y=0.5, label=count),
    inherit.aes = FALSE # 取消继承原数据的y映射，避免冲突
  )

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