plyr なんて...（その13）

複数キー（一部に逆順）のソート

> f1 = function() arrange(aq, Ozone, desc(Solar.R))
>
> # 複数個指定したり，その一部が逆順の場合も，同じように対応する
> f2 = function() {
+     d = aq[order(aq$Ozone, -aq$Solar.R),]
+     rownames(d) = NULL
+     d
+     }
> identical(f1(), f2())
[1] TRUE
>
> # ほぼ互角
> benchmark(f1(), f2(), columns=c("test", "replications", "elapsed", "relative", "user.self", "sys.self"), replications=1000, order=NULL)
  test replications elapsed relative user.self sys.self
1 f1()         1000   9.144    1.015     8.970    0.200
2 f2()         1000   9.010    1.000     8.867    0.188