弹射器的R小叶添加标记参数值

Question

(nombres '((a b d) a (5 g) (b) (7 m) j (8 h l g))) 
3

addMarkers不会打印任何弹出窗口。我甚至尝试格式（k）代替as.character（k））。对于以下代码，将按预期显示单个弹出窗口。我做错了吗？

m <- leaflet() %>% 
addPolygons(data = SP) %>%
addTiles()
for(k in 1:nrow(rfcCleaned))
{
 lat = rfcCleaned$Latitude[k]
 long = rfcCleaned$Longitude[k]
 addMarkers(m, lng, lat, popup = as.character(k))  
}
m    

提前致谢

Answer 1

要添加标记，不需要在循环中绑定它们。您可以在贴砖后将它们添加到管道命令。

以下是我用于显示标记的示例数据。

       id   slon   slat
        2 93.089 25.054
        3 93.038 24.939
        4 92.988 24.825
        5 92.937 24.710
        6 92.886 24.596
        7 92.835 24.482

R查询

library(leaflet) ex1map<-leaflet() %>% addTiles() %>% addMarkers(ex1map, lat = ex1$slat,lng = ex1$slon,popup = as.character(ex1$id))

在下图中，我可以看到各自身份证的弹出窗口。

Answer 2

如果你不想添加另一列id，这是另一种替代解决方案。

数据ex2包含您在上述评论中提供的记录。

ex2map <- leaflet() %>% addTiles() %>% addMarkers(ex2, lat = ex2$Latitude,lng = ex2$Longitude,popup = as.character(1:nrow(ex2)))

注意：您的数据有重复记录，因此将显示最后找到的重复记录的弹出窗口