使用plotly::rangeslider时缩放y轴

Question

我想放大使用 的绘图上的 y 轴rangeslider。

一个可重现的例子：

library(ggplot2)
library(plotly)
p <- ggplot(faithful, aes(x = waiting)) +
    geom_histogram(bins = 30)
p <- ggplotly(p)
p <- rangeslider(p)
p

我可以缩放的方式如下：

但是，我希望也能够像这样缩放（这是通过不添加 来完成的rangeslider）：

我认为这可以通过使用类似的东西来完成

p <- layout(p, dragmode = "zoom")

但我没能完成这项工作。

Answer 1

参考这个GitHub问题，可以通过设置fixedrange为FALSEfor来完成yaxis。

library(ggplot2)
library(plotly)

ggplot(faithful, aes(x = waiting)) +
  geom_histogram(bins = 30) -> p

ggplotly(p) %>% 
  layout(xaxis = list(rangeslider = list()),
         yaxis = list(fixedrange = FALSE)) -> p