使用傳單 lib 在地圖上繪制 34 個點

Question

我有一個 34 行 3 列的數據集。 列是國家/地區、緯度和經度。 我試圖在該地圖上繪制所有 34 個點。

代碼：

library(RODBC)
library(googleVis)
con <- odbcConnect("Data", uid = "username", pwd = "password")
Geo <- sqlQuery(con, "select * from ANA.R.vwGeo")

m <- leaflet() %>%
  addTiles() %>%  # Add default OpenStreetMap map tiles
  addCircles(lng=Geo$lon, lat=Geo$lat, popup=Geo$country)
m # Print the map

此代碼在地圖上打印圓圈，但只有 8 個。 檢查后我意識到它只繪制了前 8 行而忽略了其余的行？ 不知道如何改變這一點。

structure(list(country = c("Argentina", "Australia", "Austria", 
"Belgium", "Brazil", "Canada", "China", "Denmark", "Europe", 
"France", "Germany", "India", "Ireland", "Israel", "Italy", "Japan", 
"Korea, Republic of", "Norway", "Philippines", "Poland", "Portugal"
), lat = c(-36.536119, -24.211317, 47.751901, 50.755453, -11.066766, 
60.739101, 35.716703, 55.946866, NA, 46.97068, 51.295789, 22.518114, 
53.297545, 31.191818, 43.259406, 36.110262, 36.641155, 62.153742, 
15.137269, 52.22507, 39.77707), Ion = c(-64.653608, 134.654116, 
14.559724, 4.646748, -50.060384, -101.625, 103.696658, 9.554184, 
NA, 2.846033, 10.563983, 78.560473, -7.812353, 34.881909, 12.419802, 
138.462604, 128.085175, 9.363357, 121.232504, 19.452793, -7.908592
)), .Names = c("country", "lat", "Ion"), class = "data.frame", row.names = c(NA, 
-21L)) -> Geo

Answer 1

看看你的情節，這個問題很可能是由第 9 行“歐洲”的NA值引起的。 不知道為什么繪圖停止，但您至少可以嘗試刪除NA行：

Geo <- Geo[!is.na(Geo$lon) & !is.na(Geo$lat), ]