数据的合并
需要的函数
cbind(),rbind(),bind_rows(),merge()
准备数据
我们先构造一组数据，以便下面的演示
> data1<-data.frame(
+ namea=c("海波","立波","秀波"),
+ value=c("一波","接","一波")
+ )
> data1
namea value
1 海波 一波
2 立波 接
3 秀波 一波
> data2<-data.frame(
+ nameb=c("柯震东","刘强东","何盛东"),
+ value=c("东去","又","东来")
+ )
> data2
nameb value
1 柯震东 东去
2 刘强东 又
3 何盛东 东来
按列合并
> cbind(data1,data2) namea value nameb value 1 海波 一波 柯震东 东去 2 立波 接 刘强东 又 3 秀波 一波 何盛东 东来
按行合并
按列合并是cbind()，那么按行合并自然是rbind()
> rbind(data1,data2) Error in match.names(clabs, names(xi)) : 名字同原来已有的名字不相对
出现了错误，这是因为”namea“ 和”nameb“不同造成的，如果都为"namea" :
> data1<-data.frame(
+ namea=c("海波","立波","秀波"),
+ value=c("一波","接","一波")
+ )
> data1
namea value
1 海波 一波
2 立波 接
3 秀波 一波
> data2<-data.frame(
+ namea=c("柯震东","刘强东","何盛东"),
+ value=c("东去","又","东来")
+ )
> data2
namea value
1 柯震东 东去
2 刘强东 又
3 何盛东 东来
> #cbind(data1,data2)
> rbind(data1,data2)
namea value
1 海波 一波
2 立波 接
3 秀波 一波
4 柯震东 东去
5 刘强东 又
6 何盛东 东来
对数据修改后，没有出现错误。如果 不修改数据该怎么做：
为了解决这个问题，使用dplyr包中的bind_rows()函数，不要求合并字段的名称必须相同，这个函数会自己做判断。
> library(dplyr) > dplyr::bind_rows(data1,data2) namea value nameb 1 海波 一波 <NA> 2 立波 接 <NA> 3 秀波 一波 <NA> 4 <NA> 东去 柯震东 5 <NA> 又 刘强东 6 <NA> 东来 何盛东
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, ...)
merge函数参数的说明:
x,y:用于合并的两个数据框 by,by.x,by.y:指定依据哪些行合并数据框,默认值为相同列名的列. all,all.x,all.y:指定x和y的行是否应该全在输出文件. sort:by指定的列是否要排序. suffixes:指定除by外相同列名的后缀. incomparables:指定by中哪些单元不进行合并.演示merge（）
data3<-data.frame(
name = c("波","东","波","波"),
type = c("秀","震","秀","秀"),
class = c(10,5,4,11),
num = c(85,50,90,90)
);data3
data4<-data_frame(
name = c("波","东"),
type = c("海","震"),
class = c(5,5),
num = c(88,81)
);data4
#合并data3和data4 > merge(data3,data4,all =T) name type class num 1 波 秀 4 90 2 波 秀 10 85 3 波 秀 11 90 4 波 海 5 88 5 东 震 5 50 6 东 震 5 81
#按照name,type,class合并data3.data4
> merge(data3, data4, by =c("name","type","class") , all = T)
name type class num.x num.y
1 波 秀 4 90 NA
2 波 秀 10 85 NA
3 波 秀 11 90 NA
4 波 海 5 NA 88
5 东 震 5 50 81
