我编写了一个循环,用于从字符向量创建空列表列表。输出列表包含字符向量中每个项目的一个空列表,其中该字符串作为其名称。这是我所写的可重复的例子:
charVect <- rownames(mtcars)
listOfLists <- list()
for ( i in seq_along(charVect)){
charVect[i]
listOfLists[[charVect[i]]] <- list()
}
我似乎有太多的代码行,我在这里找不到类似的问题,或者在google搜索中实现相同目标的函数。
这是最好的方法吗?我可以使用任何函数或方法来减少代码行吗?
答案 0 :(得分:1)
尝试
setNames(lapply(vector("list", nrow(mtcars)), function(x) list()), rownames(mtcars))