使用dplyr测试多个列中的值是否相同

Question

我在数据帧中有一些列是字符变量。下面给出了我感兴趣的列的两行示例：

a <- rep('Agree', 20)
b <- rep(c('Disagree', 'Agree'), 10)
dat <- data.frame(rbind(a,b), stringsAsFactors = FALSE)

我想确定所有列具有相同值的行。例如，使用dplyr mutate，我想创建一个名为“allSame”的新变量，其中“dat”第一行的值为“yes”，第二行的值是“no”。

我还想按数字而不是名称对列进行索引，因为某些变量具有很长的名称，并且数据帧中有多个列集，我想为此执行此操作。

Answer 1

如果要独立迭代每一行，请使用sapply。它可能值得查找泛函

a <- rep('Agree', 20)
b <- rep(c('Disagree', 'Agree'), 10)
df <- data.frame(a, b, stringsAsFactors =F)


df <- mutate(df, same = sapply(1:nrow(df), function(i){
  if(a[i] == b[i]){'yes'} else {'no'}
}))

重命名应使用名称

names(df) <- paste0('index_', 1:length(names(df))

Answer 2

以下是检查您是否有相同答案(即全部同意或全部不同意)的一种方法。我创建了一个最小的样本，并做了以下工作。您希望检查每一行是否只有“同意”或“不同意”。您可以使用逻辑检查。< code>mydf == "Agree"返回一个包含T或f的矩阵。使用< code>rowSums()，您可以计算T在每行中出现的次数。如果结果等于ncol(mydf)，在本例中是3，那么您只有“同意”。如果你有0，你只有“不同意”。我猜你希望这些案子是肯定的。< code>allSame中的TRUE表示是。

mydf <- data.frame(col1 = c("Agree", "Agree", "Disagree"),
                   col2 = c("Agree", "Disagree", "Disagree"),
                   col3 = c("Agree", "Disagree", "Disagree"),
                   stringsAsFactors = FALSE)

#      col1     col2     col3
#1    Agree    Agree    Agree
#2    Agree Disagree Disagree
#3 Disagree Disagree Disagree

mydf %>%
mutate(allSame = (rowSums(mydf == "Agree") == 0 |
                  rowSums(mydf == "Agree") == ncol(mydf)))

#      col1     col2     col3 allSame
#1    Agree    Agree    Agree    TRUE
#2    Agree Disagree Disagree   FALSE
#3 Disagree Disagree Disagree    TRUE

鉴于上述情况，您会这样做：

dat %>%
mutate(allSame = (rowSums(dat == "Agree") == 0 |
                  rowSums(dat == "Agree") == ncol(dat)))