将参数传递给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

我们需要collapse的{​​{1}}参数。

paste

unname(sapply(ll, paste, collapse=', ')) 的包装函数为paste(., collapse=', ')

toString