R语言函数定义中省略号(...)的分场景使用方法问询

省略号(...)的核心作用 #

• 用来收集调用函数时传入的未显式定义的所有额外参数，比如调用PLOT(data, col="red", pch=19)时，col和pch会被...收集。
• 可以直接传递给内部函数（如plot(data, ...)），但这种方式会让所有接收...的内部函数拿到完全相同的参数，这就是你原来两张图样式一致的原因。
• 若要给多个内部函数传递不同参数，需要对...收集的参数进行拆分，或通过参数组列表分别指定每个内部函数的参数。

问题1：分别调整两张子图的样式 #

要实现图1红色、图2蓝色，最佳方式是在自定义函数中设置两个列表参数，分别接收两张图的专属参数，再通过do.call将参数传递给plot函数：

data <- 1:10

PLOT <- function(data, fig1_args = list(), fig2_args = list()){
  par(mfrow = c(1, 2))
  
  # 调用plot并传入图1的参数
  do.call(plot, c(list(x = data), fig1_args))
  
  # 调用plot并传入图2的参数
  do.call(plot, c(list(x = data), fig2_args))
}

# 调用时分别指定两张图的颜色
PLOT(data = data, 
     fig1_args = list(col = "red"), 
     fig2_args = list(col = "blue"))

do.call的作用是将参数列表拆解后传递给目标函数，c(list(x = data), fig1_args)会把数据和图1的参数合并成一个完整的参数列表，再传给plot。

问题2：同时处理公共参数与专属参数 #

如果需要部分参数同时作用于两张图（如标题、隐藏x轴），部分参数仅作用于单张图（如颜色、线型），可以结合公共参数（或用...接收公共参数）和专属参数列表，通过modifyList合并参数：

方式1：用...接收公共参数（更符合使用习惯） #

data <- 1:10

PLOT <- function(data, ..., fig1_args = list(), fig2_args = list()){
  par(mfrow = c(1, 2))
  
  # 将...收集的公共参数转为列表，与图1专属参数合并
  common_args <- list(...)
  plot1_full <- modifyList(common_args, fig1_args)
  do.call(plot, c(list(x = data), plot1_full))
  
  # 合并公共参数与图2专属参数
  plot2_full <- modifyList(common_args, fig2_args)
  do.call(plot, c(list(x = data), plot2_full))
}

# 调用：公共参数直接传入，专属参数放在对应列表中
PLOT(data = data, 
     main = "Testing", xaxt = "n",  # 公共参数：标题、隐藏x轴
     fig1_args = list(col = "red", lty = 2),  # 图1：红色虚线
     fig2_args = list(col = "blue", lty = 1)) # 图2：蓝色实线

方式2：显式定义公共参数列表 #

如果你更倾向于明确区分公共参数和专属参数，可以单独设置common_args参数：

library(utils) # modifyList属于utils包，默认已加载

data <- 1:10

PLOT <- function(data, common_args = list(), fig1_args = list(), fig2_args = list()){
  par(mfrow = c(1, 2))
  
  plot1_full <- modifyList(common_args, fig1_args)
  do.call(plot, c(list(x = data), plot1_full))
  
  plot2_full <- modifyList(common_args, fig2_args)
  do.call(plot, c(list(x = data), plot2_full))
}

# 调用时将公共参数放入common_args列表
PLOT(data = data, 
     common_args = list(main = "Testing", xaxt = "n"),
     fig1_args = list(col = "red", lty = 2),
     fig2_args = list(col = "blue", lty = 1))

modifyList会将第二个列表的参数覆盖第一个列表中同名的参数（如果有冲突），确保专属参数优先级高于公共参数。

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