在R中的动态图上显示数据序列周围的错误条

我想在dygraph上的数据系列周围显示错误条，如此链接（）中的图像。我使用了下面的r代码来绘制动态图

weather_final <- read.csv("C:/Users/User/Desktop/weather_data.csv")
weather_final1<- as.data.frame(weather_final  , header=True)
library(dygraphs)
library(xts)

s <- xts(weather_final1[, 2:3 ], order.by=as.POSIXct(weather_final1$Datetime,"%Y/%m/%d %H:%M" ))

head(s)
dygraph(s)%>% 
  dyRoller(showRoller = TRUE,rollPeriod = 48)%>% 
  dyHighlight(highlightSeriesBackgroundAlpha = 2,
              hideOnMouseOut = TRUE )%>%
  dyRangeSelector(height = 40, strokeColor = "RED")%>%
  dyAxis("y", label = "Temp (0C)", valueRange = c(10, 40) )%>%
  dyAxis("y2", valueRange = c(10, 100)) %>%
  dyAxis("y2", label = "RH (%)",independentTicks = TRUE) %>%
  dySeries("RH", axis = 'y2')

---

您没有提供可复制的示例，因此这里有一个基本示例，使用内置数据改编自：

# Data and fake confidence intervals
set.seed(5)
dat = cbind(ldeaths, 
            lwr=ldeaths - rnorm(length(ldeaths), 500, 20), 
            upr=ldeaths + rnorm(length(ldeaths), 500, 20))

dygraph(dat) %>%
  dySeries(c("lwr","ldeaths","upr"))

---

请提供一个可复制的例子。@Mohammadian，这里是样本数据。绘制“误差条”需要说明一个统计模型，而你没有说可能是什么。我已经尝试过了，但不起作用。最好提供CSV数据。如何上载？由于无法上载CSV数据，因此将示例数据添加到帖子中。获取与您发布的相同的示例数据，并使用

dput

重新发布。只需粘贴到dput（data\u sample）的输出中即可。您的数据不包括置信区间的值。由于这些值取决于模型，您希望如何计算它们？

# Data and fake confidence intervals
set.seed(5)
dat = cbind(ldeaths, 
            lwr=ldeaths - rnorm(length(ldeaths), 500, 20), 
            upr=ldeaths + rnorm(length(ldeaths), 500, 20))

dygraph(dat) %>%
  dySeries(c("lwr","ldeaths","upr"))