R ggplot2:如何在子组箱形图中绘制2组的平均值？

install.packages("ggplot2")

library(ggplot2)

data <- data.frame(Group = c(rep("Group 1", 100), rep("Group 2", 100)),
                   Value = c(rnorm(100, mean = 0, sd = 1), rnorm(100, mean = 2, sd = 1)))

p <- ggplot(data, aes(x = Group, y = Value))

p <- p + geom_boxplot(fill = "lightblue", color = "black")

p <- p + stat_summary(fun = mean, geom = "point", shape = 23, size = 3, fill = "red", color = "black")

p <- p + labs(title = "Boxplot with Mean", x = "Group", y = "Value")

print(p)