提取深层嵌套列表的名称

Question

假设我有一个这样的列表：

m <- list('a' = list('b' = c(1, 2), 'c' = 3, 'b1' = 4))

我想获取m的名称并保持水平。

如果我做

names(unlist(m))

它给出输出

"a.b1" "a.b2" "a.c"  "a.b1"

但是我只想要像

"a.b" "a.c" "a.b1"

如何获得？

同样， unlist()对于大的嵌套列表来说也是一项昂贵的操作。 有没有办法不用unlist()并以更快的方式做到这一点？

Example 2 : 

p = list( 'a' = list( 'z' = c( 1, 2 ), 'g' = list( 'i' = 2, 'j' = 3 ) ), 'd'    = list( 'k' = c( 4, 5 ) ) )

Example 3 :

p = list( 'a' = list( 'z' = c( 1, 2 ), 'g' = list( 2, 3 ) ), 'd' = list( 'k' = c( 4, 5 ) ) )

Answer 1

您可以通过递归地仅提取列表中每个向量的第一个元素并获取该结构的名称来到达那里：

names(rapply(m, function(x) head(x, 1)))
#[1] "a.b"  "a.c"  "a.b1"

这是具有更复杂的输入列表的示例：

m <- list(a=list(b=c(1, 2), c=3, b1=list(x=1, y=2:4)), x=list(a=1,b=2), c=4:8)
str(m)
# List of 3
# $ a:List of 3
# ..$ b : num [1:2] 1 2
# ..$ c : num 3
# ..$ b1:List of 2
# .. ..$ x: num 1
# .. ..$ y: int [1:3] 2 3 4
# $ x:List of 2
# ..$ a: num 1
# ..$ b: num 2
# $ c: int [1:5] 4 5 6 7 8

names(rapply(m, function(x) head(x, 1)))
#[1] "a.b"    "a.c"    "a.b1.x" "a.b1.y" "x.a"    "x.b"    "c" 

---

对于OP的第二个输入，将产生：

p <- list('a' = list('z' = c(1, 2), 'g' = list('i' = 2, 'j' = 3)), 'd' = list('k' = c(4, 5)))
names(rapply(p, function(x) head(x, 1)))
#[1] "a.z"   "a.g.i" "a.g.j" "d.k"

Answer 2

您的列表m具有此结构。

> str(m)
List of 1
 $ a:List of 3
  ..$ b : num [1:2] 1 2
  ..$ c : num 3
  ..$ b1: num 4

如您所见，您想将顶级列表的名称与第二级列表的名称连接起来。 您可以通过paste0(names(m), ".", names(m[[1]][1:3]))或仅通过paste0(names(m), ".", names(m[[1]][1:3]))方式实现此paste0(names(m), ".", names(m[[1]][1:3])) ：

> paste0(names(m), ".", names(m[[1]][]))
[1] "a.b"  "a.c"  "a.b1"