Увеличение оси Y при использовании plotly :: rangelider

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 на FALSE для 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