您好，我几乎可以肯定，必须有一种方法可以简化此代码，有人可以帮助我吗？我想到了功能或某种形式的申请吗？ 感谢您的建议，好的，所以基本上我有代表应答键的数据列和一个1或0（如果学生正确输入的话），我试图获取该数据并将1或0应用于“得分”列中。 132个问题和60个学生的东西。这种方法似乎适用于前42个方法，但是随后出现堆栈溢出，我尝试将其分成3个相同代码块，但现在我只是在所有列中进行“测试”。
dta$Score <- ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 1), dta$A1,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 2), dta$A2,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 3), dta$A3,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 4), dta$A4,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 5), dta$A5,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 6), dta$A6,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 7), dta$A7,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 8), dta$A8,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 9), dta$A9,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 10), dta$A10,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 11), dta$A11,
ifelse((grepl("F19", dta$Semester) & dta$F19.Question == 12), dta$A12,
"test"))))))))))))