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

R 如何将绘图填充到给定的y0值,r,plotly,r-plotly,R,Plotly,R Plotly,我在R中使用Plotly,我想创建一个如下的绘图: 但尝试使用fill=“tozeroy”时,绘图如下所示: 忽略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, 1

我在R中使用Plotly,我想创建一个如下的绘图:

但尝试使用fill=“tozeroy”时,绘图如下所示:

忽略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 = ""))
library(plotly)
图书馆(magrittr)

x如果我理解正确,您希望范围从
y0
开始。 为此,您必须更改
布局
中的
yaxis
”范围

这应足以:

library(plotly)
library(magrittr)
set.seed(19)

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)

y0 <- 80
ymax <- max(y1,y2)

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',  name = "y2")%>%
  layout(xaxis = list(title = ""), yaxis = list(range = c(y0, ymax),title = ""))
library(plotly)
图书馆(magrittr)
种子(19)

x如果我理解正确,您希望范围从
y0
开始。 为此,您必须更改
布局
中的
yaxis
”范围

这应足以:

library(plotly)
library(magrittr)
set.seed(19)

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)

y0 <- 80
ymax <- max(y1,y2)

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',  name = "y2")%>%
  layout(xaxis = list(title = ""), yaxis = list(range = c(y0, ymax),title = ""))
library(plotly)
图书馆(magrittr)
种子(19)

请提供一个可复制的示例。这将使其他人更容易帮助您。请提供一个可复制的示例。这将使其他人更容易帮助你