R语言如何将函数逐对应用于等长的对象列表与对应字符串列表

你原有代码无法达到预期有两个问题：

1. 函数定义时拼写错误：定义写的是myfuntion（漏了function里的字母c），调用时用的是myfunction，本身就会触发找不到函数的报错；
2. lapply的参数传递逻辑不符合需求：跟在被调用函数后面传入的参数，会作为固定常量传给每一次函数执行——也就是说你写的filename=filename_list，会让每次调用myfunction时都传入完整的整个字符串列表，而不是对应位置的单个字符串。

你可以根据自己的使用习惯选下面任意一种写法，都能实现两个等长列表按位置一一配对传参的效果：

方案1：使用基础自带的Map函数（零额外依赖，最适配当前场景） #

Map本身就是为多输入按位置迭代设计的函数，不需要写匿名函数，直接传入自定义函数和两个等长的入参集合即可，返回结果格式和lapply一致，都是列表：

# 修正函数名拼写
myfunction <- function(object, filename) {
  # 此处填写你的自定义函数逻辑
}

object_list <- list(a, b, c)
string_list <- c("a", "b", "c")

# 自动按位置配对传参：第1次传object_list[[1]]+string_list[[1]]，以此类推
result <- Map(myfunction, object_list, string_list)

如果需要把结果简化为向量/矩阵格式，可以换成mapply(myfunction, object_list, string_list, SIMPLIFY = TRUE)。

方案2：lapply遍历索引（逻辑最可控，适合多参数扩展场景） #

如果更习惯用lapply的逻辑，可以直接遍历两个列表共有的索引，每次按索引取对应位置的元素传入函数，后续要加更多按位置配对的参数时扩展也很方便：

result <- lapply(seq_along(object_list), function(i) {
  myfunction(
    object = object_list[[i]],
    filename = string_list[[i]]
  )
})

方案3：使用purrr::map2（tidyverse生态常用写法） #

如果你日常使用tidyverse系列工具包，可以直接调用purrr中专为双输入迭代设计的map2函数，语义更直白：

library(purrr)
result <- map2(object_list, string_list, myfunction)

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