如何在ggplot中添加统计值？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  group = rep(c("A", "B"), each = 5),
  value = c(3, 4, 2, 6, 5, 2, 5, 3, 4, 6)
)

# 绘制柱状图
p <- ggplot(data, aes(x = group, y = value)) +
  geom_bar(stat = "identity", fill = "steelblue") +
  theme_minimal()

# 计算统计值
stats <- data %>%
  group_by(group) %>%
  summarise(mean_value = mean(value),
            sd_value = sd(value))

# 在图表中添加统计值
p + geom_text(data = stats, aes(label = paste0("Mean: ", round(mean_value, 2))),
              vjust = -0.5, color = "white") +
  geom_text(data = stats, aes(label = paste0("SD: ", round(sd_value, 2))),
            vjust = -1, color = "black")