r - 了解 do.call() 在数据帧行上对 'paste' 与 'function(x) paste(x)' 的处理

Question

我对 do.call 如何工作感到困惑。

dat <- data.frame(v1 = c("a", "a", "b", "b"),
                  v2 = c("a", "b", "a", "b"), 
                  stringsAsFactors = FALSE)

为什么这似乎一次通过一行

do.call(paste, dat)
[1] "a a" "a b" "b a" "b b"

但这并没有

do.call(function(x) paste(x), dat)
Error in (function (x)  : 
  unused arguments (v1 = c("a", "a", "b", "b"), v2 = c("a", "b", "a", "b"))

我想使用的功能是

paste_ <- function(x) paste(unique(sort(x)), collapse = "_")

我确实意识到我可以使用 apply得到我想要的，但试图了解什么 do.call正在做。

apply(vars_comb, 1, paste_)

Answer 1

do.call 的输入是一个列表，数据帧是列表。所以do.call(paste, dat)相当于:

paste(v1=dat$v1, v2=dat$v2)

而您定义的函数只接受“x”参数。所以第二部分相当于:

my_paste <- function(x) paste(x)
my_paste(v2=dat$v1, v1=dat$v2)

这会给你同样的错误，因为 v1 和 v2 没有定义。

但是，您可以看到以下内容确实有效:

do.call(function(...) paste(...), dat)