求助：如何为ggplot的geom_count添加数据标签（palmerpenguins数据集）

你的问题出在：geom_text默认使用原始数据集，不会像geom_count那样自动统计每组的数量，所以直接调用n或者after_stat(n)会失效。下面给两种可行的解决办法：

方法1：先手动汇总数据（更直观，适合新手） #

先通过分组统计得到每个物种-岛屿组合的企鹅数量，再基于汇总后的数据绘图：

library(tidyverse)
library(palmerpenguins)

# 先汇总数据
penguins_summary <- penguins_raw %>%
  group_by(Species, Island) %>%
  summarise(n = n(), .groups = "drop")

# 绘图
ggplot(data = penguins_summary, mapping = aes(x = Species, y = Island)) +
  geom_point(aes(size = n, color = n)) +  # 用geom_point替代geom_count，效果一致
  geom_text(aes(label = n), color = "#ffffff", vjust = 0.5)  # 直接用汇总后的n作为标签

方法2：在geom_text中指定统计类型 #

不用提前汇总，直接让geom_text执行和geom_count一样的统计逻辑，只需指定stat="count"，并通过after_stat(n)获取统计后的数量：

ggplot(data = penguins_raw, mapping = aes(x = Species, y = Island)) +
  geom_count(aes(color = after_stat(n))) +
  geom_text(
    stat = "count",  # 告诉geom_text执行计数统计
    aes(label = after_stat(n)), 
    color = "#ffffff",
    vjust = 0.5  # 调整标签位置，避免和点重叠
  )

两种方法都能实现你要的效果，第一种逻辑更清晰，适合理解数据流程；第二种更简洁，不用额外处理数据集。

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