使用R添加下拉菜单到曲线图

Question

我希望在绘图图形中添加一个下拉功能，该图形将突出显示所选的id变量，并使所选id的行变为不同的颜色。生成我考虑的图表类型的代码示例是

library(tidyverse)
library(plotly)
set.seed(2001)

## make 10 random data series
data <- data.frame(
  t = rep(1:50, 10),
  id = sort(rep(1:10, 50)),
  y = rnorm(500)
 )

## cumulate the random variates by group
data <- data %>%
 group_by(id) %>% 
 mutate(y2 = cumsum(y))

## plot 
plot <- data %>% 
 plot_ly(x = ~ t, y = ~y2, text = ~id) %>% 
 add_lines(split = ~id, color = I('gray'), alpha = 0.5) %>% 
 hide_legend() 
plot

我要做的是创建一个下拉选择选项，以便我可以选择说id = 3，并将对应于id = 3的那一行更改为蓝色，将所有其他行保持为灰色。我发现如何通过下拉菜单改变整体风格，但无法找到这个具体问题。提前谢谢。

安德鲁