在R语言中如何同时删除多个数据集的2个及以上多余列？

• 核心思路是把所有数据集归集到列表中批量处理，避免重复编写单数据集操作代码，全程仅需数行代码即可完成50个数据集的列清理。

基础R实现（无需安装第三方包） #

# 批量提取所有州名对应的数据集到列表，R内置state.name已经包含全部50个美国州名
state_dfs <- mget(state.name)

# 自定义你需要删除的冗余列名，可按需增减
drop_cols <- c("冗余列1", "冗余列2", "不需要的列3")

# 批量删除所有数据集的指定列，自动过滤不存在的列避免报错
state_dfs_clean <- lapply(state_dfs, function(df) {
  df[, !names(df) %in% intersect(drop_cols, names(df))]
})

# 将处理完成的数据集批量写回全局环境，直接替换原有数据集
list2env(state_dfs_clean, envir = .GlobalEnv)

tidyverse/dplyr 实现（代码更简洁易读） #

library(dplyr)

# 批量提取数据集到列表
state_dfs <- mget(state.name)
drop_cols <- c("冗余列1", "冗余列2", "不需要的列3")

# 批量删列，any_of参数自动兼容不存在的列
state_dfs_clean <- lapply(state_dfs, function(df) {
  df %>% select(-any_of(drop_cols))
})

# 批量更新全局环境的数据集
list2env(state_dfs_clean, envir = .GlobalEnv)

补充说明 #

• 如果你的数据集命名不是标准美国州名，只需把state.name替换为自定义的数据集名称向量即可，比如df_names <- c("alabama", "alaska", ..., "wyoming")，再把mget(state.name)改成mget(df_names)
• 更推荐用「保留指定列」的逻辑替代删除列逻辑，稳定性更高：只需把判断条件改为names(df) %in% 要保留的列向量，dplyr中对应改为select(all_of(keep_cols))即可，避免误删未统计到的有效列。

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