使用R中的SF对象将比例更改为LAT/LONG

Question

恐怕我只是无法弄清楚。我正在尝试使用县的集合来绘制各州/美国地区的地区； 这是一个示例文件（ak_test.csv）。

数据取自urbn_map数据集territories_counties。我的理解是，此数据使用“简单功能”（sf）几何形状，因此所有多边形数据都存储在每个县级对象的几何列中。

这是我要绘制的代码：

g <- ggplot(ak_test)
g <- g + geom_sf(aes(geometry = geometry, fill = Region), 
                 color = "black", show.legend = FALSE)
g <- g + geom_sf_label_repel(aes(geometry = geometry, label = County))
g <- g + coord_sf()
g

这是输出：

我不了解轴上的单元，但我希望它们在lat/long中 - 我认为这是目的coord_sf（）函数的功能。我尝试添加X和Y限制（使用状态的大致边界），但是当我这样做时，图像从页面上掉落。

在其他情况下，输出似乎旋转/倾斜（请参阅俄勒冈州/爱达荷州/蒙大拿州的图像） - 我希望转换为lat/long。 net/5dq97.png“ rel =“ nofollow noreferrer”>

Answer 1

这些数字是< / em>纬度 /经度，但它们与所需的坐标系统不同。您需要使用适当的CRS重新投影数据：

library(sf)
library(ggplot2)
library(ggrepel)

url <- "https://raw.githubusercontent.com/Doc-Midnight/Test_Dir/main/AK_Test2"

ak_test <- source(url)

ak_test <- ak_test$value

ak_test$geometry <- st_transform(ak_test$geometry, "WGS84")

g <- ggplot(ak_test)
g <- g + geom_sf(aes(geometry = geometry, fill = Region), 
                 color = "black", show.legend = FALSE)
g <- g + geom_sf_label(aes(geometry = geometry, label = County))
g + labs(x = "longitude", y = "latitude")

注意，我不知道geom_sf_label_repel来自哪里附带问题。