r - R中ggplot2中具有3个标准差的折线图

我在ggplot2中制作了每个点的最大值和最小值的图

x=rep(1:10,3)
y_all = c(1:10,2:11,3:12)


data = as.data.frame(cbind(x,y_all))


pic_1 = ggplot(data, aes(x=data$x,y=data$y_all))
pic_2 = pic_1 + stat_summary(fun.y = mean, geom = 'line', colour = 'blue')
pic_3 = pic_2+stat_summary(fun.y = mean, geom = 'ribbon',fun.ymax = max, fun.ymin =min)
pic_4=pic_3+stat_summary(fun.y = mean, geom = 'line', colour ='red',size=1)

请告诉我，如何更改代码以帮助我绘制3个标准偏差，而不是最大值和最小值？

最佳答案

这可以通过两个辅助功能来完成，这些辅助功能计算ymin和ymax极限。
另外，我已经更改了第一个geom = 'line'调用的顺序。它被功能区覆盖了。

fun_ymin <- function(y) mean(y) - 3*sd(y)
fun_ymax <- function(y) mean(y) + 3*sd(y)

pic_1 <- ggplot(data, aes(x = x, y = y_all))
pic_2 <- pic_1 + stat_summary(fun.y = mean, geom = 'ribbon', fun.ymax = fun_ymax, fun.ymin = fun_ymin)
pic_3 <- pic_2 + stat_summary(fun.y = mean, geom = 'line', colour = 'blue', size = 2)
pic_4 <- pic_3 + stat_summary(fun.y = mean, geom = 'line', colour = 'red', size = 1)
pic_4