如何基于不同长度的输入重复运行函数并遍历所有参数组合？

嗨，这个需求在R里其实有好几种实用的实现方式，我给你列几个常用的，你可以根据自己的习惯来选：

1. 最直观的嵌套循环（新手友好） #

如果刚接触R，嵌套for循环是最容易理解的方式，直接把两个向量的元素挨个配对调用函数就行：

首先先定义你的目标函数（这里我用一个简单的打印函数做示例，你换成自己的函数就行）：

my_function <- function(x_val, y_val) {
  # 这里替换成你实际的函数逻辑
  print(paste("参数组合：", x_val, y_val))
}

然后准备你的输入向量，再写嵌套循环：

x <- c("a", "b", "c")
y <- c(1, 2, 3, 4)

# 外层遍历x的每个元素，内层遍历y的每个元素
for (x_item in x) {
  for (y_item in y) {
    my_function(x_item, y_item)
  }
}

这样就能自动跑完3*4=12次函数调用，完全覆盖所有组合。

2. 用expand.grid + apply 简洁实现 #

如果你不想写嵌套循环，可以先用expand.grid生成所有参数组合的数据框，再用apply逐行调用函数：

# 生成包含所有参数组合的数据框
all_combinations <- expand.grid(x = x, y = y, stringsAsFactors = FALSE)

# 按行遍历数据框，把每行的x和y传给函数
apply(all_combinations, 1, function(row) {
  my_function(row[["x"]], row[["y"]])
})

expand.grid会帮你把x和y的所有可能组合都列出来，每行对应一组参数，apply的第二个参数设为1就表示按行处理。

3. tidyverse风格：purrr包的cross2 + map #

如果你平时习惯用tidyverse系列工具，purrr包的方法会更符合你的代码风格：

library(purrr)

# cross2生成所有参数组合的列表，每个元素是一组(x,y)
cross2(x, y) %>% 
  map(~ my_function(.x[[1]], .x[[2]]))

cross2会把x和y的元素两两配对，生成一个列表；map则会遍历这个列表，把每个子列表里的两个元素分别传给函数的两个参数。

另外补充一句：如果你的函数有返回值，这些方法都能帮你收集结果。比如用map_dfr可以把结果整理成数据框，用apply的话会返回一个包含所有结果的列表，嵌套循环的话可以提前创建一个向量/列表来存储每次的返回值~

备注：内容来源于stack exchange，提问作者Pedro Cardoso