Question

我有两个包含大量列的数据表。列是相同的，但它们来自不同的时间点（一个是2015年，一个是今天）。数据表的结构大致如下：

library(data.table)
dt1 <- data.table(id = c("A", "B", "C"), i = c(2,4,6), a = c(1,2,3), w = c(2,3,4), f = c(2,3,5))
old_dt1 <- data.table(id = c("A", "B", "C"), i = c(1,2,6), a = c(1,1,1), w = c(2,1,2), f = c(1,3,1))

我想通过id加入它们，但我希望将具有相同名称的列放在一起。我的问题是，当我合并（这是预期的）时，我得到以下结果：

> merge(dt1, old_dt1, by = "id", suffixes = c("", "-2015"))
   id i a w f i-2015 a-2015 w-2015 f-2015
1:  A 2 1 2 2      1      1      2      1
2:  B 4 2 3 3      2      1      1      3
3:  C 6 3 4 5      6      1      2      1

我知道我可以通过setcolorder手动重新排序数据表，但我想知道我是否遗漏了一些简单的东西（遗憾的是，这些列不是按字母顺序排列的，所以这不是一个选项...）我想得到的是：

result <- merge(dt1, old_dt1, by = "id", suffixes = c("", "-2015"))
setcolorder(result, c(1,2,6,3,7,4,8,5,9))

> result
   id i i-2015 a a-2015 w w-2015 f f-2015
1:  A 2      1 1      1 2      2 2      1
2:  B 4      2 2      1 3      1 3      3
3:  C 6      6 3      1 4      2 5      1

Answer 1

如果已经在两个数据集中对列进行了排序，则根据列名称创建一个包含2行的matrix，不包括第一个ie＆＃39; id＆＃39;，连接＆＃39; id＆＃39;并设置列顺序

setcolorder(result, c(names(result)[1], matrix(names(result)[-1], nrow=2, byrow=TRUE)))
result
#   id i i-2015 a a-2015 w w-2015 f f-2015
#1:  A 2      1 1      1 2      2 2      1
#2:  B 4      2 2      1 3      1 3      3
#3:  C 6      6 3      1 4      2 5      1

合并后保持相同名称列相邻

1 个答案: