R彈出式菜單添加標記參數值

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

addMarkers不打印任何彈出窗口。我甚至試過格式（k）代替as.character（k））。對於以下代碼，按預期方式顯示單個彈出窗口。我做錯了什麼？R彈出式菜單添加標記參數值

m <- leaflet() %>% 
addTiles() %>% # Add default OpenStreetMap map tiles 
addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R") 
m # Print the map

在此先感謝

來源

2016-07-27 Aditya

你有什麼樣的數據 – PPC

@PPC 緯度 18.73605 18.73605 18.73605 18.7465 18.7465 18.7465 18.7465 18.73209 18.73209 18.73209 經度 73.53296 73.53296 73.53296 73.6281 73.6281 73.6281 73.6281 73.63924 73.63924 73.63924 您可以使用此數據預先感謝 – Aditya

我已經這樣做了，但因爲我的計算器成績是相當低，它將不可見是我得到的消息。 – Aditya

將其添加到捆成循環不需要標記。您可以簡單地將它們添加到切片後的管道命令。

這是我用來顯示標記的示例數據。

 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))

在下面的圖片，我能夠看到他們各自的ID的彈出窗口。

來源

2016-07-27 06:01:02 PPC

感謝@PPC，我猜addmarkers在for循環中不起作用。我忘了R將每個變量視爲一個向量，這就是爲什麼使用for循環的原因。 – Aditya

在情況下，如果你不希望添加ID的另一列，這裏是另一種替代解決方案。

data ex2有您在上述評論中提供的記錄。

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

注：您的資料有重複的記錄，所以彈出窗口將顯示在過去的重複記錄發現

來源

2016-07-27 06:13:37 PPC

R彈出式菜單添加標記參數值

回答

相關問題