优化列表标题的代码组合

Question

我确实有一个由 16 个元素组成的列表 Factor.lst。列表的每个元素都是一个字符向量。我想获得一个由每个字符字符串的组合组成的大小为 [1:16] 的新向量。我设法使用它来获得我想要的东西：

col.titles <- c(paste(Factor.lst[[1]], collapse=" "), (paste(Factor.lst[[2]], collapse=" ") ... (paste(Factor.lst[[16]], collapse=" ")))

但是要达到 16 条线要走很多路！如何直接调用列表而不是列表中的每个元素？我在想这样的事情，但那行不通。

col.titles <- c(paste(Factor.lst[[1:16]], collapse=" "))

Answer 1

sapply 会将一个函数应用于对象的每个元素，因此您可以使用它将paste(x, collapse=' ') 应用于Factor.lst 的每个元素。

试试：

sapply(Factor.lst, paste, collapse=' ')