r - 需要 r-markdown 的动态交互式折线图

Question

我在 R 中使用 ggplot2 创建了一个图形。多行的每一行都是一个单独的文件，因此我可以独立地为它着色。

ggplot() +
   geom_line(data = dat22, aes(x=YEAR, y=RO_MM, group = HUC8, color= HUC8))+
   geom_line(data = dat21, aes(x=YEAR, y=RO_MM, group = HUC8, color= HUC8))+
   geom_line(data = dat20, aes(x=YEAR, y=RO_MM, group = HUC8, color= HUC8))+ 
   geom_line(data = dat19, aes(x=YEAR, y=RO_MM, group = HUC8, color= HUC8))+
   geom_line(data = dat18, aes(x=YEAR, y=RO_MM, group = HUC8, color= HUC8))+
   scale_color_manual(values = c("gray","gray","gray","gray","gray"))

我认为这样可以很容易地为每个颜色添加一条线，以便我可以使图形具有交互性。目标是查看者单击图例中的一条线，该线将变为红色，他/她将能够将其与黑色的参考线进行比较。但与此同时，所有其他线条都将是不显眼的灰色。这可以单独为每一行完成。

我发现与交互式折线图几乎没有任何关系，也没有发现任何东西可以告诉我如何做到这一点。我最接近的是streamgraph，它创建了一个我不想要的堆叠图。有人知道怎么做吗？

标签： rggplot2r-markdown