R实现一次性合并多个数据框

2021-11-10 09:59:47 阅读：337 来源： 互联网

标签：多个 tidyverse 一次性合并 list table DT1 data

数据处理中经常会有这样的情况，需要合并多个数据（按行或者按列合并），常规的merge或者rbind只能两个两个合并，操作繁琐。可以使用自写函数或do.call()函数进行数据库的拼接或合并，具体操作如下：

按列合并

mypath<-"C:/Users/18896/Desktop/example1"

multmerge = function(mypath){
  filenames=list.files(path=mypath, pattern = ".XPT",full.names=TRUE)
  datalist = lapply(filenames, function(x){read.xport(file=x)})
  Reduce(function(x,y) {merge(x,y,by="SEQN",all=T)}, datalist)
}

mergedata<-multmerge(mypath)

mypath中为需要合并的所有文件夹的本地目录，定义函数multmerge,先列出需要合并的数据库名称，并读取为list，使用merge函数合并list中的数据框。最后生成的mergedata为合并之后的data

文件夹不在本地时

data1 <- data.frame(id = 1:6,                                  # Create first example data frame
                    x1 = c(5, 1, 4, 9, 1, 2),
                    x2 = c("A", "Y", "G", "F", "G", "Y"))
 
data2 <- data.frame(id = 4:9,                                  # Create second example data frame
                    y1 = c(3, 3, 4, 1, 2, 9),
                    y2 = c("a", "x", "a", "x", "a", "x"))
 
data3 <- data.frame(id = 5:6,                                  # Create third example data frame
                    z1 = c(3, 2),
                    z2 = c("K", "b"))

data_list <- list(data1, data2, data3)

my_merge <- function(df1, df2){                                # Create own merging function
  merge(df1, df2, by = "id")
}

Reduce(my_merge, data_list) 
 
#id x1 x2 y1 y2 z1 z2
#1  5  1  G  3  x  3  K
#2  6  2  Y  4  a  2  b

或者使用tidyverse包

install.packages("tidyverse")                                  # Install tidyverse package
library("tidyverse")
data_list %>% reduce(inner_join, by = "id")                    # Apply reduce function of tidyverse

#id x1 x2 y1 y2 z1 z2
#1  5  1  G  3  x  3  K
#2  6  2  Y  4  a  2  b

按行合并

library(data.table)
DT1 = data.table(A=1:3,B=letters[1:3])
DT2 = data.table(B=letters[4:5],A=4:5)
DT3=data.table(A=6:7,B=letters[6:7])
l = list(DT1,DT2,DT3)
rbindlist(l, use.names=TRUE)
#A B
#1: 1 a
#2: 2 b
#3: 3 c
#4: 4 d
#5: 5 e
#6: 6 f
#7: 7 g

重复合并某个数据框多次


do.call("rbind", replicate(4, DT1, simplify = FALSE))

#   A B
# 1: 1 a
# 2: 2 b
# 3: 3 c
# 4: 1 a
# 5: 2 b
# 6: 3 c
# 7: 1 a
# 8: 2 b
# 9: 3 c
#10: 1 a
#11: 2 b
#12: 3 c

Reference:R Merge Multiple Data Frames in List (2 Examples) | Base R vs. tidyverse (statisticsglobe.com)

标签：多个,tidyverse,一次性,合并,list,table,DT1,data
来源： https://blog.csdn.net/qq_42458954/article/details/121241609

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

R实现一次性合并多个数据框