在R中如何基于有序数据生成绩效升降状态指标？

没问题，你已经把绩效数据转成ordered类型这步非常关键——因为有序因子的比较会严格遵循你设定的类别顺序（Low < Middle < High），这正好契合我们的需求！下面给你两种简洁的实现方式：

方法一：基础R的嵌套ifelse语句 #

如果你习惯用基础R代码，直接通过逻辑判断就能生成diff列：

# 直接计算差异状态
df_result$diff <- ifelse(df$end > df$start, 1,
                         ifelse(df$end < df$start, -1, 0))

原理很简单：

• 当end的绩效等级高于start时，标记为1（变好）
• 当end低于start时，标记为-1（变差）
• 其余情况（等级相同）标记为0（无变化）

方法二：用dplyr的case_when（更易读） #

如果你的项目常用tidyverse工具，case_when会让逻辑更清晰，代码可读性更强：

library(dplyr)

# 生成diff列并保留原数据
df_result <- df %>%
  mutate(diff = case_when(
    end > start ~ 1,
    end < start ~ -1,
    TRUE ~ 0  # 匹配所有剩余情况（即无变化）
  ))

验证示例 #

我们可以用测试数据验证效果：

# 创建测试数据
df <- data.frame(
  start = ordered(c(1,2,3,2,1), levels = c(1,2,3), labels = c("Low", "Middle", "High")),
  end = ordered(c(2,2,2,3,1), levels = c(1,2,3), labels = c("Low", "Middle", "High"))
)

运行上述代码后，df_result$diff会得到1, 0, -1, 1, 0，完全符合预期的状态标记！

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