我想根据对多个列施加的某些条件创建一个新列。例如，这是一个示例数据集：
a <- data.frame(x=c(1,0,1,0,0), y=c(0,0,0,0,0), z=c(1,1,0,0,0))
a
x y z
1 1 0 1
2 0 0 1
3 1 0 0
4 0 0 0
5 0 0 0
具体来说，如果存在任何特定的行 1，则新列返回 1。如果全部为 0，则新列返回 0。因此具有新列的数据集将是
x y z w
1 1 0 1 1
2 0 0 1 1
3 1 0 0 1
4 0 0 0 0
5 0 0 0 0
我最初的想法是使用%in%，但无法得到我想要的结果。感谢您的帮助！
【问题讨论】：
标签： r data-manipulation recode
如果您的数据框由二进制值组成，例如，只有0 和1，您可以使用rowSums 尝试下面的代码
a$w <- +(rowSums(a)>0)
这样
> a
x y z w
1 1 0 1 1
2 0 0 1 1
3 1 0 0 1
4 0 0 0 0
5 0 0 0 0
【讨论】：
2-(a >= 1) * (a <= 5)重新编码
我们可以从matrixStats使用rowMaxs
library(matrixStats)
a$w <- rowMaxs(as.matrix(a))
a$w
#[1] 1 1 1 0 0
【讨论】：
你可以找到每一行的max：
a$w <- do.call(pmax, a)
a
# x y z w
#1 1 0 1 1
#2 0 0 1 1
#3 1 0 0 1
#4 0 0 0 0
#5 0 0 0 0
这也可以通过apply 来完成：
a$w <- apply(a, 1, max)
【讨论】：