合并多个数据集并按 id 排序 [重复]

Question

我正在尝试合并多个数据框。假设我有以下数据框：

library(tidyverse)
id <- c(10, 10, 12, 12, 13)
data <- c(500, 600, 700, 800, 900)
data1 <- data.frame(id, data)

id <- c(10, 12, 13, 14)
data <- c(550, 850, 950, 1050)
data2 <- data.frame(id, data)

id <- c(15)
data <- c(1350)
data3 <- data.frame(id, data)

现在我想加入数据框，使输出看起来像这样：

> srtdata
   id data
1  10  500
2  10  600
6  10  550
3  12  700
4  12  800
7  12  850
5  13  900
8  13  950
9  14 1050
10 15 1350

这就是我这样做的方式。

mdata1 <- dplyr::full_join(data1, data2)
mdata2 <- dplyr::full_join(mdata1, data3)

我必须写两行，因为似乎full_join 可以同时占用两帧x 和y。

为了以正确的方式对数据进行排序，我使用了来自 base R 的 order：

srtdata <- mdata2[order(mdata2$id), ]

有人来帮我找到更好的解决方案吗？

Answer 1

当您的数据框有一些重叠时，请使用连接。如果您只是想堆叠数据帧，请使用dplyr::bind_rows。然后使用dplyr::arrange排序：

bind_rows(data1, data2, data3) %>% 
    arrange(id)

#### OUTPUT ####

   id data
1  10  500
2  10  600
3  10  550
4  12  700
5  12  800
6  12  850
7  13  900
8  13  950
9  14 1050
10 15 1350

bind_rows 也适用于数据框列表：

df_list <- list(data1 = data1, data2 = data2, data3 = data3)
bind_rows(df_list, .id = "dataframe") %>% 
    arrange(id)

#### OUTPUT ####

   dataframe id data
1      data1 10  500
2      data1 10  600
3      data2 10  550
4      data1 12  700
5      data1 12  800
6      data2 12  850
7      data1 13  900
8      data2 13  950
9      data2 14 1050
10     data3 15 1350

Answer 2

您也可以使用data.table 包中的rbindlist。

require(data.table)
rbindlist(list(data1, data2, data3))[order(id)]

    id data
 1: 10  500
 2: 10  600
 3: 10  550
 4: 12  700
 5: 12  800
 6: 12  850
 7: 13  900
 8: 13  950
 9: 14 1050
10: 15 1350

Answer 3

看起来你正在寻找bind_rows：

bind_rows(data1, data2, data3) %>%
  arrange(id)

如果您的 data.frames 都在列表中，您也可以在列表中使用 bind_rows（感谢 Shinobi_Atobe 指出此处已过时使用 do.call）：

mylist <- list(data1, data2, data3)
bind_rows(mylist) %>%
  arrange(id)

如果您有大量 data.frames 并且您不想拼写每个 data.frame 的名称，则最后一种方法很有用。