dplyr ggplot中的交互式绘图R

Question

我想基于我创建的dplyr管道创建交互式图表。我不完全确定这是否可行，但如果有效则会非常惊人。 这是代码。我基本上想要一个下拉菜单，我可以根据可用的唯一选项（已注释掉）过滤rxid。 如果可能的话，我想避免闪亮，但我想如果需要可以使用闪亮的。

    drugname <- c('cipro', 'moxi','tazo')
    lhoabx %>%
      #filter (rxid %in% 'drugname' ) %>% (drop down menu here?)
      group_by (locationid, month) %>%
      summarise (totaldot = sum(as.numeric(dot))) %>%
      right_join(pdays.summary, by = c('locationid', 'month')) %>%
      mutate (totaldot = case_when( is.na(totaldot) ~ 0
                                    ,TRUE ~ totaldot )) %>%
      mutate(dot1000 = totaldot/totalpdays * 1000) %>%
      ggplot (., aes(x = month, y = dot1000)) + 
      geom_line(aes(linetype = locationid))