如何比较两个数据框列表对应元素，相等返回'x'不等返回'o'？

问题背景 #

拥有两个列表lst1和lst2，需检查两个列表对应位置的元素是否相等：相等返回x，不相等返回o。自定义的对比函数无法正常运行，函数代码如下：

checkreferencevalue <- function (ref,attk){ifelse(ref == attk, 'x','o')}

原因分析 #

该函数本身是针对单个向量的对比逻辑，但输入是列表结构，无法直接对整个列表执行元素级对比，需要遍历列表中的对应元素对来执行函数。

解决方法 #

基础版（直接对比） #

使用mapply遍历两个列表的对应元素，将自定义函数应用到每一组向量上：

# 保留原函数逻辑
checkreferencevalue <- function(ref, attk) {
  ifelse(ref == attk, 'x', 'o')
}

# 遍历列表执行对比，SIMPLIFY=FALSE保证结果仍为列表格式
result <- mapply(checkreferencevalue, lst1, lst2, SIMPLIFY = FALSE)

进阶版（处理浮点数精度） #

由于是浮点数对比，直接用==可能因精度误差导致误判，建议添加容差判断：

# 改进函数：用容差判断近似相等
checkreferencevalue <- function(ref, attk) {
  # 设置容差为1e-8，可根据需求调整
  ifelse(abs(ref - attk) < 1e-8, 'x', 'o')
}

result <- mapply(checkreferencevalue, lst1, lst2, SIMPLIFY = FALSE)

查看结果 #

直接打印result即可，其中result[[n]]对应lst1[[n]]与lst2[[n]]的元素对比结果。

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