[英]rbind dataframes across nested lists
我有一個了解各種不同的rbinding名單問題,比如這個 ,但我真的不能找到這樣做的更有效的方法。
我有一個嵌套列表nestlist
包含三個列表,每個包含兩個dataframes:
df1 <- data.frame(ID = paste0(LETTERS[1:4],1:4), valueA = seq(0.1,0.4,0.1), Category= "Apples")
df2 <- data.frame(ID = paste0(LETTERS[1:4],1:4), valueB = seq(0.1,0.4,0.1), Category= "Apples")
list1 <- list(df1,df2)
df3 <- data.frame(ID = paste0(LETTERS[1:4],1:4), valueA = seq(0.1,0.4,0.1), Category= "Pears")
df4 <- data.frame(ID = paste0(LETTERS[1:4],1:4), valueB = seq(0.1,0.4,0.1), Category= "Pears")
list2 <- list(df3,df4)
df5 <- data.frame(ID = paste0(LETTERS[1:4],1:4), valueA = seq(0.1,0.4,0.1), Category= "Stairs")
df6 <- data.frame(ID = paste0(LETTERS[1:4],1:4), valueB = seq(0.1,0.4,0.1), Category= "Stairs")
list3 <- list(df5,df6)
nestedlist <- list(list1,list2,list3)
我想找到一種更簡單的方法,通過公共value
列從list1,list2和list 3中對每個對象進行rbind,這樣我最終得到:
rbind(nestedlist[[1]][[1]],nestedlist[[2]][[1]], nestedlist[[3]][[1]])
ID A Category
1 A1 0.1 Apples
2 B2 0.2 Apples
3 C3 0.3 Apples
4 D4 0.4 Apples
5 A1 0.1 Pears
6 B2 0.2 Pears
7 C3 0.3 Pears
8 D4 0.4 Pears
9 A1 0.1 Stairs
10 B2 0.2 Stairs
11 C3 0.3 Stairs
12 D4 0.4 Stairs
你可以使用do.call(Map, ...)
,它將嵌套列表作為參數傳遞給Map,它將以並行方式循環遍歷這些列表並調用rbind
因為Map
函數將相同位置的列表綁定在一起:
do.call(Map, c(f = rbind, nestedlist))
# [[1]]
# ID valueA Category
# 1 A1 0.1 Apples
# 2 B2 0.2 Apples
# 3 C3 0.3 Apples
# 4 D4 0.4 Apples
# 5 A1 0.1 Pears
# 6 B2 0.2 Pears
# 7 C3 0.3 Pears
# 8 D4 0.4 Pears
# 9 A1 0.1 Stairs
# 10 B2 0.2 Stairs
# 11 C3 0.3 Stairs
# 12 D4 0.4 Stairs
#
# [[2]]
# ID valueB Category
# 1 A1 0.1 Apples
# 2 B2 0.2 Apples
# 3 C3 0.3 Apples
# 4 D4 0.4 Apples
# 5 A1 0.1 Pears
# 6 B2 0.2 Pears
# 7 C3 0.3 Pears
# 8 D4 0.4 Pears
# 9 A1 0.1 Stairs
# 10 B2 0.2 Stairs
# 11 C3 0.3 Stairs
# 12 D4 0.4 Stairs
我們可以嘗試
library(purrr)
lapply(transpose(nestedlist), function(x) do.call(rbind, x))
或者使用bind_rows
的dplyr
library(dplyr)
transpose(nestedlist) %>%
map(bind_rows)
#[[1]]
# ID valueA Category
#1 A1 0.1 Apples
#2 B2 0.2 Apples
#3 C3 0.3 Apples
#4 D4 0.4 Apples
#5 A1 0.1 Pears
#6 B2 0.2 Pears
#7 C3 0.3 Pears
#8 D4 0.4 Pears
#9 A1 0.1 Stairs
#10 B2 0.2 Stairs
#11 C3 0.3 Stairs
#12 D4 0.4 Stairs
#[[2]]
# ID valueB Category
#1 A1 0.1 Apples
#2 B2 0.2 Apples
#3 C3 0.3 Apples
#4 D4 0.4 Apples
#5 A1 0.1 Pears
#6 B2 0.2 Pears
#7 C3 0.3 Pears
#8 D4 0.4 Pears
#9 A1 0.1 Stairs
#10 B2 0.2 Stairs
#11 C3 0.3 Stairs
#12 D4 0.4 Stairs
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.