我有一個包含 3 個串列的串列，每個串列都有相同數量的資料幀，準確地說是 32 個，我希望rbind 它們按元素排列。舉一個更簡單的例子，假設您有一個包含 2 個串列的串列，每個串列有 2 個資料框，如下所示：
[[1]]
[[1]][[1]]
x y
1 a 11
2 b 12
3 c 13
[[1]][[2]]
x y
1 a 14
2 b 15
3 c 16
[[2]]
[[2]][[1]]
x y
1 a 17
2 b 18
3 c 19
[[2]][[2]]
x y
1 a 21
2 b 22
3 c 23
給出：
A <- data.frame(c("a","b","c"), c(11,12,13))
colnames(A)<-c("x","y")
B <- data.frame(c("a","b","c"), c(14,15,16))
colnames(B)<-c("x","y")
C <- data.frame(c("a","b","c"), c(17,18,19))
colnames(C)<-c("x","y")
D <- data.frame(c("a","b","c"), c(21,21,23))
colnames(D)<-c("x","y")
L1 <- list(A,B)
L2 <- list(C,D)
L <- list(L1,L2)
我怎樣才能rbind跨2個串列元素的資料框，這樣最終output是：
[[1]]
x y
1 a 11
2 b 12
3 c 13
4 a 17
5 b 18
6 c 19
[[2]]
x y
1 a 14
2 b 15
3 c 16
4 a 21
5 b 21
6 c 23
在這個例子中，我可以output <- list(rbind(A,C),rbind(B,D))
但我想為更大的資料框串列做這件事
uj5u.com熱心網友回復：
這個怎么樣：
A <- data.frame(c("a","b","c"), c(11,12,13))
colnames(A)<-c("x","y")
B <- data.frame(c("a","b","c"), c(14,15,16))
colnames(B)<-c("x","y")
C <- data.frame(c("a","b","c"), c(17,18,19))
colnames(C)<-c("x","y")
D <- data.frame(c("a","b","c"), c(21,21,23))
colnames(D)<-c("x","y")
L1 <- list(A,B)
L2 <- list(C,D)
L <- list(L1,L2)
lapply(1:2, \(i)rbind(L1[[i]], L2[[i]]))
#> [[1]]
#> x y
#> 1 a 11
#> 2 b 12
#> 3 c 13
#> 4 a 17
#> 5 b 18
#> 6 c 19
#>
#> [[2]]
#> x y
#> 1 a 14
#> 2 b 15
#> 3 c 16
#> 4 a 21
#> 5 b 21
#> 6 c 23
由reprex 包于 2022-05-26 創建(v2.0.1)
uj5u.com熱心網友回復：
可以只使用transposefrom purrr：
output <- lapply(purrr::transpose(L),
function(l) do.call(rbind, args = l))
output
uj5u.com熱心網友回復：
你可以map2這樣使用：
library(purrr)
map2(L1,L2,rbind)
輸出：
[[1]]
x y
1 a 11
2 b 12
3 c 13
4 a 17
5 b 18
6 c 19
[[2]]
x y
1 a 14
2 b 15
3 c 16
4 a 21
5 b 21
6 c 23
uj5u.com熱心網友回復：
基數 R：
Map(rbind, L1, L2)
[[1]]
x y
1 a 11
2 b 12
3 c 13
4 a 17
5 b 18
6 c 19
[[2]]
x y
1 a 14
2 b 15
3 c 16
4 a 21
5 b 21
6 c 23
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/481191.html