多个数据框中的多个相同列 - 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列。

我也发现了这个Testing for multiple identical columns in 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