如何在R中结合两列生成连续无间隔的Rank列？

首先，我完全明白你的需求：结合Liver_Rank和Heart_Rank生成一个综合Rank，核心要求是两个原始排名越接近1，综合Rank也越靠前（接近1），同时要实现无间隔的并列排名——也就是相同综合得分的行共享同一个Rank，下一个不同得分直接接下一个整数，没有空缺。

先看你的示例数据：

示例DataFrame #

下面分两种方法实现（base R 和 dplyr），你可以根据自己的习惯选择：

方法一：用dplyr实现（简洁直观） #

dplyr的dense_rank()函数天生就是用来做无间隔并列排名的，非常适配这个场景。步骤如下：

1. 先处理NA值：Heart_Rank里的NA意味着该行在心脏中没有排名，优先级应该最低，所以给它一个远大于现有最大排名的数值。
2. 计算综合得分：这里用两个排名的平均值，你也可以用求和、加权平均等方式，只要保证得分越小，两个原始排名越接近1就行。
3. 用dense_rank()生成无间隔Rank。

library(dplyr)

# 假设你的数据已经存储在df中
df <- df %>%
  mutate(
    # 替换NA为Liver_Rank最大值+1000，确保这类行排名靠后
    Heart_Rank = ifelse(is.na(Heart_Rank), max(Liver_Rank, na.rm = TRUE) + 1000, Heart_Rank),
    # 计算综合得分：这里用平均值，可按需改成加权或求和
    combined_score = (Liver_Rank + Heart_Rank) / 2,
    # 生成密集排名：得分越小，Rank越靠前
    Rank = dense_rank(combined_score)
  )

方法二：用base R实现（和你熟悉的match逻辑一致） #

如果你习惯用base R，可以沿用你之前的match()思路，步骤如下：

# 处理NA值
df$Heart_Rank[is.na(df$Heart_Rank)] <- max(df$Liver_Rank, na.rm = TRUE) + 1000

# 计算综合得分
df$combined_score <- (df$Liver_Rank + df$Heart_Rank) / 2

# 获取升序排列的唯一综合得分（得分小的排名靠前）
sorted_unique_scores <- sort(unique(df$combined_score))

# 用match得到密集排名：match返回元素在sorted_unique_scores中的位置，就是无间隔的Rank
df$Rank <- match(df$combined_score, sorted_unique_scores)

处理后的结果示例 #

运行上述代码后，你的数据会变成这样（展示关键列）：

灵活调整提示 #

• 综合得分的计算可以自定义：比如如果Liver_Rank权重更高，你可以用combined_score = 0.7*Liver_Rank + 0.3*Heart_Rank，只要保证得分越小优先级越高即可。
• NA值的处理可按需修改：如果NA不是代表无排名，而是其他含义，可以替换成符合业务逻辑的数值。

内容的提问来源于stack exchange，提问作者claudiadast