R：为前 n 列值制作带有行名的表格

Question

我有一个带有数字计数值的数据框。 我想创建一个新表，其中包含每列前 n 个值的行名。

df <- data.frame(a = c(1,4,5,2), b = c(7,1,4,6), c = c(5,6,7,1)
rownames(df) <- c(w,x,y,z)

使用 n = 2 我想要的输出是

一种	乙	C
是	瓦	是
X	z	z

我能够使用以下df2 <- apply(df, 2, function(x) sort(unique(x),decreasing =TRUE)[1:5])提取每列的前 5 个值，但我无法弄清楚如何获取与每个值对应的行名。

Answer 1

一个可能的解决方案：

df <- data.frame(a = c(1,4,5,2), b = c(7,1,4,6), c = c(5,6,7,1))
rownames(df) <- c("w","x","y","z")

f <- function(x) names(sort(x,decreasing = T))[1:2]

apply(df,2,f)

#>      a   b   c  
#> [1,] "y" "w" "y"
#> [2,] "x" "z" "x"