如何在R函数中对可变参数...进行循环遍历？

当然可行，核心是先把可变参数解析为列表，再在每次迭代中提取对应位置的参数组合，而非直接传入完整的参数向量。

原代码的问题 #

你当前的代码里，lapply中直接使用...会让每次plot调用都拿到完整的col = 2:3和pch = c(19,21)向量，最终所有绘图会循环使用这些向量的元素，而非每次迭代用单个对应值。

修改后的解决方案 #

下面是实现需求的可运行代码，同时支持混合单值和多值参数的场景：

foo <- function(...){  
  args <- list(...)
  
  # 处理参数长度：把短参数循环填充到最长参数的长度，兼容单值参数
  max_len <- max(lengths(args))
  args <- lapply(args, function(x) rep(x, length.out = max_len))
  n_plots <- max_len
    
  par(mfrow = n2mfrow(n_plots))
  
  lapply(1:n_plots, function(i) {
    # 提取第i次迭代对应的所有参数值
    current_plot_args <- lapply(args, `[[`, i)
    # 加入绘图的x轴数据
    current_plot_args$x <- 1:10
    # 用do.call调用plot，传入组装好的参数
    do.call(plot, current_plot_args)
  })
}

# 示例使用：混合单值参数（lwd=2）和多值参数
foo(col = 2:3, pch = c(19,21), lwd=2)

关键说明 #

1. 解析可变参数：用list(...)将传入的可变参数转为列表，方便逐个访问每个参数的元素。
2. 参数长度兼容：通过rep(x, length.out = max_len)把单值参数（比如lwd=2）自动循环填充，确保所有参数长度一致，支持混合单值和多值参数的场景。
3. 组装迭代参数：在每次迭代中，用lapply(args, [[, i)提取每个参数的第i个元素，组成当前绘图的参数列表。
4. 调用绘图函数：用do.call(plot, current_plot_args)来调用plot，避免手动拼接参数的麻烦。

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