如何在用户定义的函数中使用xtabs？

Question

我正在尝试使用自定义函数为xtabs创建一个包装器。

我试过这样做：

xtabs_fun <- function(data, variable) {
  xtabs(~ variable, data = data)
}

但是使用它并不返回正确的值。

xtabs_fun(mtcars, "cyl")

cyl
1

预期产出应如下：

xtabs(~ cyl, data = mtcars)

cyl
 4   6   8
11   7  14

Answer 1

我们可以用reformulate

xtabs_fun <- function(data, variable) {
    xtabs(reformulate(variable), data = data)
}

-testing

> xtabs_fun(mtcars, "cyl")
cyl
 4  6  8 
11  7 14 

Answer 2

xtabs接受数据框架，因此：

xtabs_fun <- function(data, variable) xtabs(data[variable])

# test
xtabs_fun(mtcars, "cyl")
## cyl
##  4  6  8 
## 11  7 14 

交替使用工作相同的table：

table_fun <- function(data, variable) table(data[variable])