是否可以在 R 中自定义绘图范围滑块？

Question

快速说明：我也在R Studio Community 上发布了这个问题。

我正在尝试修改一个绘图滑块，使其成为类似于此处的范围滑块：。

rangeslider() 函数的问题在于，它生成的不是像图像中那样的范围滑块，而是生成一个本质上是主图的子图：

dat<- data.frame(y=rnorm(366, mean=100, sd=50),
                 x=seq(as.Date("2020-01-01"), as.Date("2020-12-31"), by="days"))
p1<- dat %>% 
  ggplot(aes(x=x, y=y)) +
  geom_col() +
  theme_minimal() +
  xlab("") + ylab("") 
ggplotly(p1, tooltip="x", dynamicTicks = TRUE) %>% rangeslider()

.

我已经设法在 ggplot 的美学中使用frame = 获得了一个更类似于我想要的样式的滑块，但是生成的滑块一次只选择一个值而不是它们的范围：

dat<- data.frame(y=rnorm(366, mean=100, sd=50),
                 x=seq(as.Date("2020-01-01"), as.Date("2020-12-31"), by="days"))
p1<- dat %>% 
  ggplot(aes(x=x, y=y, frame=as.character(x))) +
  geom_col(position="dodge2") +
  theme_minimal() +
  xlab("") + ylab("") 
ggplotly(p1, tooltip="x")

.

是否可以用我想要的样式创建一个范围滑块？对于如何解决此问题的任何建议，我将不胜感激。

Answer 1

不幸的是，内置的 Plotly 滑块只有一个“手柄”，因此无法表示范围。