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

Question

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

当您在一个数据点点击，有一个弹出标签，包括我们可以选择输入变量的信息：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仓库，您可以查看源数据并自行运行。