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