如何cbind和rbind 2个数据帧列表

Question

我有2个数据帧列表.每个列表有24个数据帧

list1 <- (data1, data2, ..., data24)
list2 <- (result1, result2, ...., result3)

我想cbind data1用result1,data2用result2等.然后将rbin所有数据帧组合在一起:

all1 <- cbind(data1, result1)
all2 <- cbind(data2, result2)
all.in <- rbind(all1, all2)

如何有效地使用24个数据帧？

Answer 1

在tidyverse语法,dplyr::bind_rows并且bind_cols将列表绑定在一起,并通过调用purrr::map_df变种:

library(tidyverse)

l1 <- list(mtcars[1:2, 1, drop = FALSE], mtcars[3:4, 1, drop = FALSE])
l2 <- list(mtcars[1:2, 2:6], mtcars[3:4, 2:6])

map2_dfr(l1, l2, bind_cols)
#>    mpg cyl disp  hp drat    wt
#> 1 21.0   6  160 110 3.90 2.620
#> 2 21.0   6  160 110 3.90 2.875
#> 3 22.8   4  108  93 3.85 2.320
#> 4 21.4   6  258 110 3.08 3.215

一个.id参数可以被传递到两个bind_rows和map_dfr,并且将导致新的一列的名称提供由用于哪个列表元素中的每个观测从传来的索引.

Answer 2

我可能会这样做:

l1 <- list(mtcars,mtcars)
l2 <- list(mtcars,mtcars)
do.call(rbind,mapply(FUN = cbind,l1,l2,SIMPLIFY = FALSE))

如果数据帧是非常大的,你可以切换到dplyr或data.table等价物cbind和rbind.