我正在尝试按照下面链接中的示例创建一个地图,其中包含所有标记。
源文件如下
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)
我成功创建了地图
然而,由于我拥有的数据遍布加拿大各地,因此地图仅显示了部分点。当我尝试选择一个城市,比如多伦多时,一些缺失的点会出现。我不确定是否做错了什么或者这是一个错误。我想知道是否有办法解决这个问题或者有没有其他方法实现类似的地图?谢谢 :)