如何在R中基于共同FIPS值批量缩减多个不同名称的数据框长度？

核心思路 #

先将所有目标数据框整合到列表中，提取并计算所有数据框FIPS的交集，再批量对每个数据框筛选该交集内的记录，一次性完成11个数据框的标准化处理。

具体代码实现 #

1. 将目标数据框存入列表 #

先列出所有11个数据框的名称，再将它们统一存入列表（方便批量操作）：

# 替换为你的11个数据框的完整名称
df_names <- c("Crime2018", "Gini", "S1901Income2018", "S1903Income2018", "XXX1", "XXX2", ...)
# 从全局环境中提取数据框并生成列表
df_list <- lapply(df_names, get)
# 给列表元素命名，对应原数据框名称
names(df_list) <- df_names

2. 计算所有数据框共有的FIPS #

提取每个数据框的FIPS列，通过Reduce(intersect, ...)找出所有数据框都存在的FIPS代码：

# 提取每个数据框的FIPS列组成列表
all_fips <- lapply(df_list, function(x) x$FIPS)
# 计算所有FIPS的交集
common_fips <- Reduce(intersect, all_fips)

3. 批量筛选数据框 #

对列表中的每个数据框，只保留FIPS在交集中的记录：

# 批量筛选
filtered_df_list <- lapply(df_list, function(x) x[x$FIPS %in% common_fips, ])

4.（可选）将筛选后的数据框放回全局环境 #

如果需要单独调用每个筛选后的数据框，可以将列表中的元素放回全局环境，可选添加后缀区分原数据框：

# 给筛选后的数据框添加"_filtered"后缀并放回全局环境
filtered_names <- paste0(df_names, "_filtered")
names(filtered_df_list) <- filtered_names
list2env(filtered_df_list, envir = .GlobalEnv)

# 如果需要直接覆盖原数据框（谨慎操作）：
# list2env(filtered_df_list, envir = .GlobalEnv)

方法优势 #

• 无需重复两两比对，一次操作完成所有11个数据框的标准化
• 兼容任意名称的数据框，不受命名规则限制
• 逻辑清晰，后续维护或调整数据框数量只需修改df_names即可

内容的提问来源于stack exchange，提问作者Steven Morrison