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

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 ，排除第一个即'id'，与'id'连接并设置列顺序

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