如何在 R 中对数据帧进行排序并保留指定的列顺序？

Question

假设我有一个 data.frame，

x <- data.frame(a = c('A','A','A','A','A', 'C','C','C','C', 'B','B','B'),
                b = c('a','c','a','a','c', 'd', 'e','e','d', 'b','b','b'),
                c = c( 7,  3,  2,  4,  5,   3,   1,  1,  5,   5,  2,  3),
                stringsAsFactors = FALSE)

> x
   a b c
1  A a 7
2  A c 3
3  A a 2
4  A a 4
5  A c 5
6  C d 3
7  C e 1
8  C e 1
9  C d 5
10 B b 5
11 B b 2
12 B b 3

我想按 b 和 c 列对 x 进行排序，但保持 a 的顺序像以前一样。 x[order(x$b, x$c),] - 破坏 a 列的顺序。这就是我想要的：

   a b c
3  A a 2
4  A a 4
1  A a 7
2  A c 3
5  A c 5
6  C d 3
9  C d 5
7  C e 1
8  C e 1
11 B b 2
12 B b 3
10 B b 5

有没有一种快速的方法？

目前我运行“for”循环并对每个子集进行排序，我确信一定有更好的方法。

谢谢你！ 伊利亚

Answer 1

如果列“a”已排序，那么就这么简单：

> x[order(x$a,x$b, x$c),]
   a b c
3  A a 2
4  A a 4
1  A a 7
2  A c 3
5  A c 5
6  B d 3
9  B d 5
7  B e 1
8  B e 1
11 C b 2
12 C b 3
10 C b 5

如果列 a 未排序（但已分组），则创建一个具有 x$a 级别的新因子并使用它。

Answer 2

谢谢太空人！你的推荐效果很好。

x$a <- factor(x$a, levels = unique(x$a), ordered = TRUE)
x[order(x$a,x$b, x$c),]

按照加文的评论

   x$a <- factor(x$a, levels = unique(x$a))
   x[order(x$a,x$b, x$c),]

Answer 3

require(doBy)
orderBy(~ a + b + c, data=x)