将参数传递给 sapply 内部的函数

Question

假设我们有一个包含数字的列表并应用一个函数， 例如平均函数，对列表的每个元素：

l <- list(a = 1:10, b = 11:20)
l.mean <- sapply(l, mean)
l.mean # it works

但是如果列表包含字符串并且我们想要粘贴它们怎么办：

ll <- list(a=c("1", "2"), b=c("3", "4"))
ll.paste <- sapply(ll, as.call(list(paste, ll, sep = ", ")))
ll.paste # it does not work

我期望的输出应该是这样的：

# 1, 2
# 3, 4

Answer 1

我们需要paste 的collapse 参数。

 unname(sapply(ll, paste, collapse=', '))

paste(., collapse=', ') 的包装函数是 toString

 unname(sapply(ll, toString))