Применение любых строк по строкам

Question

В R любая функция применяется к столбцам, что результат является логическим. Каков наилучший способ применить его по строкам? Моя цель в этом случае сделать перекодирование для А, если А, В или С составляет 1 или 6. (Если TRUE TEST $ NEW должен быть 101)

Вот мой DataFrame:

A B C D 
    1 1 1 "A" 
    2 1 2 "B" 
    3 6 3 "C" 
    5 3 5 "D" 

Это может быть сделано таким образом, но должно быть умнее решение:

TEST$NEW <- ifelse(TEST$A == 1 | TEST$B == 1 | TEST$C == 1 | TEST$A == 6 | TEST$B == 6 | TEST$C == 6, 101, NA) 

Answer 1

TEST$NEW <- ifelse(apply(TEST,1,function(x) any(x==1|x==6)),101,NA) 

Answer 2

Один из способов сделать это, но может быть более простой:

df <- read.table(textConnection('A B C D 
1 1 1 "A" 
2 1 2 "B" 
3 6 3 "C" 
5 3 5 "D"'), header=TRUE) 

test <- rowSums(sapply(df[,c("A","B","C")], function(v) v %in% c(1,6))) 
df$TEST <- ifelse(test>0, 101, NA) 

Что дает:

A B C D TEST 
1 1 1 1 A 101 
2 2 1 2 B 101 
3 3 6 3 C 101 
4 5 3 5 D NA 

Answer 3

Другой подход:

TEST$NEW <- 101 * apply(TEST, 1, function(x) any(x %in% c(1, 6)))^NA 

    A B C D NEW 
1 1 1 1 A 101 
2 2 1 2 B 101 
3 3 6 3 C 101 
4 5 3 5 D NA