如何在 R 上创建复杂条件变量

Question

我有四个二元是/否变量。 我想创建一个按以下方式进行虚拟编码的组合变量：

• 0 如果参与者对所有 4 个变量说“是”(4/4)
• 1 如果参与者对 4 个变量中的 3 个说“是”(3/4) )
• 2 如果参与者对 4 个变量中的 2 个说“是”(2/4)
• 3 如果参与者对 4 个变量中的 1 个说​​“是”(1/4)
• 4 如果参与者对 0 说“是” 4 个变量中的 (0/4)

他们回答“是”的问题的顺序并不重要

我尝试创建这样的内容：

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

但我肯定错过了一些东西

任何帮助将不胜感激！

Answer 1

这？

> 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