如何将列表中的列表取消嵌套到列表中？

Question

考虑最小的工作示例

raw_list <- list(1, 2)
process_list <- function(item) {
    if(item == 1) {
        return(list(c(1, 1), c(2, 2)))
    }
    else {
        return(c(3, 3))
    }
}

processed_list <- lapply(raw_list, process_list)

df <- do.call(rbind, processed_list)

processed_list是

[[1]]
[[1]][[1]]
[1] 1 1

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


[[2]]
[1] 3 3

和df是

     [,1]      [,2]     
[1,] numeric,2 numeric,2
[2,] 3         3 

如何取消嵌套processed_list列表以获取

[[1]]
[1] 1 1

[[2]]
[1] 2 2

[[3]]
[1] 3 3

或者我如何取消嵌套df以获得

     [,1] [,2]
[1,]    1    1
[2,]    2    2
[3,]    3    3

Answer 1

我认为您还应该在函数中list c(3, 3) ，然后unlist非递归方式取消列出。

raw_list <- list(1, 2)

process_list <- function(item) {
  if(item == 1) {
    return(list(c(1, 1), c(2, 2)))
  }
  else {
    return(list(c(3, 3)))
  }
}

processed_list <- lapply(raw_list, process_list)

unlist(processed_list, recursive=FALSE)
# [[1]]
# [1] 1 1
# 
# [[2]]
# [1] 2 2
# 
# [[3]]
# [1] 3 3

Answer 2

你可以简单地使用

simple_list <- unlist(processed_list, recursive = FALSE)

然后简单地

df <- do.call(rbind, simple_list)

这给出了：

[[1]]
[1] 1 1

[[2]]
[1] 2 2

[[3]]
[1] 3

[[4]]
[1] 3

和

     [,1] [,2]
[1,]    1    1
[2,]    2    2
[3,]    3    3
[4,]    3    3

Answer 3

尝试这个

processed_list[[2]] <- list(processed_list[[2]])

processed_list <- processed_list |> unlist(recursive = FALSE)

df <- do.call(rbind, processed_list)