如何将绘图填充到给定的y0值

Question

我在R中使用Plotly，我想创建一个这样的情节：

但是当尝试使用fill =＆＃34; tozeroy＆＃34;情节看起来像这样：

忽略y0的值

所以，我想将线条填充到y0值，而不是绝对零。

代码示例：

library(plotly)
library(magrittr)

x <- seq.Date(as.Date("2017/01/01"), as.Date("2017/12/31"), by = 1)
y1 <- rnorm(365, 100, 10)
y2 <- rnorm(365, 100, 10)

dat <- data.frame(x, y1, y2)

plot_ly(dat, x = ~x, y = ~y1, mode = "lines", type = "scatter", fill = "tozeroy", y0 = 80, name = "y1") %>%
add_trace(dat, x = ~x, y = ~y2, fill = 'tozeroy', y0 = 80, name = "y2")%>%
layout(xaxis = list(title = ""), yaxis = list(title = ""))

生产：

忽略y0 = 80参数。