如何在R中删除与另一数据框列名不匹配的列？

现有两个DataFrame：

# df（目标列结构）
> dput(df)
structure(list(first_column = c("value_1", "value_2"), second_column = c("value_1", 
"value_2")), class = "data.frame", row.names = c(NA, -2L))

# df_new（需要调整列结构的DataFrame）
> dput(df_new)
structure(list(first_column = c("value_1", "value_2"), second_column = c("value_1", 
"value_2"), third_column = c("value_1", "value_2")), class = "data.frame", row.names = c(NA, 
-2L))

需求：让df_new的列与df完全一致（即删除多余的third_column），但由于要批量处理多个不同结构的DataFrame，无法通过固定列索引实现，需要通过列名匹配完成。

方法1：基础R实现 #

直接提取df的列名来筛选df_new的列，无需手动指定索引：

# 直接保留df中存在的列
df_new <- df_new[, names(df)]

# 更严谨的写法：只保留两者共有的列（避免df有列在df_new中不存在的报错）
df_new <- df_new[, intersect(names(df_new), names(df))]

方法2：dplyr包实现 #

如果习惯使用tidyverse工具链，用select()函数结合all_of()更简洁：

library(dplyr)

df_new <- df_new %>% select(all_of(names(df)))

优势说明 #

• 两种方法都完全基于列名匹配，不受列顺序、列数量变化的影响，适合批量处理不同结构的DataFrame；
• 无需手动计算或指定列索引，避免因DataFrame结构变化导致的错误。

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