跨多个列求和

时间:2017-05-04 18:21:15

标签: r

我想这是一个非常基本的问题,但我有点迷茫。我有三个变量:A,B和C,范围从0到4。我想计算那些等于1的总数并用总和创建一个新变量。例如,如果变量A和B等于1,则新变量SumABC将等于2.我尝试使用mutate进行此操作,但我知道必须有一种更简单的方法。

x <- mutate(z,
 SumABC = 
  ifelse(A == 1, 1, 
  ifelse(B ==1, 1, 
  ifelse(C ==1, 1, 
  ifelse(A ==1 & B ==1, 2,
  ifelse(A ==1 & C ==1, 2,
  ifelse(B ==1 & C ==1, 2,
  ifelse(A ==1 & B ==1 & C == 1, 3, 0))))))))

1 个答案:

答案 0 :(得分:1)

也许不是最复杂的,但它有效:

df <- data.frame(A=sample(0:4,10,replace = T),B=sample(0:4,10,replace = T),C=sample(0:4,10,replace = T))

df$EQ1 <- rowSums(df == 1)

# Output

df

   A B C EQ1
1  2 3 3   0
2  1 4 4   1
3  1 3 4   1
4  2 4 3   0
5  1 4 1   2
6  1 3 1   2
7  1 2 2   1
8  1 4 4   1
9  2 4 4   0
10 2 3 4   0

编辑:

或者如果你喜欢矢量(相同大小):

vecs <- sapply(c('A','B','C'),function(x) sample(0:4,10,replace = T),simplify = F)

tsum <- (vecs$A == 1)*1 + (vecs$B == 1)*1 + (vecs$C == 1)*1

# output

> tsum
 [1] 0 0 1 0 0 0 0 1 0 0