在 R 中按所需顺序重新排列数据框的列
Rearranging column of a data frame in desired order in R
我有一个如下所示的数据框,我想更改其列的顺序。我希望列的顺序为: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))
```
我们可以创建一个matrix
来重新排列列顺序
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)]]
我有一个如下所示的数据框,我想更改其列的顺序。我希望列的顺序为: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))
```
我们可以创建一个matrix
来重新排列列顺序
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)]]