代码之家 › 专栏 › 技术社区 › cliu

在列表的同一列表中组合行

data-cleaning data-manipulation r

cliu · 技术社区 · 3 年前

我有一个包含两个列表的列表,其中第一个有三个元素,第二个有两个元素。我想将同一列表中的元素进行行组合。以下是一些数据:

list1 <- list(a = c(1,2,3), b = c(4,5,6)) #the first nested list which has three elements
list2 <- list(a = c(2,4), b = c(5,6)) #the second nested list which has two elements
alllist<- list(list1, list2) #the combo list that nests list1 and list2

最后,我只是简单地转换了 alllist 到如下列表:

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

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

1 回复 | 直到 3 年前

akrun 3 年前

在上循环 list 和 rbind

lapply(alllist, \(x) do.call(rbind, unname(x)))

-输出

[[1]]
     [,1] [,2] [,3]
[1,]    1    2    3
[2,]    4    5    6

[[2]]
     [,1] [,2]
[1,]    2    4
[2,]    5    6

或者可以使用 simplify2array

lapply(alllist, simplify2array)

PaulS 3 年前

a. purrr::map 和 dplyr::bind_rows 基于方法,其灵感来自@akrun-first解决方案:

library(tidyverse)

alllist %>% map(~ bind_rows(.x) %>% unname %>% t) 

#> [[1]]
#>      [,1] [,2] [,3]
#> [1,]    1    2    3
#> [2,]    4    5    6
#> 
#> [[2]]
#>      [,1] [,2]
#> [1,]    2    4
#> [2,]    5    6

deschen 3 年前

您想要一个二维结构/数组,还是简单地将a和b列表中的值连接起来?如果后者:

lapply(alllist, function(x) unname(unlist(x)))

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

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

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

4 月前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

4 月前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

4 月前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

4 月前

Ben · 统计向量中的单词在字符串中出现的频率

4 月前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

4 月前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

4 月前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

4 月前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

5 月前

Mankka · 如何在Ggplot2中绘制均匀的径向图

5 月前