如何根据列对每个项目进行排名？

Question

我想根据以下示例中的列对每个项目进行排名。

对于每个项目，所有元素都在LC1中排在第1级，在LC2中排在第2级，在LC3中排在第3级，在LC4中排在第4级

输入：

     Item   LC1     LC2     LC3    LC4
1   0A2926  MW92    RM11    RS11    WK14
2   0A2926  MW92    RM11    RS11    WK15
3   0A2926  MW92    SE92    NA      NA
4   0A3721  RM11    MW92    NA      NA
5   0A4664  MW92    RM11    RS11    NA

输出：

 Item    LC     Rank 
0A2926   MW92     1
0A2926   RM11     2
0A2926   SE92     2
0A2926   RS11     3
0A2926   WK14     4
0A2926   WK15     4
0A3721   RM11     1
0A3721   MW92     2
0A4664   MW92     1
0A4664   RM11     2
0A4664   RS11     3

有人可以指导我如何在R中进行此操作吗？

Answer 1

您可以像这样使用tidyverse软件包：

library(tidyverse)

df %>% gather(Rank, LC, -Item) %>%
  mutate(Rank = as.numeric(grep("[0-9]", Rank, value = T))) %>%
  select(Item, LC, Rank)

Answer 2

一种方法可能是将gather数据转换为长格式以删除NA值，并获得Rank删除列中存在的字符值，从而仅保留数字。

library(dplyr)
df %>%
  tidyr::gather(Rank, value, starts_with("LC"), na.rm = TRUE) %>%
  mutate(Rank = as.integer(gsub("[A-Z]", "", Rank)))


#     Item Rank value
#1  0A2926    1  MW92
#2  0A2926    1  MW92
#3  0A2926    1  MW92
#4  0A3721    1  RM11
#5  0A4664    1  MW92
#6  0A2926    2  RM11
#7  0A2926    2  RM11
#8  0A2926    2  SE92
#9  0A3721    2  MW92
#10 0A4664    2  RM11
#11 0A2926    3  RS11
#12 0A2926    3  RS11
#13 0A4664    3  RS11
#14 0A2926    4  WK14
#15 0A2926    4  WK15