Plotly R如何在时间序列图上应用非对称误差条

library(plotly)
# 导入时间序列数据
data <- read.csv("data.csv")

# 创建时间序列图
plot <- plot_ly(data, x = ~date, y = ~value, type = 'scatter', mode = 'lines')

# 添加上限误差条
plot <- plot %>% add_trace(y = ~upper_limit, name = 'Upper Limit', mode = 'lines', line = list(color = 'rgba(255, 0, 0, 0.5)'))

# 添加下限误差条
plot <- plot %>% add_trace(y = ~lower_limit, name = 'Lower Limit', mode = 'lines', line = list(color = 'rgba(0, 0, 255, 0.5)'))

# 设置图表布局
layout <- list(
  title = '时间序列图',
  xaxis = list(title = '日期'),
  yaxis = list(title = '值')
)

# 设置图表样式
plot <- plot %>% layout(layout)

# 显示图表
plot