如何在ggplot2中的每组底部添加geom_text标签

library(ggplot2)

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

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

# 计算每组的底部位置
bottom_positions <- data %>%
  group_by(group) %>%
  summarize(bottom = min(y))

# 在每组底部添加标签
p <- p +
  geom_text(
    data = bottom_positions,
    aes(x = x, y = bottom, label = group),
    vjust = -0.5
  )

# 显示图形
print(p)