如何使用ggplot绘制具有预先计算的汇总统计信息的多个变量？

# 导入ggplot2包
library(ggplot2)

# 创建一个数据框，包含多个变量
data <- data.frame(
  group = rep(c("A", "B", "C"), each = 5),
  var1 = rnorm(15),
  var2 = runif(15),
  var3 = rpois(15, 2)
)

# 使用ggplot函数创建一个空白的绘图对象，并指定数据来源为data数据框
p <- ggplot(data, aes(x = group))

# 添加几何对象，例如点、线、柱状图等
# 这里使用geom_point来绘制每个组别下的var1、var2和var3的均值点
# 使用stat_summary函数来计算每个组别下的均值，并将其显示为点
p <- p + stat_summary(aes(y = var1), fun = "mean", geom = "point", size = 3, color = "red")
p <- p + stat_summary(aes(y = var2), fun = "mean", geom = "point", size = 3, color = "blue")
p <- p + stat_summary(aes(y = var3), fun = "mean", geom = "point", size = 3, color = "green")

# 添加坐标轴标签和标题
p <- p + labs(x = "Group", y = "Value", title = "Summary Statistics")

# 显示图形
print(p)