给定两个数据框a
和b
:
> a
a b c
1 -0.2246894 -1.48167912 -1.65099363
2 0.5559320 -0.87898575 -0.15634590
3 1.8469466 -0.01487524 -0.53098215
4 -0.6875051 0.23880967 0.01824621
5 -0.6735163 0.75485292 0.44154092
> b
a c
1 0.4287284 -0.3295925
2 0.5201492 0.3341251
3 -2.6355570 1.7916780
4 -1.3645337 1.3642276
5 -0.4954542 -0.6660001
是否有一种简单的方法可以连接这些以便返回下面表单的新数据框?
> new
a b c
1 -0.2246894 -1.48167912106676 -1.65099363
2 0.5559320 -0.878985746842256 -0.15634590
3 1.8469466 -0.0148752354840942 -0.53098215
4 -0.6875051 0.238809666690982 0.01824621
5 -0.6735163 0.754852923524198 0.44154092
6 0.4287284 NA -0.32959248
7 0.5201492 NA 0.33412510
8 -2.6355570 NA 1.79167801
9 -1.3645337 NA 1.36422764
10 -0.4954542 NA -0.66600006
我想合并数据框,匹配标题并插入NA
以获取缺少标题的数据框b
中的位置。
答案 0 :(得分:189)
你想要“rbind”。
b$b <- NA
new <- rbind(a, b)
rbind要求数据框具有相同的列。
第一行将b列添加到数据框b。
结果
> a <- data.frame(a=c(0,1,2), b=c(3,4,5), c=c(6,7,8))
> a
a b c
1 0 3 6
2 1 4 7
3 2 5 8
> b <- data.frame(a=c(9,10,11), c=c(12,13,14))
> b
a c
1 9 12
2 10 13
3 11 14
> b$b <- NA
> b
a c b
1 9 12 NA
2 10 13 NA
3 11 14 NA
> new <- rbind(a,b)
> new
a b c
1 0 3 6
2 1 4 7
3 2 5 8
4 9 NA 12
5 10 NA 13
6 11 NA 14
答案 1 :(得分:27)
试用plyr包:
rbind.fill(a,b,c)
答案 2 :(得分:17)
答案 3 :(得分:8)
这是一个简单的小功能,可以在自动检测每个数据集中缺少哪些列并将其添加到所有NA
之后将两个数据集绑定在一起。
无论出于何种原因,这比使用merge
函数在大型数据集上更快地返回 MUCH 。
fastmerge <- function(d1, d2) {
d1.names <- names(d1)
d2.names <- names(d2)
# columns in d1 but not in d2
d2.add <- setdiff(d1.names, d2.names)
# columns in d2 but not in d1
d1.add <- setdiff(d2.names, d1.names)
# add blank columns to d2
if(length(d2.add) > 0) {
for(i in 1:length(d2.add)) {
d2[d2.add[i]] <- NA
}
}
# add blank columns to d1
if(length(d1.add) > 0) {
for(i in 1:length(d1.add)) {
d1[d1.add[i]] <- NA
}
}
return(rbind(d1, d2))
}
答案 4 :(得分:2)
您可以使用rbind
,但在这种情况下,您需要在两个表中使用相同数量的列,请尝试以下操作:
b$b<-as.double(NA) #keeping numeric format is essential for further calculations
new<-rbind(a,b)