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

我从这里下载了形状文件来绘制爱荷华州的县-

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

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

---

我是这个领域的新手，非常感谢在这个问题上的任何帮助。

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

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

mymap%st_变换（crs=4326）
str（mymap）
图书馆（单张）
#在shp中映射多边形
mymap%>%
传单（）%>%
addTiles（）%>%
addPolygons（）

---

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

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

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

mymap%st_变换（crs=4326）
str（mymap）
图书馆（单张）
#在shp中映射多边形
mymap%>%
传单（）%>%
addTiles（）%>%
addPolygons（）

---

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

看来您需要更改您的CRS<代码>mymap%st_变换（crs=4326）。试试这个。然后，

单张（data=mymap）%%>%addTiles（）%%>%addPolygons（）

。我可以在电脑屏幕上看到爱荷华州的多边形。@jazzurro这太棒了。你能告诉我你为什么要更换crs吗？请看警告信息。这说明了一切。@jazzurro很有趣。。。再次感谢！看来您需要更改您的CRS<代码>mymap%st_变换（crs=4326）。试试这个。然后，

单张（data=mymap）%%>%addTiles（）%%>%addPolygons（）

。我可以在电脑屏幕上看到爱荷华州的多边形。@jazzurro这太棒了。你能告诉我你为什么要更换crs吗？请看警告信息。这说明了一切。@jazzurro很有趣。。。再次感谢！