我有以下数据框:
df <- data.frame(aa = rep(1,4),
ae = rep(2,4),
dd = rep(3,4),
`aa%` = rep(11,4),
`ae%` = rep(22,4),
`dd%` = rep(33,4))
aa ae dd aa. ae. dd.
1 1 2 3 11 22 33
2 1 2 3 11 22 33
3 1 2 3 11 22 33
4 1 2 3 11 22 33
我想让这些列变成
aa aa. ae ae. dd dd.
1 1 11 2 22 3 33
2 1 11 2 22 3 33
3 1 11 2 22 3 33
4 1 11 2 22 3 33
所以我做到了
library(dplyr)
library(gtools)
df %>%
select(1, mixedorder(names(.)[-1]))
但这给了
aa dd aa. ae ae.
1 1 3 11 2 22
2 1 3 11 2 22
3 1 3 11 2 22
4 1 3 11 2 22
如何获得具有所需列顺序的输出?