将条件编号应用于 R 中的分组数据

Question

我有一个像下面的表格，里面有 100 行数据。

ID  RANK
1   2
1   3
1   3
2   4
2   8
3   3
3   3
3   3
4   6
4   7
4   7
4   7
4   7
4   7
4   6

我想尝试找到一种按 ID 对数据进行分组的方法，以便我可以分别对每个组进行重新排名。

ReRank 列基于 Rank 列，基本上从 1 开始从最小到最大重新编号，但重要的是要注意，ReRank 列中的数字可以多次输入，具体取决于 Rank 列中的数字。

换句话说，输出需要看起来像这样

ID   Rank ReRANK
1    3       2
1    2       1
1    3       2
2    4       1
2    8       2
3    3       1
3    3       1
3    3       1

对于我的一生，我不知道如何能够按分组列和排名列的值重新排名列。

到目前为止，这是我最好的猜测，但它绝对没有做我需要它做的事情。

ReRANK = mat.or.vec(length(RANK),1)
ReRANK[1] = counter = 1
for(i in 2:length(RANK)) {
  if (RANK[i] != RANK[i-1]) { counter = counter + 1 }
  ReRANK[i] = counter
}

提前感谢您的帮助！！

Answer 1

下面是使用 ave 和 rank 的基本 R 方法：

df$ReRank <- ave(df$Rank, df$ID, FUN=function(i) rank(i, ties.method="min"))

秩中的 min 参数可确保在存在平局时发生最低排名。 默认值为取秩的平均值。

如果您在组中的领带较低，rank将计算这些较低的值，然后继续添加下一个最低值作为较低值 + 1 的计数。这些值仍然是有序和不同的。如果您真的想让计数为 1、2、3 等，而不是 1、3、6 或其他取决于重复值数量的内容，这里有一个使用 factor 的小技巧：

df$ReRank <- ave(df$Rank, df$ID, FUN=function(i) {
                 as.integer(factor(rank(i, ties.method="min"))))

在这里，我们使用factor为每个级别构建从上开始计数的值。然后我们强制它成为一个整数。

例如

temp <- c(rep(1, 3), 2,5,1,4,3,7)
[1] 2.5 2.5 2.5 5.0 8.0 2.5 7.0 6.0 9.0
rank(temp, ties.method="min")
[1] 1 1 1 5 8 1 7 6 9
as.integer(factor(rank(temp, ties.method="min")))
[1] 1 1 1 2 5 1 4 3 6

数据

df <- read.table(header=T, text="ID   Rank 
1    2       
1    3       
1    3       
2    4       
2    8       
3    3      
3    3       
3    3 ")