对于每一行，按desc顺序排序前5个值，并在那里获得列名

如何解决对于每一行，按desc顺序排序前5个值，并在那里获得列名

我有一个数据框，对于每一行，我想提取每行最大值的前5列

DF <- data.frame(a1=c(10,45,100,5000,23,2,56),a2=c(60,20,5,1,3,4,5),a3=c(90,-5,-3,-2),a4=c(900,122,30,40,50,64,-75,-83,-92),a5=c(190,32,80,49,-50,-7,a6=c(30,27,54,84,-37,-23),a7=c(0,39,9,-23))

我尝试使用以下方法

k <- 5

mx <- t(apply(DF,function(x)names(DF)[sort(head(order(x,decreasing=TRUE),k))]))
mx<-as.data.frame(mx)

我能够得到结果，但顺序对所有行都不正确

例如

输入为

**第1行的预期O / P应该是**

a4 a5 a3 a2 a6

或

a4 a5 a3 a6 a2

我的O / P是

如果可能，我希望基于dplyr的解决方案

解决方法

尝试这种方法，问题是您还有一个额外的sort()正在重新对值进行重新排序：

#Code
mx <- t(apply(DF,1,function(x)names(DF)[head(order(x,decreasing=TRUE),k)]))
mx<-as.data.frame(mx)

输出：

  V1 V2 V3 V4 V5
1 a4 a5 a3 a2 a6
2 a4 a1 a5 a7 a6
3 a1 a6 a7 a4 a5
4 a1 a6 a5 a7 a4
5 a6 a5 a7 a4 a1
6 a4 a5 a6 a1 a7
7 a2 a1 a3 a7 a5
8 a1 a2 a3 a5 a7
9 a1 a2 a3 a5 a6

一种tidyverse方法将意味着像这样重塑数据：

library(tidyverse)
#Code
DF %>%
  #Create an id by row
  mutate(id=1:n()) %>%
  #Reshape
  pivot_longer(cols = -id) %>%
  #Arrange
  arrange(id,-value) %>%
  #Filter top 5
  group_by(id) %>%
  mutate(Var=1:n()) %>%
  filter(Var<=5) %>%
  select(-c(value,Var)) %>%
  #Format
  mutate(Var=paste0('V',1:n())) %>%
  pivot_wider(names_from = Var,values_from=name) %>%
  ungroup() %>%
  select(-id)

输出：

# A tibble: 9 x 5
  V1    V2    V3    V4    V5   
  <chr> <chr> <chr> <chr> <chr>
1 a4    a5    a3    a2    a6   
2 a4    a1    a5    a7    a6   
3 a1    a6    a7    a4    a5   
4 a1    a6    a5    a7    a4   
5 a6    a5    a7    a4    a1   
6 a4    a5    a6    a1    a7   
7 a2    a1    a3    a7    a5   
8 a1    a2    a3    a5    a7   
9 a1    a2    a3    a5    a6