如何在单个R函数中使...实现两种不同的功能用途？

首先得明确：R不允许在同一个函数里定义两个同名的...参数，所以你原来的bb <- function(..., ...)写法本身就是语法错误。我们需要把「收集多个数据向量」和「传递图形参数」这两个需求拆分处理，下面提供两种可行的方案：

方案一：拆分未命名数据和命名图形参数（推荐） #

利用...同时接收数据向量（未命名）和图形参数（命名），然后在函数内部把两者分开：

bb <- function(...) {
  # 把所有传入的参数存入列表
  all_args <- list(...)
  
  # 分离未命名的参数（作为数据向量）和命名的参数（作为图形参数）
  data_vecs <- all_args[names(all_args) == ""]
  plot_params <- all_args[names(all_args) != ""]
  
  # 定义内部函数aa，负责绘制密度图/添加线条
  aa <- function(x, add) {
    if (!add) {
      # 首次绘图：组合density结果和图形参数调用plot
      do.call(plot, c(list(x = density(x)), plot_params))
    } else {
      # 后续添加：组合density结果和图形参数调用lines
      do.call(lines, c(list(x = density(x)), plot_params))
    }
  }
  
  # 校验是否传入了数据
  if (length(data_vecs) == 0) {
    stop("请至少传入一个数据向量哦！")
  }
  
  # 循环绘制每个数据的密度图
  for (i in seq_along(data_vecs)) {
    aa(data_vecs[[i]], add = i != 1)
  }
}

测试示例 #

y1 <- rnorm(200) 
y2 <- rnorm(200) 

# 基础调用：生成两个重叠的密度图
bb(y1, y2)

# 带图形参数的调用：自定义颜色和线宽
bb(y1, y2, col = c("darkred", "steelblue"), lwd = 2, main = "重叠密度分布图")

方案二：明确区分数据参数和图形参数 #

如果希望代码更清晰，可以用...专门接收数据向量，用一个命名参数（比如plot_pars）接收图形参数（以列表形式传递）：

bb <- function(..., plot_pars = list()) {
  # 收集所有数据向量
  data_vecs <- list(...)
  
  # 定义内部函数aa
  aa <- function(x, add) {
    plot_call <- if (!add) plot else lines
    # 调用绘图函数并传递参数
    do.call(plot_call, c(list(x = density(x)), plot_pars))
  }
  
  if (length(data_vecs) == 0) {
    stop("请至少传入一个数据向量哦！")
  }
  
  for (i in seq_along(data_vecs)) {
    aa(data_vecs[[i]], add = i != 1)
  }
}

测试示例 #

# 基础调用
bb(y1, y2)

# 带图形参数的调用
bb(y1, y2, plot_pars = list(col = c("green", "purple"), lty = c(1, 2), main = "带样式的密度图"))

为什么原来的写法行不通？ #

1. 函数定义里重复的...是语法错误，R不允许参数名重复；
2. 即使只写一个...，list(...)会把所有传入的参数（包括图形参数）都收集进去，循环时会把col、lwd这类图形参数也传给aa的x，导致density(x)报错（因为x不是数值向量）。

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