Question

我有一个矢量，说f1。

f1 = c(1, 0,  0,  1,  0,  1,  1,  1,  0,  1, -6)

我想根据原始列表中1的位置将此向量拆分为嵌套的列表列表，如下所示。相同的R代码如下：

dfg <- function(f1) {
  df<-which(f1 %in% 1)
  m<-c()
  for(i in 1:df[2]-1) {
    m<-c(m,list(f1[i]))
  }
  m<-c(m,list(f1[df[2]:length(f1)]))
  return(m)
}

这给出了如下输出：

[[1]]
numeric(0)

[[2]]
[1] 1

[[3]]
[1] 0

[[4]]
[1] 0

[[5]]
[1]  1  0  1  1  1  0  1 -6

到目前为止一切顺利。现在注意m [[5]]的长度> 1.

我想重复上面的这个过程，直到输出中每个嵌套级别的每个元素的长度为1。

如何确保上面列出的R函数可以执行任意级别的嵌套？

编辑：根据评论中的要求，我将按照以下方式给出所需的最终结果。

[[1]]数字（0）

[[2]] [1] 1

[[3]] [1] 0

[[4]] [1] 0

[[5]]

[[5]] [[1]]数字（0）

[[5]] [[2]] [1] 1

[[5]] [[3]] [1] 0

[[5]] [[4]]

[[5]] [[4]] [[1]] numeric（0）

[[5]] [[4]] [[2]] [1] 1

[[5]] [[4]] [[3]]

[[5]] [[4]] [[3]] [[1]]数字（0）

[[5]] [[4]] [[3]] [[2]] [1] 1

[[5]] [[4]] [[3]] [[3]]

[[5]] [[4]] [[3]] [[3]] [[1]]数字（0）

[[5]] [[4]] [[3]] [[3]] [[2]] [1] 1

[[5]] [[4]] [[3]] [[3]] [[3]] [1] 0

[[5]] [[4]] [[3]] [[3]] [[4]] [1] 1 -6

（我知道最后一个元素的长度为2，而不是1.但对我来说这不是问题。我将在函数dfg本身中对它进行排序。）

Answer 1

虽然对我来说有点神秘，为什么你会想要这个嵌套结构，我想到构建它的最自然的方式是使用递归函数：

f1 = c(1, 0,  0,  1,  0,  1,  1,  1,  0,  1, -6)
dfg <- function(f1) {
  df <- which(f1 == 1)
  if (length(df) <= 1) f1
  else c(list(numeric(0)), as.list(f1[1:(df[2]-1)]), list(dfg(f1[df[2]:length(f1)])))
}

dfg(f1)
# [[1]]
# numeric(0)
# 
# [[2]]
# [1] 1
# 
# [[3]]
# [1] 0
# 
# [[4]]
# [1] 0
# 
# [[5]]
# [[5]][[1]]
# numeric(0)
# 
# [[5]][[2]]
# [1] 1
# 
# [[5]][[3]]
# [1] 0
# 
# [[5]][[4]]
# [[5]][[4]][[1]]
# numeric(0)
# 
# [[5]][[4]][[2]]
# [1] 1
# 
# [[5]][[4]][[3]]
# [[5]][[4]][[3]][[1]]
# numeric(0)
# 
# [[5]][[4]][[3]][[2]]
# [1] 1
# 
# [[5]][[4]][[3]][[3]]
# [[5]][[4]][[3]][[3]][[1]]
# numeric(0)
# 
# [[5]][[4]][[3]][[3]][[2]]
# [1] 1
# 
# [[5]][[4]][[3]][[3]][[3]]
# [1] 0
# 
# [[5]][[4]][[3]][[3]][[4]]
# [1]  1 -6

请注意，我利用as.list(1:3)相当于list(1, 2, 3)的事实来简化dfg中列表的构建。

分裂变量no的向量。时间嵌套向量

1 个答案: