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

编程问答 2022-08-16

问题描述

我有一个嵌套列表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。我想将值更改为它们所对应的种类（例如，{1、1、2、3），如names(my_list4)所述。

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

我该怎么办？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

applylapplylistrr