绑定嵌套列表中存在的小标题行
Posted
技术标签:
【中文标题】绑定嵌套列表中存在的小标题行【英文标题】:bind rows of tibbles present in nested list 【发布时间】:2022-01-21 07:01:17 【问题描述】:我生成了包含三个小标题的mylist
。
创建mylist后,如何通过分别绑定mylist的所有As、Bs、Cs行来创建三个小标题A_complete
、B_complete
和C_complete
。
mylist <- list()
for (iter in 1:10)
mylist[[iter]] <- list(A = tibble(x = runif(5)),
B = tibble(x = rep("B", 2)),
C = tibble(x = 0:iter))
【问题讨论】:
【参考方案1】:使用lapply
,
A_complete = lapply(mylist, function(x) x[['A']]) %>% bind_rows()
B_complete = lapply(mylist, function(x) x[['B']]) %>% bind_rows()
C_complete = lapply(mylist, function(x) x[['C']]) %>% bind_rows()
【讨论】:
【参考方案2】:这对purrr::transpose()
很有用。这是一个简单的 tidyverse 解决方案。
library(tidyverse)
complete_data = mylist %>%
transpose() %>%
map(reduce, bind_rows)
输出:
> complete_data$A
# A tibble: 50 x 1
x
<dbl>
1 0.905
2 0.102
3 0.923
4 0.504
5 0.187
6 0.945
7 0.0668
8 0.596
9 0.131
10 0.220
# ... with 40 more rows
同样,complete_data$B
和 complete_data$C
也可用。
【讨论】:
以上是关于绑定嵌套列表中存在的小标题行的主要内容,如果未能解决你的问题,请参考以下文章
将 DataGridViewComboBoxColumn 绑定到嵌套列表
Android绑定 - 找不到嵌套类型的顶级祖先,但存在于aar文件中