使用外部列表元素名称为嵌套列表元素赋值

Question

我有一个嵌套列表，my_list4。我想使用外部列表元素之一的names() 更改最内部列表元素的值。

这里是my_list4；

my_list <- list(elem1 = 1:3, elem2 = 4:6, elem3 = 7:9)
my_list2 <- list(elem1_2 = my_list, elem2_2 = my_list, elem3_2 = my_list)
my_list3 <- list(elem1_3 = my_list2, elem2_3 = my_list2, elem3_3 = my_list2)
my_list4 <- list(Species1 = my_list3, Species2 = my_list3, Species3 = my_list3)

嵌套的lapply 似乎是一个好的开始；

assign_value <- lapply(my_list4, FUN = function(x){
  lapply(x, FUN = function(y){
    lapply(y, FUN = function(z){
      lapply(z, FUN = function(t){
        t = NA
      })
    })
    
  })
})

这会将最里面的元素更改为值NA。我想将值更改为它们对应的物种（即 Species1、Species2、Species3），如 names(my_list4) 所述。

所以，assign_value$Species1$elem1_3$elem1_2$elem1 是 NA，但我希望它是 Species1。 assign_value$Species2$elem1_3$elem1_2$elem1 是 NA 但我希望它是 Species2。

我该怎么做？

Answer 1

我们可以使用for 循环来分配

assign_value <- my_list4

for(nm in names(my_list4)) {
   for(nm2 in names(my_list4[[nm]])) {
     for(nm3 in names(my_list4[[nm]][[nm2]])) {
     assign_value[[nm]][[nm2]][[nm3]] <- nm
     }
   }
}

-检查

assign_value$Species1$elem1_3$elem1_2
#[1] "Species1"

assign_value$Species2$elem1_3$elem1_2
#[1] "Species2"