在弹出标签中添加自定义信息：geoExploreR

Question

我是 Shiny 的新手，我正在玩 geoExplorer。这个应用程序结合了反应式 ggvis 和 Leaflet。

当您单击数据点时，会弹出一个标签，其中包含我们可以选择的输入变量的信息：https://github.com/davesteps/geoExploreR

我的问题是：除了输入/输出之外，我如何在这个程序中包含点击点的附加信息？例如，为我们单击的点添加一个标识符，该标识符可能包含在相同或辅助数据框中。

希望这是有道理的！

Answer 1

您正在查看的函数addPopups()，或者如果您想将弹出窗口附加到传单中的标记，请在标记命令中使用popup 参数。例如，如果您正在使用存储在名为mydat 的空间点数据框中的数据制作地图，并且您希望将数据 V1:V5 的列作为文本包含在弹出窗口中，您的代码可能类似于：

map = leaflet(data = mydat) 
map = addTiles(map)
map %>%
    addCircleMarkers(map,
        lng = longitude, # longitude
        lat = latitude, # latitude
        radius = 4, # fixed radius size
        color = ~pal(Result),
        popup = paste(mydat$Var1, " more text", "<br>",
              "Var2: ", mydat$Var2, "<br>",
              "Var3: ", mydat$Var3, "<br>",
              "Var4: ", mydat$Var4, "<br>",
              "Var5: ", mydat$Var5))
      )

您可以自定义弹出窗口中的文本，使其显示数据框中的数据。

一个很棒的（但有限的）资源是 R 网页的传单，涵盖弹出窗口：https://rstudio.github.io/leaflet/popups.html

这是我使用弹出窗口显示大量信息的传单的个人示例。 http://rpubs.com/richpauloo/Tulare_maps_v2。有一个 github 存储库的链接，您可以在其中查看源数据并自行运行。