在数据框的所有列上循环“相同”函数

Question

给定一个数据框，例如：

df <- data.frame(A.a = c("a","b","c"),
                 A.b = c("a","b","c"),
                 A.c = c("aa","bb","cc"),
                 B.a = c("w","x","y"))

我想在数据框的所有列上循环“相同”函数。 到目前为止，我已经能够创建这个函数：

loop.col.identical <- function(df){
    for i in colnames(df){
        cat(identical(df[[i]], df[[i]]))
    }
}

但它只是将每一列与它们自己进行比较，为所有内容输出 TRUE。我想确定 cols A.a 和 A.b 是相同的，但 A.c 是不同的，因为它也应该是相同的。 请注意，这是一个小例子，我的真实数据有更多的列和行。

P.d：抱歉，我在手机上

Answer 1

如果我正确理解您的问题，您希望在数据框中的各个列之间进行成对匹配。

expand.grid(x=colnames(df), y=colnames(df)) %>% 
  mutate(match = map2_lgl(x,y, ~identical(df[[.x]],df[[.y]]))) %>%
  spread(x,match)

这是输出：

    y   A.a   A.b   A.c   B.a
1 A.a  TRUE  TRUE FALSE FALSE
2 A.b  TRUE  TRUE FALSE FALSE
3 A.c FALSE FALSE  TRUE FALSE
4 B.a FALSE FALSE FALSE  TRUE

根据您的需要，您可以忽略最后一个spread 操作。

Answer 2

这是一个想法。

首先，创建一个新的数据框，其中包含两列显示要比较的列名。请注意，我删除了具有相同名称和相同比较的那个。

dat <- expand.grid(x = names(df), y = names(df))
dat <- dat[dat$x != dat$y, ]
dat <- data.frame(t(apply(dat, 1, sort)), stringsAsFactors = FALSE)
dat <- dat[!duplicated(dat), ]
names(dat) <- c("x", "y")

之后，我们可以使用mapply循环组合并生成如下输出。

dat$Result <- mapply(function(x, y){
  identical(df[[x]], df[[y]])
}, dat$x, dat$y, SIMPLIFY = TRUE)

dat
#      x   y Result
# 2  A.a A.b   TRUE
# 3  A.a A.c  FALSE
# 4  A.a B.a  FALSE
# 7  A.b A.c  FALSE
# 8  A.b B.a  FALSE
# 12 A.c B.a  FALSE

更新

正如@thelatemail 所述，combn 函数使第一部分变得简单。

dat <- data.frame(t(combn(names(df), 2)), stringsAsFactors = FALSE)

dat$Result <- mapply(function(x, y){
  identical(df[[x]], df[[y]])
}, dat$X1, dat$X2, SIMPLIFY = TRUE)

dat
#    X1  X2 Result
# 1 A.a A.b   TRUE
# 2 A.a A.c  FALSE
# 3 A.a B.a  FALSE
# 4 A.b A.c  FALSE
# 5 A.b B.a  FALSE
# 6 A.c B.a  FALSE