多个数据帧中的多个相同列 - R

Question

我有四个data frames ，其中一个类似的列名为“类型”。

df1 <- data.frame(Type = c('A','B','C','D','E','F'))
df2 <- data.frame(Type = c('A','B','C','D','E','F'))
df3 <- data.frame(Type = c('A','B','C','D','E','F'))
df4 <- data.frame(Type = c('A','Z','C','D','E','F'))

我想检查此列在所有data frames中是否相同。

目前，我正在使用以下方法一次检查两个数据帧：

as.integer(as.logical(identical(df1$Type, df2$Type)))

如果相同，则为 1，否则为 0。

我想执行如下一行：

as.integer(as.logical(identical(df1$Type, df2$Type, df3$Type, df4$Type)))

但identical只能一次处理 2 列。

我还在R 中找到了针对多个相同列的测试，但这仅适用于一个data frame中的列。

Answer 1

您可以使用从数据框中提取Type列并将任何一个元素与所有元素进行比较。

list_df <- mget(paste0('df', 1:4))
#Or manually creating a list
#list_df <- list(df1, df2, df3, df4)

tmp <- lapply(list_df, `[[`, 'Type')
all(sapply(tmp, function(x) all(x == tmp[[1]])))
#[1] FALSE