带有弹出窗口的条形图

Question

我使用Shiny制作一个地理位置显示健康数据的应用程序（使用传单），但我还希望将数据显示为条带图，以便轻松可视化数据的均值，分布，分位数。现在我使用ggplot制作1-d图并覆盖箱图。但是，我真正想要的是，当我点击一个点时，允许弹出窗口显示。

有没有办法在ggplot中制作弹出式窗口？如果没有，我应该在什么软件包中复制我在这里的内容，但添加弹出功能？

我在这里：

  testdf <- data.frame(vxals = c(1, 4, 6, 8, 100))      
  TestPalette <- colorNumeric(palette = rev(brewer.pal(5, "RdYlGn")), domain = testdf$xvals)

  ggplot(testdf, aes(x = 1, y = xvals, color = xvals)) +
        geom_boxplot(width= 0.03) +
        geom_point(size = 5) +
        scale_color_gradientn(colors = TestPalette(range(testdf$xvals))) +
        geom_vline(slope = NULL, intercept = 1, color = "green") +
        coord_flip() +
        theme(aspect.ratio = 0.1)