从R中的列表元素创建TIBLE

所以我有这个列表，在每个列表中我有元素，它们是长度相等的向量，一个元素中只有一个值。我想创建一个向量的tibble，并将该tibble存储在列表中

> neighbours
$p1
$p1$course_names
 [1] "X1"  "X2"  "X3"

$p1$course_capacities
 [1] 1 1 1 

$p1[[2]]
[1] 4.123106

$p2
$p2$course_names
 [1] "X1"  "X2"  "X3"

$p2$course_capacities
 [1] 1 1 1 

$p2[[2]]
[1] 4.123106

最终输出应如下所示：

> neighbours
[[1]]
[[1]][[1]]
# A tibble: 10 x 4
   course_names course_capacities
   <chr>                    <dbl>
 1 X1                        1.00
 2 X2                        1.00
 3 X3                        1.00

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

[[2]]
[[1]][[1]]
# A tibble: 10 x 4
   course_names course_capacities
   <chr>                    <dbl>
 1 X1                        1.00
 2 X2                        1.00
 3 X3                        1.00

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

>邻居
[[1]]
[[1]][[1]]
#一个tibble:10x4
课程名称课程容量
1 X1 1.00
2×1.00
3×3 1.00
[[1]][[2]]
[1] 4.123106
[[2]]
[[1]][[1]]
#一个tibble:10x4
课程名称课程容量
1 X1 1.00
2×1.00
3×3 1.00
[[2]][[2]]
[1] 4.123106

---

我想我更喜欢tidyverse解决方案，因为我正在寻找tibbles。当然，我很乐意考虑任何方法。

< P>它不是一个伟大的结构，但有两种方式。首先，我尝试重新创建您的初始列表：

neighbours <- list(p1 = list(
                         list(course_names = c("X1","X2","X3"),
                              course_capabilities = c(1,1,1)),
                         4.123106
                         ),
               p2 = list(
                         list(course_names = c("X1","X2","X3"),
                                 course_capabilities = c(1,1,1)),
                         4.123106
                         )
)

或

neighbours %>% purrr::map(~list(as_tibble(.[[1]]),.[[2]]))

lapply(neighbours, function(p){
  list(as_tibble(p[[1]]), 
       p[[2]])
})