在 R 中按所需顺序重新排列数据框的列

Question

我有一个如下所示的数据框，我想更改其列的顺序。我希望列的顺序为:1、4、2、5、3、6。如何重新排序？请注意，这是一个小示例，我有更多的列，我想像这样对它们进行排序。一般公式为第一批为 1+3x，第二批为 2+3x，最后一批为 3+3x，其中 x=0,1,2,....

dput(medg)
structure(list(X1 = c(1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 
3, 3, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 1, 2, 3, 1, 
2, 3), X2 = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2), 
    X3 = c(2, 3, 1, 2, 3, 1, 3, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 
    3, 2, 3, 1, 2, 3, 1, 3, 1, 2, 3, 1, 2, 1, 2, 3, 1, 2, 3), 
    X4 = c(1, 1, 2, 2, 2, 1, 1, 2, 2, 2, 1, 1, 2, 2, 2, 1, 1, 
    1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 1, 1, 1, 2, 2, 2), 
    X5 = c(0, 0.2622587, 0.1040687, 0.1409907, 0, 0, 0.6184543, 
    0.9525439, 0.7830234, 0.3400703, 0.2622587, 0.6184543, 0.3765996, 
    0.907851, 0.5296791, 0.1040687, 0.9525439, 0.3765996, 0.5567241, 
    0.3325466, 0.1409907, 0.7830234, 0.907851, 0.5567241, 0.2221638, 
    0, 0.3400703, 0.5296791, 0.3325466, 0.2221638, 0, 0, 0, 0, 
    0, 0)), class = "data.frame", row.names = c(NA, -36L))
```

Answer 1

我们可以创建一个矩阵来重新排列列的顺序

medg[c(matrix(seq_along(medg), ncol = 3, byrow = TRUE))[seq_along(medg)]]

---

此外，如果我们想使用 3 *

i1 <- rep(seq_len(ceiling(ncol(medg)/2)), each = 2) + 3 * (0:1)
medg[i1[seq_along(medg)]]