R语言如何合并不同长度的数据框

jxapp_31214

25500

收藏 2017-07-13

如题，有两组列长度不一致的数据，要把他合并

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

fortune9

2017-7-14 04:30:21

如果是要纵向合并（合并后列数不变），用rbind(df1, df2). 如果要横向合并，那么必须在这两个data.frame之间有共有的列，比如col1，这样的话可以用merge(df1, df2, by=col1,all=T)来合并数据。具体参数请参考rbind和merge函数的help文件。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

colinxf

2017-7-14 08:44:56

用NA补齐小数据的列，然后rbind合并

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

jxapp_31214

2017-7-14 09:45:34

fortune9 发表于 2017-7-14 04:30
如果是要纵向合并（合并后列数不变），用rbind(df1, df2). 如果要横向合并，那么必须在这两个data.frame之间 ...

rbind 必须要列长相同才行吧，我这里有大概几十个列长不同的数据框，我想把他们纵向合并

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

fortune9

2017-7-15 00:45:42

jxapp_31214 发表于 2017-7-14 09:45
rbind 必须要列长相同才行吧，我这里有大概几十个列长不同的数据框，我想把他们纵向合并

对，rbind要求合并的数据框有相同的列数，如果列数不同，rbind的合并好像也没有什麽意义（你肯定不想把数据框1的A列跟数据框2的B列合并到一起对吧）。要么你需要把列数少的数据框缺乏的列先用NA补上，然后再用rbind。如果需具体回答，请附上几行样本数据。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

jxapp_31214

2017-7-17 16:41:07

fortune9 发表于 2017-7-15 00:45
对，rbind要求合并的数据框有相同的列数，如果列数不同，rbind的合并好像也没有什麽意义（你肯定不想把数 ...

工作簿2.xlsx
大小:(42.24 KB)

马上下载

工作簿1.xlsx
大小:(42.89 KB)

马上下载

就是这种样子的数据，大概50个左右，我希望吧这些数据直接合并

附件列表

工作簿1.xlsx

大小:397.69 KB

马上下载

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

点击查看更多内容…

fortune9

2017-7-19 00:52:44

jxapp_31214 发表于 2017-7-17 16:41
就是这种样子的数据，大概50个左右，我希望吧这些数据直接合并

首先把两个表格在excel里面另存为tab-delimited数据，并且命名为data1.txt和data2.txt.然后用下面的R code纵向合并两个数据库：

d1<-read.table("data1.txt")
d2<-read.table("data2.txt")
d3<-rbind(d1,d2)
write.table(d3,file="merged.txt", sep="\t", col.names=F, row.names = F, quote=F)

结果将保存在文件merged.txt里面。为了你的方便，我附上了我转换和得到的结果文件

merged.txt
大小:(18.24 KB)

马上下载

data2.txt
大小:(9.24 KB)

马上下载

data1.txt
大小:(9 KB)

马上下载

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

jxapp_31214

2017-7-20 15:59:57

fortune9 发表于 2017-7-19 00:52
首先把两个表格在excel里面另存为tab-delimited数据，并且命名为data1.txt和data2.txt.然后用下面的R cod ...

.... 不是这样合并，我要横向合并，就是把不等长的列合横向合并起来

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

fortune9

2017-7-21 04:23:05

jxapp_31214 发表于 2017-7-20 15:59
.... 不是这样合并，我要横向合并，就是把不等长的列合横向合并起来

那就根据两个数据的第一列这样合并：

d1<-read.table("data1.txt")
d2<-read.table("data2.txt")
names(d1)<-c("date","val1")
names(d2)<-c("date","val2")
d3<-merge(d1,d2, by="date", all=T)
write.table(d3,file="merged.txt", sep="\t", col.names=F, row.names = F, quote=F)

对与在一个数据框中缺失的数据，在对应的列va1或val2就会显示成NA。

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

jxapp_31214

2017-7-23 10:05:24

fortune9 发表于 2017-7-21 04:23
那就根据两个数据的第一列这样合并：

d1

多谢多谢

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

jxapp_31214

2017-7-23 16:45:05

fortune9 发表于 2017-7-21 04:23
那就根据两个数据的第一列这样合并：

d1

我想再问一下，如果我想合并后还是4列，就是不以日期合并，单纯合并，最后合并后还是4列，怎么搞

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

fortune9

2017-7-24 08:37:51

jxapp_31214 发表于 2017-7-23 16:45
我想再问一下，如果我想合并后还是4列，就是不以日期合并，单纯合并，最后合并后还是4列，怎么搞

那就用下面这个code，

d1<-read.table("data1.txt")
d2<-read.table("data2.txt")
d1[397:410,]<-NA
res<-cbind(d1,d2)

因为d1的行数只有396，我用NA补齐，才能用cbind.

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群