如何在R的lapply函数中使用当前列名实现答题准确性计算？

你的代码出错是因为colnames(data)[x]逻辑错误——这里的x是当前列里的每个数值（比如Q1列的1、2、3、4、5），不是列的索引，根本没法正确匹配到对应问题的参考答案，导致正确的情况因匹配失败返回NA。

下面是修正后的代码，核心思路是先把数值答案转成对应的类别，再通过列名匹配参考表的标准答案，最终生成正确/错误的二进制结果：

# 将参考表转换为命名向量，方便按列名快速匹配标准答案
ref_vec <- setNames(ref.table$Solution, ref.table$Question)

# 定义函数：把数值答案转成对应的类别（1-3→small，4-5→big）
num_to_category <- function(num) {
  ifelse(num %in% 1:3, "small", "big")
}

# 遍历原数据的每一列，生成正确度结果
accuracy <- data.frame(lapply(names(data), function(col_name) {
  # 把当前列的数值转成类别
  answer_category <- num_to_category(data[[col_name]])
  # 对比类别和标准答案，相等为1，否则为0
  as.integer(answer_category == ref_vec[col_name])
}))

# 给结果列设置和原数据一致的列名
colnames(accuracy) <- names(data)

运行后得到的accuracy就是你需要的二进制数据集：

Q1 Q2 Q3
1  0  1  0
2  0  1  0
3  0  1  1
4  1  0  1
5  1  0  1

如果你想要更简洁的写法，也可以用这行：

ref_vec <- setNames(ref.table$Solution, ref.table$Question)
accuracy <- sapply(data, function(x) as.integer(ifelse(x %in% 1:3, "small", "big") == ref_vec[deparse(substitute(x))])) %>% as.data.frame()

内容的提问来源于stack exchange，提问作者user20291515