如何在调用ggplot的自定义函数中传递可选参数并沿用默认行为

我编写了一个调用ggplot的自定义函数，希望将geom_point的color这类参数设为可选。已知两种实现方式，但均不适用：

• 为可选参数指定默认值：实际场景中没有合适的默认值可用
• 用if语句包裹整个geom_point()调用：我的代码里ggplot已经处于if/else if/else分支中，这么做会导致大量嵌套if，代码变得繁琐不堪

想请教是否有办法传递参数让ggplot忽略该参数，直接沿用其默认行为？

以下是两种可行但不符合需求的基础示例：

library(ggplot2)
library(dplyr)

# 方案1：指定默认值——实际场景不可行，因为没有合适默认值
fun_default <- function(df, x, y, color="red"){
  p <- df %>%
    ggplot(aes({{x}}, {{y}})) + 
    geom_point(color=color)
  
  p
}

# 方案2：用if包裹整个geom_point——可行但繁琐，需重复写if/else逻辑
fun_if <- function(df, x, y, color=NULL){
  p <- df %>%
    ggplot(aes({{x}}, {{y}})) +
    {if(is.null(color)) { geom_point() }
    else { geom_point(color = color)}}
  p
}

# 测试调用
fun_default(mtcars, wt, mpg, color="blue")
fun_if(mtcars, wt, mpg, color="blue")
fun_if(mtcars, wt, mpg)

我曾尝试两种设想写法，但均不可行：

# 设想1：在geom_point内部嵌套if——语法错误，无法运行
fun_wish1 <- function(df, x, y, color=NULL){
  p <- df %>%
    ggplot(aes({{x}}, {{y}})) +
    geom_point( {if(!is.null(color)) {color=color}} )
  p
}

# 设想2：传入NA让ggplot忽略参数——实际会让点变成无色，不是默认行为
fun_wish2 <- function(df, x, y, color=NULL){
  if(is.null(color)) {color = NA}
  p <- df %>%
    ggplot(aes({{x}}, {{y}})) +
    geom_point(color=color)
  p
}

方法1：用rlang::exec动态传递参数 #

通过构建参数列表，仅当color不为NULL时才传入该参数，避免重复编写geom_point调用：

library(ggplot2)
library(dplyr)
library(rlang)

fun_exec <- function(df, x, y, color = NULL) {
  # 初始化空参数列表
  point_args <- list()
  # 仅当color有值时，添加到参数列表
  if (!is.null(color)) {
    point_args$color <- color
  }
  
  p <- df %>%
    ggplot(aes({{x}}, {{y}})) +
    exec(geom_point, !!!point_args)
  
  p
}

# 测试调用
fun_exec(mtcars, wt, mpg, color = "blue") # 自定义颜色
fun_exec(mtcars, wt, mpg) # 沿用ggplot默认颜色

方法2：用modifyList合并参数 #

利用modifyList动态合并默认参数和自定义参数，结合do.call调用geom_point：

library(ggplot2)
library(dplyr)

fun_modify <- function(df, x, y, color = NULL) {
  # 基础空参数列表（对应geom_point默认行为）
  base_args <- list()
  # 如果color不为空，更新参数列表
  if (!is.null(color)) {
    base_args <- modifyList(base_args, list(color = color))
  }
  
  p <- df %>%
    ggplot(aes({{x}}, {{y}})) +
    do.call(geom_point, base_args)
  
  p
}

# 测试调用
fun_modify(mtcars, wt, mpg, color = "green") # 自定义颜色
fun_modify(mtcars, wt, mpg) # 沿用默认颜色

这两种方法的优势是：无需重复编写geom_point的完整调用，也不会引入复杂的嵌套if，即使代码已经在if/else分支中，也能保持简洁。

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