如何让自定义函数的可选labeller参数同时支持直接调用与省略号传递？

方案1：显式声明labeller可选参数 #

将labeller作为函数的显式可选参数（默认NULL），统一处理参数存在/不存在的场景，避免冗余分支：

library(ggplot2)
# 自定义NULL值处理函数，替代purrr::%||%
`%||%` <- function(x, y) if (is.null(x)) y else x

my_plot <- function(data, x_var, y_var, facet_var, labeller = NULL) {
  # 生成轴标题：根据labeller类型提取对应标签
  x_lab <- if (!is.null(labeller)) {
    if (inherits(labeller, "labeller")) {
      # 针对ggplot2内置labeller对象，直接调用获取标签
      labeller(x_var)
    } else if (is.list(labeller)) {
      # 针对命名列表形式的标签映射，匹配变量名
      labeller[[x_var]] %||% x_var
    } else {
      # 其他情况使用原变量名
      x_var
    }
  } else {
    x_var
  }
  
  # 构造facet_wrap参数列表，仅在labeller存在时传递
  facet_args <- list(facets = facet_var)
  if (!is.null(labeller)) {
    facet_args$labeller <- labeller
  }
  
  # 生成绘图对象
  ggplot(data, aes(x = .data[[x_var]], y = .data[[y_var]])) +
    geom_point() +
    labs(x = x_lab) +
    do.call(facet_wrap, facet_args)
}

优势 #

• 参数声明清晰，用户可直接感知labeller配置项
• 逻辑分支简洁，避免多层嵌套if/else
• 兼容ggplot2内置labeller对象和自定义命名列表两种标签形式

方案2：通过...提取labeller并传递facet_wrap参数 #

如果需要同时支持传递facet_wrap的其他参数（如nrow、scales），可以用...接收可变参数，再从中提取labeller用于轴标题生成：

library(ggplot2)
library(rlang)

my_plot <- function(data, x_var, y_var, facet_var, ...) {
  # 将...转换为列表，提取labeller参数
  facet_extra_args <- list2(...)
  labeller <- facet_extra_args$labeller
  
  # 生成轴标题，用case_when简化分支逻辑
  x_lab <- case_when(
    !is.null(labeller) && inherits(labeller, "labeller") ~ labeller(x_var),
    !is.null(labeller) && is.list(labeller) ~ labeller[[x_var]] %||% x_var,
    TRUE ~ x_var
  )
  
  # 移除可能存在的facets参数，避免覆盖传入的facet_var
  facet_extra_args$facets <- NULL
  
  # 用!!!拼接参数传递给facet_wrap
  ggplot(data, aes(x = .data[[x_var]], y = .data[[y_var]])) +
    geom_point() +
    labs(x = x_lab) +
    facet_wrap(facets = facet_var, !!!facet_extra_args)
}

优势 #

• 无需重复传参，labeller既用于轴标题又自动传给facet_wrap
• 支持用户通过...传递facet_wrap的其他配置参数，扩展性更强
• 用case_when替代多层if/else，代码更简洁易读

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