How to create stacked area chart not filled area chart?

Hi all,

Please help me to create stacked area chart with R in Plotly. So far, Plotly just supports filled area chart look like this code:

library(plotly)
plot_ly(x = c(1, 2, 3, 4),
        y = c(0, 2, 3, 5),
        fill = "tozeroy") %>%
  add_trace(x = c(1, 2, 3, 4),
            y = c(3, 5, 1, 7),
            fill = "tonexty")

Thanks in advance!