提取函数的用户编写的命令行

Question

我正在创建以下函数：

mymean <- function(x){
  xmean <- mean(x)
  xmean <- as.data.frame(xmean)
  xmean
     }

当我在下面的例子中使用这个函数时：

mymean(mtcars$mpg)

我得到这个结果：

    xmean
1 20.09062

如何在上面的结果中获取用户输入的实际变量名称（即mpg）而不是xmean ？ 谢谢

Answer 1

mymean <- function (x, xname=deparse(substitute(x))) {
  xmean <- mean(x)
  names(xmean) <- xname
  xmean
}

（来自 ）