连接两个数据帧？

给定两个数据帧 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中的标题丢失。

404139 次浏览
小开

你想要“捆绑”。

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
小开

试试 皮尔软件包:

rbind.fill(a,b,c)
小开

您可以使用 rbind，但是在这种情况下，您需要在两个表中具有相同数量的列，因此请尝试以下操作:

b$b<-as.double(NA) #keeping numeric format is essential for further calculations
new<-rbind(a,b)
小开

下面是一个简单的小函数，它将两个数据集绑定在一起，然后自动检测每个数据集中缺少哪些列，并将它们与所有 NA一起添加。

不管出于什么原因，在较大的数据集上返回 很多的速度要比使用 merge函数快。

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))
}
小开

你可以使用这个函数

bind_rows(a,b)

从 Dplyr图书馆


提交答案