R语言数据合并

绝代码农

　　用向量创建数据框

id<-c("1","2","3","4")
name<-c("谈天","轻衣","晓光","余白")
is.vector(name)
data00=data.frame(id,name)
str(data00)
head(data00)

创建第二个数据框

id<-c("5","6","7","8")
name<-c("青梅","王五","不二","七杀")
is.vector(name)
data11=data.frame(id,name)
str(data11)
head(data11)

纵向合并数据框data00和data11

mdata<-rbind(data00,data11)
head(mdata)

其它纵向数据框合并
　　使用dplyr包中的bind_rows()函数进行合并

library(dplyr)
dplyr::bind_rows(data00,data11)

字段连接横向合并（id和name合并成新字段）

data00$合并=paste(data00$id,data00$name,data00$合并, sep = "")
head(data00)

数据字段框的横向合并（通过相同的元素，横向合并）
　　字段数数据框的横向id关联合并data11和data33合并，有相同的id，进行合并

方法一：merge函数

merge(x, y, by = intersect(names(x), names(y)),
    by.x = by, by.y = by, all = FALSE, 
    all.x = all, all.y = all,
    sort = TRUE, suffixes = c(".x",".y"),
    incomparables = NULL, ...)
参数说明：
x,y:用于合并的两个数据框
by,by.x,by.y:指定依据哪些行合并数据框,默认值为相同列名的列.
all,all.x,all.y:指定x和y的行是否应该全在输出文件.
sort:by指定的列是否要排序.
suffixes:指定除by外相同列名的后缀.
incomparables:指定by中哪些单元不进行合并.

　　例如：

hdata<-merge(data11,data33,by=id)
head(hdata)

hdata212<-merge(data11,data00,all =T)
head(hdata212)

方法二：cbind函数

hdata2<-cbind(data11,data33)
head(hdata2)

数据终极合并:SQL的使用

library(sqldf)
data=sqldf("select * from data1 t1,data2 t2 where t1.id=t2.id")

案例参考https://blog.csdn.net/tandelin/article/details/100580996