如何手动将观测值n添加到ggplot2中的每个组？

library(ggplot2)

# 创建一个示例数据集
df <- data.frame(
  group = rep(c("A", "B", "C"), each = 3),
  x = rep(1:3, 3),
  y = c(2, 4, 3, 1, 5, 2, 3, 2, 4),
  n = c(10, 15, 8, 12, 9, 6, 7, 11, 14)
)

# 绘制散点图
p <- ggplot(df, aes(x, y, color = group)) +
  geom_point(size = 3)

# 添加观测值标签
p <- p + geom_text(aes(label = n), vjust = -0.5)

# 显示图形
print(p)