如何识别R中多个数据框的共有列？验证实现方法正确性

全局环境数据框的循环方法 #

你给出的循环方法逻辑是正确的，但需要补充两处初始化代码才能正常运行：

1. 先定义要遍历的数据框名称向量：files <- c("file_1", "file_2", "file_3")
2. 初始化存储列名的列表：column_names <- list()

完整可运行代码如下：

file_1 <- data.frame(A = 1:5, B = 6:10, C = 11:15)
file_2 <- data.frame(A = 1:5, D = 16:20, E = 21:25)
file_3 <- data.frame(B = 6:10, C = 11:15, F = 26:30)

# 补充初始化代码
files <- c("file_1", "file_2", "file_3")
column_names <- list()

for (file in files) {
  data <- get(file)
  column_names[[file]] <- colnames(data)
}

all_columns <- unique(unlist(column_names))
matrix <- sapply(column_names, function(cols) all_columns %in% cols)
rownames(matrix) <- all_columns

matrix_df <- as.data.frame(matrix)
print(matrix_df)

运行后会生成一个以所有唯一列名为行、数据框名为列的布尔矩阵，清晰展示每个列名在对应数据框中的存在情况。

列表存储数据框的方法 #

你给出的列表处理方法完全正确，且相比循环更简洁高效，不需要额外处理全局环境的变量名称，直接对数据框列表操作即可。示例代码如下（先构建数据框列表）：

file_1 <- data.frame(A = 1:5, B = 6:10, C = 11:15)
file_2 <- data.frame(A = 1:5, D = 16:20, E = 21:25)
file_3 <- data.frame(B = 6:10, C = 11:15, F = 26:30)

# 构建数据框列表
mylist <- list(file_1 = file_1, file_2 = file_2, file_3 = file_3)

all_columns <- unique(unlist(lapply(mylist, colnames)))
matrix <- sapply(mylist, function(df) all_columns %in% colnames(df))
rownames(matrix) <- all_columns

matrix_df <- as.data.frame(matrix)
print(matrix_df)

该方法逻辑清晰，避免了get()函数的使用，更符合R的函数式编程风格，结果与循环方法一致。

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