在ggplot2中向DotPlot添加均值和胡须

# 安装和加载必要的包
if (!require(ggplot2)) {
  install.packages("ggplot2")
}
library(ggplot2)

# 创建示例数据
set.seed(123)
data <- data.frame(
  group = rep(c("A", "B"), each = 50),
  value = c(rnorm(50, mean = 50, sd = 10), rnorm(50, mean = 60, sd = 10))
)

# 计算均值和标准差
means <- aggregate(value ~ group, data, mean)
sds <- aggregate(value ~ group, data, sd)

# 合并数据
data <- merge(data, means, by = "group", suffixes = c("", ".mean"))
data <- merge(data, sds, by = "group", suffixes = c("", ".sd"))

# 绘制DotPlot并添加均值和胡须
ggplot(data, aes(x = group, y = value)) +
  geom_dotplot(binaxis = "y", stackdir = "center") +
  geom_point(aes(y = value.mean), size = 3, color = "red") +
  geom_errorbar(aes(ymin = value.mean - value.sd, ymax = value.mean + value.sd), width = 0.2, color = "red") +
  labs(title = "DotPlot with Mean and Error Bars", x = "Group", y = "Value")