我使用以下代码使用ggplot2绘制了以下两个图形。

p <- ggplot() +
  geom_line(data = campaigns_profit_3months,aes(y = clients_3monthsBefore,x = c(1:41),group = 1,color = "Clients 3 Months Before"),size = 1 ) +
  geom_line(data = campaigns_profit_3months,aes(y = clients_3monthsAfter,color = "Clients 3 Months After"),size = 1 )  + 
  xlab('Campaigns') + ylab('Clients') + ggtitle('Clients 3 months before and after the campaigns') +
  scale_x_continuous(breaks = seq(1,41,1)) + scale_y_continuous(limits=c(0,200)) +
  theme(legend.title=element_blank())

q <- ggplot() +
  geom_line(data = campaigns_profit_6months,aes(y = revenue_6monthsBefore,color = "Revenue 6 Months Before"),size = 1 ) +
  geom_line(data = campaigns_profit_6months,aes(y = revenue_6monthsAfter,color = "Revenue 6 Months After"),size = 1 )  + 
  xlab('Campaigns') + ylab('Revenue (USD)') + ggtitle('Revenue 6 months before and after the campaigns') +
  scale_x_continuous(breaks = seq(1,200000)) +
  theme(legend.title=element_blank())

plot(p)
plot(q)

有没有一种方法可以使用Plotly创建两个选项来添加滑块或按钮（不知道这是否是正确的术语） 3 months revenue和6 months revenue，选择第一个选项将显示第一个图，选择第二个选项将显示第二个图？