Блог

Допустим, у меня есть эти данные:

 df<-data.frame("Row_id"=c(1,2,3,4,5,6,7,8),"A"=c(1,0,1,0,1,0,0,1),"B"=c(0,1,1,0,0,0,0,1),"C"=c(1,0,0,0,0,0,0,1),"D"=c(0,0,0,0,0,0,0,1),"E"=c(0,0,0,0,0,0,0,1),"F"=c(0,0,0,0,0,0,0,1))
  

И, как вы можете видеть, в большинстве строк все значения одинаковы. Но допустим, я хочу создать новую переменную (или две на самом деле), которая говорит мне:

• Все ли в этой строке одинаково для переменных от A до F
• Какие из них были «1», если не совпадают

Так, например, в приведенных выше данных я бы получил новые столбцы, которые выглядели так:

Помечено как tidyverse, потому что, я думаю, я бы предпочел это, но гибкий.

Мы можем использовать rowSums столбцы, кроме первого столбца, для создания логического вектора путем сравнения со вторым столбцом. Если сумма по строке равна ‘n1’, затем преобразуйте ее в числовой индекс, добавив 1, и используйте это, чтобы изменить значения на ‘Нет’, ‘Да’. Затем мы создаем «Другой» столбец, перебирая строки, paste names элементы, которые не равны 0 (здесь мы также могли бы использовать ifelse на основе «Того же» столбца

 n1 <- ncol(df[-1])
df$Same <- c("No", "Yes")[(rowSums(df[-1]  == df[,2]) == n1)   1]
df$Different <-  apply(df[2:7], 1, function(x)
        if(!all(x == 1)) toString(names(x)[x !=0 ]) else "")