R - 修改 tapply 函数中的级别顺序

Question

我的数据如下所示

nums      r     a
1 3     210     0
4 6     3891    1
9 8     891     1
1 3     321     1
8 1     32      0
etc     etc     etc

我想计算一些东西，想知道是否有人可以帮助提供以下代码

1. 每个 nums 值的平均 a 值（例如，上面，1 3 的平均 a 是 0.5），按最高平均 a 值排序。我在想tapply 会解决这个问题，但我不知道如何处理排序组件。
2. 每个nums 值的平均a 值，按预定的nums 顺序排序。例如，tapply(df$ac, df$nums, mean, orderBy=c("1 3", "4 6", "8 1", etc.)) 之类的东西。您可以假设我的排序涵盖了所有可能的 nums 值。

Answer 1

使用tapply：

agg <- with(data, tapply(a, nums, FUN = mean))

那么对于 1，做：

sort(agg, decreasing = TRUE)

对于 2，执行：

agg[predetermined.nums]

---

你也可以使用aggregate:

agg <- aggregate(a ~ nums, data, FUN = mean)

那么对于 1，做：

agg[order(agg$a, decreasing = TRUE), ]

对于 2，执行：

agg[match(predetermined.nums, agg$nums), ]