如何在R中创建数据驱动的列表列表

Question

下面的代码正是我所需要的，但必须有更好的方法来做到这一点。我需要创建一个带标题的列表列表，以便我可以像这样进行分组：position.list[["a.com"]]

必须有一种方法可以更有效地做到这一点，因为我在下面的内容非常可怕。我看到了几个类似的主题，但似乎没有一个完全符合我的要求......如果以前已经回答过，我道歉。

website.vec <- c("a.com", "b.com", "c.com")
position.list <- vector(len = length(website.vec))
position.list <- setNames(as.list(position.list), website.vec)
for (i in 1:length(position.list)) {
  position.list[[i]] <- list()
}

Answer 1

选项1：

setNames(replicate(length(website.vec), list(), simplify=FALSE), website.vec)

选项2：

lapply(setNames(nm=website.vec), function(x) list())