如何將列表中的名稱複製到另一個列表

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) 

這是假設你真的有完全相同的號碼列表中的元素和所有載體等列表裏面。