R의 sapply - 반복하지 않고이 문제를 해결하는 방법

Question

sapply 사용 방법? 내 데이터 프레임에 400k 레코드가 있습니다. for 루프를 사용하지 않고 데이터를 b $ a1에 채워야합니다.

b <- a 
b[1:100,] 
for (i in 1:nrow(b)) { 
    if (b`$`x[i] > mean(b`$`x) & 
     b`$`y[i] > mean(b`$`y) & 
     b`$`z[i] < mean(b`$`z)) 
    { 
     b`$`a1[i] = '1' 
    } 
    else { 
     b`$`a1[i] = '0' 
    } 
} 
head(b) 

Answer 1

난 당신이 여기 ifelse()를 사용할 수 있다고 생각 :

b$a1 <- ifelse(b$x > mean(b$x) & b$y > mean(b$y) & b$z > mean(b$z), 1, 0) 

Akrun의 갱신 :

b$a1 <- as.integer(b$x > mean(b$x) & b$y > mean(b$y) & b$z > mean(b$z))