在R的sapply - 如何解决这个没有循环

Question

如何使用sapply？我的数据框中有40万条记录。数据需要填充到b $ a1而不使用for循环。

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))