我正在尝试按照以下链接中的示例创建包含所有标记的地图
源文件如下
https://www.dropbox.com/s/az1yolknqwoxhb4/test_file.csv?dl=0
还有我试过的代码
library(dplyr)
library(leaflet)
test_map <- read.csv("test_file.csv", header = TRUE, stringsAsFactors = FALSE)
m <- leaflet(test_map) %>% addTiles('http://{s}.basemaps.cartocdn.com/dark_all/{z}/{x}/{y}.png',
attribution='Map tiles by <a href="http://stamen.com">Stamen Design</a>, <a href="http://creativecommons.org/licenses/by/3.0">CC BY 3.0</a> — Map data © <a href="http://www.openstreetmap.org/copyright">OpenStreetMap</a>')
m %>% setView()
m %>% addCircles(~long, ~lat,
popup=test_map$index,
weight = 3,
color="#ffa500", stroke = TRUE, fillOpacity = 0.8)
Run Code Online (Sandbox Code Playgroud)
我能够创建地图
但是,地图只显示了一小部分点,因为我拥有的数据遍布加拿大各地。当我尝试对像多伦多这样的城市进行子选择时,就会出现一些缺失的点。
我不确定我是做错了什么还是这是一个错误。我想知道我是否有办法解决这个问题,或者有没有其他方法可以实现类似的地图?
谢谢 :)
小智 5
test_map 变量中有 NA 值。
添加
test_map <- na.omit(test_map)
Run Code Online (Sandbox Code Playgroud)
阅读csv后。
通过这种方法,我的标记比您的图像多。