如何将名称从列表复制到另一个列表

Question

我有两个列表，其中包含完全相同数量的元素。我想将名称从一个列表复制到另一个列表。

Answer 1

将unlist / relist用于嵌套列表：

a <- list(x=1, y=2, z=list(foo=1:5))
b <- list(p="a", q="b", r=list(bar=1:5))

copyNames <- function(l1, l2) {
  relist(unlist(l1), l2)
}

copyNames(a,b)

这假设您在列表中确实拥有完全相同数量的元素，并且列表中包含所有向量等。