是否可以绕过/忽略自定义功能中的参数

Question

只是为了澄清，不打算重新打开，因为我将开始一个后续问题：

• 这不是关于在dplyr中使用ifelse的问题。
• 这是关于通过自定义函数中的参数传递的问题。由于某些（未提及）原因，这很重要！

原始问题：

我有这个示例，其中有mtcars数据集：

• 基本上删除了数据帧然后绘制。
• 我想知道是否可以通过此功能忽略过滤变量z：

# create a custom function
my_function <- function(df, x, y, z) {
  df %>% 
    filter(am == z) %>% 
  ggplot(aes(x = {{x}}, y={{y}}))+
    geom_col()
}

使用filter am == 0 ＆lt; - 工作

my_function(mtcars, cyl, mpg, 0)

<强>使用过滤器am == 1 ＆lt; - 工作

my_function(mtcars, cyl, mpg, 1) 

希望忽略过滤器参数以获取所有数据＆lt; - 工作不忽略过滤器参数

my_function(mtcars, cyl, mpg)

Error in `filter()`:
  ! Problem while computing `..1 = am == z`.
Caused by error:
  ! argument "z" is missing, with no default

Answer 1

这是关于使用默认值。

我建议有一个默认的z = null，
然后您的功能看起来像这样。\

# create a custom function
my_function <- function(df, x, y, z = NULL) {
  
  if (!is.null(z)) {
   df <-  df %>% 
      filter(am == z)
  }
  
df %>% 
    ggplot(aes(x = {{ x }}, y = {{ y }})) +
    geom_col()
}

my_function(mtcars, cyl, mpg, 0)

my_function(mtcars, cyl, mpg, 1) 
my_function(mtcars, cyl, mpg)