數(shù)據(jù)的合并
需要的函數(shù)
|
1
|
cbind(),rbind(),bind_rows(),merge() |
準(zhǔn)備數(shù)據(jù)
我們先構(gòu)造一組數(shù)據(jù)，以便下面的演示
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
> data1<-data.frame(+ namea=c("海波","立波","秀波"),+ value=c("一波","接","一波")+ )> data1 namea value1 海波 一波2 立波 接3 秀波 一波> data2<-data.frame(+ nameb=c("柯震東","劉強(qiáng)東","何盛東"),+ value=c("東去","又","東來")+ )> data2 nameb value1 柯震東 東去2 劉強(qiáng)東 又3 何盛東 東來 |
按列合并
|
1
2
3
4
5
|
> cbind(data1,data2) namea value nameb value1 海波 一波 柯震東 東去2 立波 接 劉強(qiáng)東 又3 秀波 一波 何盛東 東來 |
按行合并
按列合并是cbind()，那么按行合并自然是rbind()
|
1
2
|
> rbind(data1,data2)Error in match.names(clabs, names(xi)) : 名字同原來已有的名字不相對(duì) |
出現(xiàn)了錯(cuò)誤，這是因?yàn)?rdquo;namea“ 和”nameb“不同造成的，如果都為"namea" :
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
> data1<-data.frame(+ namea=c("海波","立波","秀波"),+ value=c("一波","接","一波")+ )> data1 namea value1 海波 一波2 立波 接3 秀波 一波> data2<-data.frame(+ namea=c("柯震東","劉強(qiáng)東","何盛東"),+ value=c("東去","又","東來")+ )> data2 namea value1 柯震東 東去2 劉強(qiáng)東 又3 何盛東 東來> #cbind(data1,data2)> rbind(data1,data2) namea value1 海波 一波2 立波 接3 秀波 一波4 柯震東 東去5 劉強(qiáng)東 又6 何盛東 東來 |
對(duì)數(shù)據(jù)修改后，沒有出現(xiàn)錯(cuò)誤。如果 不修改數(shù)據(jù)該怎么做：
? 為了解決這個(gè)問題，使用dplyr包中的bind_rows()函數(shù)，不要求合并字段的名稱必須相同，這個(gè)函數(shù)會(huì)自己做判斷。
|
1
2
3
4
5
6
7
8
9
|
> library(dplyr)> dplyr::bind_rows(data1,data2) namea value nameb1 海波 一波 <NA>2 立波 接 <NA>3 秀波 一波 <NA>4 <NA> 東去 柯震東5 <NA> 又 劉強(qiáng)東6 <NA> 東來 何盛東 |
merge()
|
1
2
3
4
5
|
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函數(shù)參數(shù)的說明:
- x,y:用于合并的兩個(gè)數(shù)據(jù)框
- by,by.x,by.y:指定依據(jù)哪些行合并數(shù)據(jù)框,默認(rèn)值為相同列名的列.
- all,all.x,all.y:指定x和y的行是否應(yīng)該全在輸出文件.
- sort:by指定的列是否要排序.
- suffixes:指定除by外相同列名的后綴.
- incomparables:指定by中哪些單元不進(jìn)行合并.
演示merge（）
|
1
2
3
4
5
6
7
8
9
10
11
12
|
data3<-data.frame( name = c("波","東","波","波"), type = c("秀","震","秀","秀"), class = c(10,5,4,11), num = c(85,50,90,90));data3data4<-data_frame( name = c("波","東"), type = c("海","震"), class = c(5,5), num = c(88,81));data4 |
|
1
2
3
4
5
6
7
8
9
|
#合并data3和data4> merge(data3,data4,all =T) name type class num1 波 秀 4 902 波 秀 10 853 波 秀 11 904 波 海 5 885 東 震 5 506 東 震 5 81 |
|
1
2
3
4
5
6
7
8
|
#按照name,type,class合并data3.data4> merge(data3, data4, by =c("name","type","class") , all = T) name type class num.x num.y1 波 秀 4 90 NA2 波 秀 10 85 NA3 波 秀 11 90 NA4 波 海 5 NA 885 東 震 5 50 81 |
到此這篇關(guān)于詳解R語言數(shù)據(jù)合并一行代碼搞定的文章就介紹到這了,更多相關(guān)R語言數(shù)據(jù)合并內(nèi)容請(qǐng)搜索服務(wù)器之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持服務(wù)器之家！
原文鏈接：https://blog.csdn.net/sinat_30361015/article/details/86702618
