r - 合并后保持同名列相邻

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