R Plyr - 从 DDPLY 订购结果？

有谁知道排序来自 ddply 汇总操作的结果的巧妙方法？

这就是我为按深度降序排列输出所做的工作。

  ddims <- ddply(diamonds, .(color), summarise, depth = mean(depth), table = mean(table))
  ddims <- ddims[order(-ddims$depth),]

随着输出...

> ddims
  color    depth    table
7     J 61.88722 57.81239
6     I 61.84639 57.57728
5     H 61.83685 57.51781
4     G 61.75711 57.28863
1     D 61.69813 57.40459
3     F 61.69458 57.43354
2     E 61.66209 57.49120

不太难看，但我希望有一种方法可以在 ddply() 中很好地做到这一点。有谁知道怎么做？

Hadley 的 ggplot2 书中有这个关于 ddply 和子集的例子，但它实际上并没有对输出进行排序，只是选择每组两个最小的菱形。

ddply(diamonds, .(color), subset, order(carat) <= 2)

最佳答案

我将利用这个机会为 data.table 做一些宣传，它运行速度更快，并且(在我看来)至少写起来很优雅:

library(data.table)
ddims <- data.table(diamonds)
system.time(ddims <- ddims[, list(depth=mean(depth), table=mean(table)), by=color][order(depth)])

   user  system elapsed
  0.003   0.000   0.004

相比之下，如果没有排序，您的 ddply 代码已经花费了 30 倍的时间:

  user  system elapsed
 0.106   0.010   0.119

我非常尊重哈德利的出色工作，例如关于 ggplot2 和一般的令人敬畏，我必须承认，对我来说， data.table 完全取代了 ddply - 出于速度原因。

关于R Plyr - 从 DDPLY 订购结果？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/5839265/