Ggplotly 错误：是否可以结合 facet_wrap 和 Rangeslider？

问题描述

我正在尝试将范围滑块添加到使用 facet_wrap() 函数创建的 ggplotly 图。但是，我收到以下错误：“只能将范围滑块添加到具有一个 x 轴的绘图中”。这是因为 facet_wrap 产生了六个相同的 x 轴。

是否可以向这些类型的图表添加范围滑块？我使用以下代码来创建图形，它可以正常工作，直到最后添加了 Rangeslider() 函数。

library(tidyverse)
library(plotly)
dat <- read.csv("https://raw.githubusercontent.com/LucasTremlett/Proyecto-Visualizacion/master/owid-covid-data.csv")
p<-dat %>% select(new_cases_per_million,date,location) %>% 
  mutate(date = as.Date(date)) %>%
  filter(location=="Germany"| location=="Spain"| location=="Italy"| location=="United Kingdom"|
           location=="Netherlands" | location=="France")  %>% 
  ggplot(aes(x=date,y=new_cases_per_million)) + 
  geom_area(na.rm = TRUE) +
  facet_wrap( ~ location) +
  theme_minimal() +
  scale_y_continuous(limits=c(0,200)) +
  scale_x_date(limits = c(as.Date("2020-03-05"),as.Date("2020-05-06")),date_breaks = "3 weeks",date_labels = "%d-%b")

ggplotly(p,tooltip = c("x","y")) %>% 
  rangeslider() 

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）