我正在尝试使用传单绘制加利福尼亚州各县的地图。我没有收到任何错误,但地图没有产生正确的结果。
我找到了一个.shp
县线文件位于https://data.ca.gov/dataset/ca-geographic-boundaries。我导入了.shp
文件使用rgdal
,我尝试使用以下方法来绘制边界addPolygons()
功能。
` # Importing CA County Lines
ca_counties <- readOGR("Miller/CA_Counties/CA_Counties_TIGER2016.shp")
# Mapping County Lines
map1 <- leaflet() %>%
addTiles() %>%
addPolygons(data=ca_counties)
map1`
该程序生成的不是县线,而是一条贯穿整个地图的单线。我附上了输出的图像。
失败的地图
运行您的代码时,我收到以下警告:
Warning messages:
1: sf layer is not long-lat data
2: sf layer has inconsistent datum (+proj=merc +a=6378137 +b=6378137 +lat_ts=0.0 +lon_0=0.0 +x_0=0.0 +y_0=0 +k=1.0 +units=m +nadgrids=@null +wktext +no_defs).
Need '+proj=longlat +datum=WGS84'
将多边形投影到 WGS84 对我有用。我用的是sf
包,因为我发现它比rgdal
.
library(sf)
library(leaflet)
ca_counties <- sf::read_sf('CA_Counties_TIGER2016.shp') %>%
sf::st_transform('+proj=longlat +datum=WGS84')
map1 <- leaflet() %>%
addTiles() %>%
addPolygons(data=ca_counties)
map1
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)