r语言箱线图添加平均值

以下是添加平均值的r语言箱线图示例：

# 创建数据
set.seed(123)
data <- data.frame(group = rep(c("A", "B", "C"), each = 50),
                   value = rnorm(150, mean = c(10, 20, 30), sd = 5))

# 绘制箱线图并添加平均值
library(ggplot2)

ggplot(data, aes(x = group, y = value)) +
  geom_boxplot() +
  stat_summary(fun = mean, geom = "point", shape = 18, size = 3, color = "red")

解释：

首先，我们使用 set.seed() 函数设置随机数种子，确保每次运行代码得到的数据是一样的。
然后，我们创建一个包含分组和数值的数据框。
将数据框传递给 ggplot() 函数，设置 x 轴为分组，y 轴为数值。
使用 geom_boxplot() 函数绘制箱线图。
使用 stat_summary() 函数添加平均值，其中 fun = mean 表示计算平均值，geom = "point" 表示将平均值绘制为点，shape = 18 和 size = 3 分别表示点的形状和大小，color = "red" 表示点的颜色为红色。

运行上述代码将得到一个带有平均值的箱线图。