R语言同结构嵌套列表相减报错：non-numeric argument to binary operator

R语言中直接执行list1 - list2报错，是因为二元运算符-仅支持向量、矩阵等数值型对象的运算，嵌套列表无法直接通过该运算符实现逐元素相减，必须递归遍历两层列表的对应元素完成计算。

以下是三种可行的解决方案：

方法1：使用purrr包的嵌套map2 #

purrr包的map2函数可对结构相同的两个列表执行逐元素运算，针对两层嵌套的结构，需要嵌套调用map2：

# 未安装purrr则先执行安装
# install.packages("purrr")
library(purrr)

diff_list <- map2(list1, list2, ~map2(.x, .y, `-`))

方法2：基础R的mapply结合Map #

仅用基础R函数也能实现，外层用mapply遍历第一层列表，内层用Map处理第二层的数值向量：

diff_list <- mapply(function(a, b) Map(`-`, a, b), list1, list2, SIMPLIFY = FALSE)

方法3：自定义递归函数 #

如果需要适配更深层次的嵌套列表，可以编写递归函数自动遍历所有层级：

list_subtract <- function(x, y) {
  if (is.list(x) && is.list(y)) {
    mapply(list_subtract, x, y, SIMPLIFY = FALSE)
  } else {
    x - y
  }
}

diff_list <- list_subtract(list1, list2)

验证结果：执行str(diff_list)可查看结果结构，其与原列表结构完全一致，每个数值向量均为对应位置的差值（例如diff_list[[1]][["2000"]]会是全为4的向量）。

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