R中的nonconsus包

我试图利用R中的noncensus包连接包含县级fips代码的数据（“zip_代码”），以获取具有实际县名称的数据（“县”）

我的数据集包含100个观测值的邮政编码，我正在尝试匹配它们所在的县。县和邮政编码都有县fips代码，但当我加入它们时，它们不匹配，因为我返回了0个值

library(noncensus) 
data("zip_codes") 
data("counties") 
counties$county_fips <- as.numeric(as.character(counties$county_fips)) 
Test <- zip_codes %>% 
  left_join(counties, c("fips"="county_fips")) 
Test <- Test %>% 
  slice(1:5) %>% 
  select(zip, city, state.x, county_name)

库（非加密）
数据（“邮政编码”）
数据（“县”）
县$county_fips%
选择（邮政编码、城市、州、县名称）

如果R中还有其他包可以从邮政编码中获取该县的信息，我也愿意尝试一下

---

谢谢，

ZCTA FIPS代码与县FIPS代码没有关系。ZCTA也不在县内筑巢，可以跨越县边界。因此，您将需要没有其他对应表的空间方法。此R代码将执行以下操作：

library(tigris)
library(tidyverse)
library(sf)
options(tigris_use_cache = TRUE)
options(tigris_class = "sf")

cty <- counties(cb = TRUE) %>%
  select(cty_id = GEOID, cty_name = NAME)

zc <- zctas(cb = TRUE)

zipcty <- st_join(zc, cty)

库（底格里斯）
图书馆（tidyverse）
图书馆（sf）
选项（底格里斯河使用缓存=真）
选项（底格里斯河（tigris_class=“sf”）
cty%
选择（cty_id=大地水准面，cty_名称=名称）
zc查看一些示例数据、您尝试过的代码以及示例结果或错误消息会有所帮助。库（非加密）数据（“邮政编码”）数据（“县”）头（邮政编码）头（县）县$county\u fips%选择（zip、city、state.x、county\u name）它不会为县名称返回值
zip\u code
中的
fips
从1001开始，但
县中的
country\u fips
从001变为840。因此没有重叠，编码中使用的数字看起来确实不同。您必须深入研究每个数据集是如何构造的，以找出代码。您可以尝试使用
totalcensus
包来处理普查数据。有趣的是，我以前从未使用过底格里斯包。我期待着进一步深入这一方案。