使用传单库在地图上绘制 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 "Europe" 行的 NA 值引起的。不确定为什么绘图会停止，但您至少可以尝试使用以下方式删除 NA 行：

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

使用传单库在地图上绘制 34 个点

using leaflet lib to plot 34 points on map

r

rstudio

leaflet