pmax（並行最大值）相當於R中的排名

Question

如果有4名評委並且他們每個都給某個表演者或某個特定主題的評分，那麼可以有4個評分分數。 但是人們想把它變成一個等級來克服一個法官相對於另一個法官的等級膨脹。 易於

transform(assignment,judge1.rank=rank(judge1),judge2.rank=rank(judge2), 
        judge3.rank=rank(judge3), judge4.rank=rank(judge4)) 

但隨後每行（表演者或主題），我想另一個四列，對於每行狀態行列（或平行等級）爲每個法官的等級。

我希望做一些諸如

prank(judge1.rank,judge2.rank,judge3.rank,judge4.rank) 

我想它會作爲一個數據幀輸出。

我想使用重塑包來融化數據，但這只是一個初步的想法。

Answer 1

如果我理解正確的話，這會做你想要什麼：

## example data 
set.seed(1) 
judge <- data.frame(judge1 = sample(1:10), judge2 = sample(1:10), 
        judge3 = sample(1:10), judge4 = sample(1:10)) 

我們計算的行列使用sapply()返回行列矩陣，其每一法官。然後我們在這個矩陣的行上使用apply rank()來計算表演者/行等級。最後的轉置將結果返回到所需的方向。

> t(apply(sapply(judge, rank), 1, rank)) 
     judge1 judge2 judge3 
[1,] 1.5 1.5 3.0 
[2,] 3.0 1.5 1.5 
[3,] 1.0 2.5 2.5 
[4,] 2.0 3.0 1.0 
[5,] 1.0 2.0 3.0 
[6,] 2.5 1.0 2.5 
[7,] 3.0 2.0 1.0 
[8,] 3.0 1.0 2.0 
[9,] 3.0 1.0 2.0 
[10,] 1.0 3.0 2.0 

裹在一個功能，你是好去：

prank <- function(df, ...) { 
    t(apply(sapply(df, rank, ...), 1, rank, ...)) 
} 

其中給出：

> prank(judge) 
     judge1 judge2 judge3 
[1,] 1.5 1.5 3.0 
[2,] 3.0 1.5 1.5 
[3,] 1.0 2.5 2.5 
[4,] 2.0 3.0 1.0 
[5,] 1.0 2.0 3.0 
[6,] 2.5 1.0 2.5 
[7,] 3.0 2.0 1.0 
[8,] 3.0 1.0 2.0 
[9,] 3.0 1.0 2.0 
[10,] 1.0 3.0 2.0 

的...允許參數rank()傳遞中，例如ties.method參數：

> prank(judge, ties = "min") 
     judge1 judge2 judge3 
[1,]  1  1  3 
[2,]  3  1  1 
[3,]  1  2  2 
[4,]  2  3  1 
[5,]  1  2  3 
[6,]  2  1  2 
[7,]  3  2  1 
[8,]  3  1  2 
[9,]  3  1  2 
[10,]  1  3  2