r - 当列表嵌套在 R 列表中时，如何简洁地将多个列表的所有元素命名为相同？

Question

有时我在 R 中遇到这个实例:

L <- list()
L[[1]] <- list()
L[[2]] <- list()
L[[1]][[1]] <- 1
L[[1]][[2]] <- 2
L[[2]][[1]] <- 1
L[[2]][[2]] <- 2

然后我想将 L 中的嵌套列表的所有元素命名为相同的。我通常会这样做:

L <- lapply(L, function(x){names(x) <- c("One", "Two"); x})

但是，这看起来有点糟糕，我相信必须有更好的方法。有谁知道更优雅的方式吗？

Answer 1

我们可以使用包装器 setNames

而不是执行两步过程

L <- lapply(L, setNames, c("One", "Two"))

---

或与 tidyverse 类似的选项

library(purrr)
library(dplyr)
map(L, set_names, c("One", "Two"))