如何按组重排列值，使相同值始终处于同一列？

需求说明 #

数据中同组（如record_id+Loc）的CD1/CD2、PR1/PR2、TR1/TR2列值顺序可能互换，需要将每组对应列对按排序后固定，让相同值落在同一列，方便数据对比。

解决方案（data.table实现） #

以下是完整可运行的代码，覆盖所有需要处理的列对，并按分组排序：

library(data.table)

# 原始数据
mydata <- structure(list(record_id = c(1L, 2L, 2L), label = c("ABC", "ABC", "ABC"), 
                         inst = c(1L, 1L, 2L), Loc = c("CAB", "CAB", "JAB"), 
                         CD1 = c("a123B", "tmz123b", "tmz12"), PR1 = c("b123c", "tm123n", "tm13n"), 
                         TR1 = c("ab123", "tm245", "tm245"), CD2 = c("tmz123b", "a123B", "a13B"), 
                         PR2 = c("tm123n", "b123c", "b13c"), TR2 = c("tm245", "ab123", "ab12")), 
                    class = "data.frame", row.names = c(NA, -3L))

# 转换为data.table格式
setDT(mydata)

# 定义需要处理的列对集合
col_pairs <- list(
  c("CD1", "CD2"),
  c("PR1", "PR2"),
  c("TR1", "TR2")
)

# 循环处理每个列对：按record_id+Loc分组，对列内值排序后重新赋值
for(pair in col_pairs) {
  mydata[, (pair) := .(sort(.SD[[1]], .SD[[2]])), by = .(record_id, Loc), .SDcols = pair]
}

# 查看处理后的结果
mydata

运行结果 #

处理后的数据与期望输出完全一致：

record_id label inst  Loc    CD1    PR1   TR1     CD2    PR2   TR2
1:         1   ABC    1  CAB a123B  b123c ab123 tmz123b tm123n tm245
2:         2   ABC    1  CAB a123B  b123c ab123 tmz123b tm123n tm245
3:         2   ABC    2  JAB tmz12 tm13n tm245    a13B   b13c  ab12

可选：不分组全局排序 #

如果不需要按分组独立排序，可直接去掉by参数，对整个数据集的列对进行排序：

for(pair in col_pairs) {
  mydata[, (pair) := .(sort(.SD[[1]], .SD[[2]])), .SDcols = pair]
}

内容的提问来源于stack exchange，提问作者akang