如何添加默认元素`...`传递这些参数到另一个功能

Question

的时候，这里是什么，我希望发生的

myfun <- 
    function(...){ 

     # myfun only passes `...` on to the plot function 
     plot( 
      ... , 
      if(!'xlab' %in% names(list(...))) xlab = 'mylabel' , 
      if(!'ylab' %in% names(list(...))) ylab = 'ylabel' 
     ) 
    } 

# works the way i want: user specified `xlab` and `ylab` so `...` used them 
myfun(1 , 1 , xlab = "new label" , ylab = "another label") 

# fails 
myfun(1 , 1) 
# Error in plot.window(...) : invalid 'xlim' value 

，因为用户没有指定xlab和ylab最小的可重复的例子，我想让我的函数使用我设置的默认值。所以

plot(1 , 1 , xlab = 'mylabel' , ylab = 'ylabel') 

什么这样做，如果我有很多可能性，例如xlab和ylab最聪明的方法是什么？我可能需要为title=和xlim=和ylim=添加默认值，因此写出每个组合都不可行？谢谢！！

Answer 1

解决方案1 ​​

使自己的自定义包装到plot功能：

myplot <- function(x, y, xlab = 'mylabel', ylab = 'ylabel', ...){ 
    plot(x, y, xlab = xlab, ylab = ylab, ...) 
} 


myfun <- 
    function(...){ 

    # myfun only passes `...` on to the plot function 
    myplot(...) 

    } 

现在下面的调用工作，我想你想他们的工作：

myfun(1, 1) 
myfun(1, 1,xlab = "new label" , ylab = "another label") 

解决方案2

您还可以使用以下方式list(...)和do.call：

myfun <- 
    function(...){ 

    dots = list(...) 

    # check whether needed defaults are supplied, if not, supply them. 
    if ~grep('xlab', names(dots)){ 
     dots$xlab = 'mylabel' 
    }   
    if ~grep('ylab', names(dots)){ 
     dots$ylab = 'ylabel' 
    } 


    # myfun only passes `...` on to the plot function 
    do.call(plot, dots) 

    }