R的plotly中堆叠图的垂直线（ablines）

有没有办法在plotly中将ablines添加到子地块？我有一个共同的x轴和两个不同的图形堆叠在一起。我想以指定的间隔画垂直线，在本例中，假设x=30和x=70。我尝试使用segments（）函数，但仍然出现错误：

排序错误（id，递减=F）：找不到对象“id” 通过去掉segments函数，绘图很好，没有任何边界

这是我的密码

data <- data.frame("Time" = 1:100, "y1" = rnorm(100), "y2" = rnorm(100))

df <- data %>% 
  tidyr::gather(variable, value, -Time) %>%
  transform(id = as.integer(factor(variable))) 

 df$variable <- factor( df$variable, levels = unique( df$variable))

  p <- plot_ly(data = df,x = ~Time, y = ~value, color = ~variable, colors = "Dark2",
          yaxis = ~paste0( "y",sort(id, decreasing = F))
          ) %>%
    add_lines() %>% 
    plotly::subplot(nrows = length(unique(df$variable)), shareX = TRUE)
  
  p %>%
add_segments(x = 30, xend = 30, y = -10, yend = 10) %>%
add_segments(x = 70, xend = 70, y = -10, yend = 10)

数据%
转换（id=as.integer（因子（变量）））
df$可变%
plotly:：子批（nrows=length（唯一（df$variable）），shareX=TRUE）
p%>%
添加_段（x=30，xend=30，y=-10，yend=10）%>%
添加_段（x=70，xend=70，y=-10，yend=10）