r - 将未命名的规则结构化 R 列表转换为命名 R 列表

Question

我有一个奇怪的 R 列表，其中作为字符串的奇数列表元素应该是偶数列表元素的名称。一些元素是列表中的列表。列表的深度不是预先定义的。而列表的简化结构大致为：

a <- list("key0",
          "value0",
          "key",
          list("key1", "value1",
               "key2", "value2", 
               "key3",  list("key6", "value6"),
               "key4", "value4",
               "key5", list(list(list("key7", "value7")))
          ))

如何从列表a中获取常规命名的 R 列表b？

b <- list(key0 = "value0",
          key = list(key1 = "value1",
                     key2 = "value2", 
                     key3 = list(key6  = "value6"),
                     key4 = "value4",
                     key5 = list(list(list(key7 = "value7")))
          ))

像数据结构这样的列表a有什么特殊的技术名称吗？

标签： r

Answer 1

使用递归函数：

fun <- function(x){
  x <- lapply(x,function(y) if (is.list(y)) y <- fun(y) else y)
  if(!is.null(names(x)) | length(x) == 1) return(x)
  x <- setNames(x[seq_along(x)%%2 == 0], x[seq_along(x)%%2 == 1])
  x
}
res <- fun(a)

identical(b,res)
# [1] TRUE