包含點的嵌套列表的名稱（例如“c.2”）

Question

如何獲取嵌套列表的葉子名稱（包含數據框）

p <- list(a=1,b=list(b1=2,b2=3),c=list(c1=list(c11='a',c12='x'),c.2=data.frame("t"=1)))

轉換為矢量格式：

[[1]]
[1] "a"
[[2]]
[1] "b" "b1"
[[3]]
[1] "b" "b2"
[[4]]
[1] "c" "c1" "c11"
[[5]]
[1] "c" "c1" "c12"
[[6]]
[1] "c" "c.2"

問題是我的列表包含帶點的名稱（例如“c.2”）。 通過使用 unlist，一個人得到"c.c.2" ，我（或可能strsplit ）無法判斷該點是 unlist 的定界符還是名稱的一部分。 這就是這個問題的區別。

它應該忽略 data.frames。 到目前為止，我的方法是從這里改編的，但與unlist創建的點有沖突：

listNames = function(l, maxDepth = 2) {
  n = 0
  listNames_rec = function(l, n) {
    if(!is.list(l) | is.data.frame(l) | n>=maxDepth) TRUE
    else { 
      n = n + 1
      # print(n)
      lapply(l, listNames_rec, n)
    }
  }
  n = names(unlist(listNames_rec(l, n)))
  return(n)
}
listNames(p, maxDepth = 3)
[1] "a"        "b.b1"     "b.b2"     "c.c1.c11" "c.c1.c12" "c.c.2"  

Answer 1

像這樣？

subnames <- function(L, s) {
  if (!is.list(L) || is.data.frame(L)) return(L)
  names(L) <- gsub(".", s, names(L), fixed = TRUE)
  lapply(L, subnames, s)
}

res <- listNames(subnames(p, ":"), maxDepth = 3)
gsub(":", ".",
  gsub(".", "$", res, fixed = TRUE),
  fixed = TRUE
)
#[1] "a"        "b$b1"     "b$b2"     "c$c1$c11" "c$c1$c12" "c$c.2" 

Answer 2

不是一個完整的答案，但我想rrapply package可以幫助你嗎？ 一種選擇是提取所有名稱：

library(rrapply)
library(dplyr)
rrapply(p, how = "melt") %>% 
  select(-value)
#   L1   L2   L3
# 1  a <NA> <NA>
# 2  b   b1 <NA>
# 3  b   b2 <NA>
# 4  c   c1  c11
# 5  c   c1  c12
# 6  c  c.2    t

這里的問題是data.frame名稱也包含在上面，因此您可以單獨提取它們：

#extract data frame name
rrapply(p, classes = "data.frame", how = "melt") %>% 
  select(-value)
#   L1  L2
# 1  c c.2

然后你可以玩弄這兩個數據集並可能提取重復項但保留 dataframe 名稱

rrapply(p, how = "melt") %>%  
  bind_rows(rrapply(p, classes = "data.frame", how = "melt")) 
  #then filter etc...

Answer 3

一種方式可能是：

listNames = function(l, n, N) {
  if(!is.list(l) | is.data.frame(l) | n<1) list(rev(N))
  else unlist(Map(listNames, l, n=n-1, N=lapply(names(l), c, N)), FALSE, FALSE)
}

listNames(p, 3, NULL)
#[[1]]
#[1] "a"
#
#[[2]]
#[1] "b"  "b1"
#
#[[3]]
#[1] "b"  "b2"
#
#[[4]]
#[1] "c"   "c1"  "c11"
#
#[[5]]
#[1] "c"   "c1"  "c12"
#
#[[6]]
#[1] "c"   "c.2"