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

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
}

（来自https://stackoverflow.com/a/24310574/972791）