直接在函数定义时设置参数的缺省值，这个参数在调用时不受缺省值的影响，例如：
myfunction<-function(na.rm=FALSE){
    cat('na.rm value is: ' ,na.rm, '\n');
}

调用：
myfunction(TRUE)

测试输出：
> myfunction(TRUE)
na.rm value is:  TRUE

mean1 <- function(...) mean(..., na.rm = TRUE)

谢谢！我搞明白啦

谢谢回复！已经搞明白了！