我的 Shiny 应用程序采用这样的数据框:
并通过允许用户选择一个人 ( P1_name) 和一个日期 ( date)来适当地进行子集。
最初启动时,它看起来像这样:
很明显,该应用程序无法正常工作。Apple Valley镇的位置应该有一个字母'N',但实际上什么也没有。我不知道为什么,因为 DF 已正确子集化:
并且图层应该正确绘制:
m <- leaflet(DF) %>%
addTiles() %>% # Add default OpenStreetMap map tiles
setView(lat=setzoom[1], lng=setzoom[2], zoom=zoom_num) %>%
addMarkers(lat=subset(DF, P1_outcome=='W')$lat, lng=subset(DF, P1_outcome=='W')$lon, icon = icon_W) %>%
addMarkers(lat=subset(DF, P1_outcome=='L')$lat, lng=subset(DF, P1_outcome=='L')$lon, icon = icon_L) %>%
addMarkers(lat=subset(DF, P1_outcome=='D')$lat, lng=subset(DF, P1_outcome=='D')$lon, icon = icon_D) %>%
addMarkers(lat=subset(DF, P1_outcome=='N')$lat, lng=subset(DF, P1_outcome=='N')$lon, icon = icon_N)
Run Code Online (Sandbox Code Playgroud)
不幸的是,这只是我的应用程序显示的某种精神分裂症行为的一种症状。如果这是唯一的问题,我会很高兴。相反,假设我选择了 John Doe,在他的第一行(应该是 Crecent City)
和 BOOM 我得到:
如何在世界上没有单张认为我给了它2套坐标,以便进行绘图,什么使它认为李四是drowing在太平洋某处。
这里没有任何意义。我在它输出的混乱中看不到模式。它只有不到 100 行简单的代码。
一些想法: