首先编写一个函数来计算最小值、平均值-1SEM、平均值、平均值+1SEM 和最大值。然后使用以下方法将这 5 个值映射到箱线图上： stat_summary .

library(gridExtra)
library(ggplot2)

MinMeanSEMMax <- function(x) {
  v <- c(min(x), mean(x) - sd(x)/sqrt(length(x)), mean(x), mean(x) + sd(x)/sqrt(length(x)), max(x))
  names(v) <- c("ymin", "lower", "middle", "upper", "ymax")
  v
}

g1 <- ggplot(mtcars, aes(factor(am), mpg)) + geom_boxplot() +
  ggtitle("Regular Boxplot")

g2 <- ggplot(mtcars, aes(factor(am), mpg)) +
  stat_summary(fun.data=MinMeanSEMMax, geom="boxplot", colour="red") + 
  ggtitle("Boxplot: Min, Mean-1SEM, Mean, Mean+1SEM, Max")


grid.arrange(g1, g2, ncol=2)

非常好的答案，谢谢。您如何做同样的事情，但要使用子组？例如，如果您的 x 轴上有 0A、0B、1A 和 1B？

我认为这是可行的，但也可以竖立一个红色八边形的交通标志，上面写着“前方限速增加”，我认为这两种方式都会让人感到困惑，而不是有帮助。箱线图对各部分的含义有一个标准定义。当用户看到箱线图时，他们不必再费脑力去重新思考不同部分的含义。如果您不想表示这些标准摘要，为什么不使用不同的表示方法呢？ geom_crossbar 或 geom_errorbar 函数/几何体可能更适合您的显示（并且可能比尝试修改箱线图几何体更容易使用）。