如何用ggplot的geom_text将样本量标签定位在箱线图底部？

我使用以下ggplot代码生成可视化图表，其中通过geom_text(stat = "summary", fun="length")生成的样本量标签（数值5、10、6、8），希望将其统一固定在y轴刻度1的位置，但尝试了两种写法均无效：

原始代码 #

ggplot(data = Datos_Final, aes(x = Sex, y = Punt_Total)) +
  geom_violin(aes(color=Grupo),fill=NA, alpha = 0.2, show.legend = F, linetype="dotted" )+
  geom_boxplot(mapping = aes(fill=Grupo, color=Grupo), alpha=0.5, show.legend = F, width=0.5)+
  geom_point(aes(color = Grupo),position = position_jitter(seed = 23, width = 0.2, height = 0), size = 5, show.legend = F, alpha=0.6)+
  geom_point(stat = "summary", fun="mean", shape=15, size=5)+
  labs(y = "Rendimiento", x = "Grupo")+
  geom_text(stat = "summary", fun="mean", aes(label=round(..y..,2)), nudge_y = 1)+
  geom_text(stat = "summary", fun="length", aes(label=..y..))+
  facet_grid(.~Grupo, labeller = labeller(Grupo = c("Control"="Tradicional\n (Control)", "Experimental"="Digital\n (Experimental)")))+
  theme_apa7OS()+
  theme(strip.text = element_text(size = 16, color = "#595959"))

尝试过的无效写法 #

• 写法1：

geom_text(stat = "summary", fun="length", aes(label=..y.., y=1))+

• 写法2：

geom_text(stat = "summary", fun="length", aes(label=..y..), y=1)+

解决方案 #

问题根源是stat="summary"会自动将y值映射为统计计算结果（即样本量），直接设置的y=1会被这个统计值覆盖。以下两种方法可以解决：

方法1：利用after_stat强制固定y位置 #

修改样本量标签的geom_text代码为：

geom_text(stat = "summary", fun="length", aes(label=after_stat(y), y=1))+

这里after_stat(y)提取样本量作为标签文本，同时在aes内显式指定y=1，避免被统计变换的y值覆盖。

方法2：提前计算样本量，手动添加标签 #

先通过分组统计得到各组样本量：

library(dplyr)
sample_sizes <- Datos_Final %>%
  group_by(Sex, Grupo) %>%
  summarise(n = n(), .groups = "drop")

然后在ggplot中添加该数据的文本标签：

geom_text(data = sample_sizes, aes(x = Sex, y = 1, label = n), inherit.aes = FALSE)+

这种方式绕开了统计变换的冲突，更直观可控，适合需要精准定位的场景。

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