渲染信封而不是错误条？

Question

下面的R片段以对数拟合和误差条完美地绘制数据，以获得与数据源的标准偏差。

我想更改误差线以使用信封，就像我使用geom_smooth。

然而，我无法从我的数据中接受gem_smooth接受ymin / ymax。它总是使用其他算法自动计算包络，这不是我想要的。我已经尝试了geom_smooth和stat_smooth的十几个选项，我无法弄清楚如何使用我的数据集中的特定最小/最大值渲染信封。

library(ggplot2)

temperature <- c(19.89, 19.46, 19.35, 19.16, 19.13, 19.14, 19.02, 19.07, 19.03, 19.03, 19.09, 19.00, 18.98, 19.02, 18.96, 18.81, 18.68, 18.60, 18.89, 18.84)
temperature_stddev <- c(0.045, 0.595, 1.035, 1.370, 1.610, 1.775, 1.915, 2.030, 2.125, 2.200, 2.255, 2.330, 2.360, 2.445, 2.455, 2.520, 2.915, 2.810, 2.750, 2.680)
data <- data.frame(time=(1:length(temperature)),temperature=temperature,temperature_stddev=temperature_stddev)

ggplot(data, aes(x=time, y=temperature), fill="green") +
    geom_errorbar(aes(ymin=temperature-temperature_stddev, ymax=temperature+temperature_stddev), colour="black", width=.1) +
    geom_point() +
    geom_line() +
    stat_smooth(method="lm",formula=y~log(x),fill="red")