各列からn個のトップ値を選択し、対応する行を保存するにはどうすればよいですか？

Question

私は、各列から3つのトップ値（注文事項）を選択し、対応する行番号を保存する必要がある大きなデータフレームを持っています。

names<- c("t1","t10","t11","t2","t3","t4","t5","t6","t7","t8","t9") 
values1 <- c(2,3.1,4.5,5.1,6.5,7.1,8.5,9.11,10.1,11.8,12.3) 
values2 <- c(1,3.1,3,5.1,6.5,7.1,8.5,9.11,10.1,12,12) 

mydf<- data.frame(names,values1,values2) 
#@Juan Bosco has suggested the followings which is great but gets confuses in this case where I have similar values... 
idx <- lapply(2:3, function(col_index) { 
max_values <- sort(mydf[[col_index]], decreasing = T)[1:3] 
sapply(max_values, function(one_value){ 
as.numeric(rownames(mydf[mydf[[col_index]] == one_value, ])) 
}) 
}) 

どのようにこの問題に取り組むことができますか？

おかげ

Answer 1

は、以下を行名と列数が同じであると仮定すると、降順にsortの結果に直接サブセットを使用して、3つの最高値の行番号を返します。

lapply(2:3, function(col_index) { 
     as.numeric(rownames(mydf[mydf[[col_index]] %in% sort(mydf[[col_index]], decreasing = T)[1:3], ])) 
    }) 

編集：

以前のアプローチは、順不同に行番号を返します。

次のコードに追加すると、最初に高い値から3番目に高い値の行番号が返されます。

lapply(2:3, function(col_index) { 
    max_values <- sort(mydf[[col_index]], decreasing = T)[1:3] 
    sapply(max_values, function(one_value){ 
    as.numeric(rownames(mydf[mydf[[col_index]] == one_value, ])) 
    }) 
}) 

編集2：

前のコードは、タイでうまく対処していません。以下は、ネクタイを扱う方法です。

lapply(2:3, function(col_index) { 
    max_values <- sort(mydf[[col_index]], decreasing = T)[1:3] 
    max_rows <- sapply(max_values, function(one_value){ 
    as.numeric(rownames(mydf[mydf[[col_index]] == one_value, ])) 
    }) 

    unique(unlist(max_rows)) 

}) 

これは新しい問題を紹介し、あなたが行ための3つの値よりも以上で終了することができます。これに対処するための迅速かつ汚れた方法は、最初の3つの関心のある値を選択することです。

unique(unlist(max_rows))[1:3]