获取底图而不是通过数据指定的底图

Question

我从这里下载了用于绘制爱荷华县的 shapefile - https://geodata.iowa.gov/dataset/county-boundaries-iowa/resource/183e782f-2d43-4073-8524-fe8e634cf17a

但是，当我尝试绘制地图时，我只得到底图，而没有县级数据。

mymap<-st_read("county.shp")
str(mymap)
library(leaflet)
# map the polygons in shp
mymap %>% 
  leaflet() %>% 
  addTiles() %>% 
  addPolygons()

此外，我收到以下警告 -

Warning messages:
1: sf layer is not long-lat data 
2: sf layer has inconsistent datum (+proj=utm +zone=15 +datum=NAD83 +units=m +no_defs).
Need '+proj=longlat +datum=WGS84'

我是这个领域的初学者，非常感谢在此问题上的任何帮助。

Answer 1

使用@jazzurro 的评论作为未来搜索者的答案 -

mymap<-st_read("county.shp")%>% st_transform(crs = 4326)
str(mymap)
library(leaflet)
# map the polygons in shp
mymap %>% 
  leaflet() %>% 
  addTiles() %>% 
  addPolygons()

显然，我忘记指定导致问题的坐标参考系。

获取底图而不是通过数据指定的底图

Getting a base map instead of the one specified through data

r

r-leaflet

sf