How to Create a Complex Conditional Variable on R

Question

I have four binary yes/no variables. I want to create a combined variable that is dummy coded in the following manner:

• 0 if participants say "Yes" to all 4 Variables (4/4)
• 1 if participants say "Yes" to 3 out of the 4 Variables (3/4)
• 2 if participants say "Yes to 2 out of the 4 Variables (2/4)
• 3 if participants say "Yes" to 1 out of the 4 Variables (1/4)
• 4 if participants say "Yes" to 0 out of the 4 Variables (0/4)

The order of which questions they've said yes to does not matter.

I've tried to create something like this:

VariableCodingFor1/4 <- ifelse(Var1 =="Yes" & Var2 == "No" & Var3 =="No", Var4 =="No") |
ifelse(Var1 =="No" & Var2 == "Yes" & Var3 =="No", Var4 =="No") |
ifelse(Var1 =="No" & Var2 == "No" & Var3 =="Yes", Var4 =="No") |
ifelse(Var1 =="No" & Var2 == "No" & Var3 =="No", Var4 =="Yes") 

But I'm definitely missing something

Any help would be greatly appreciated !

Answer 1

This?

> set.seed(123)
> df=data.frame(matrix(sample(c("Yes","No"),24,T),6,4))
> rowSums(df=="Yes")
[1] 2 3 3 2 2 2
> 4-rowSums(df=="Yes")
[1] 2 1 1 2 2 2