R语言如何按两个条件计算生成新的diff差异列

你可以选择基础R或者dplyr两种常用方式实现需求：

• 基础R实现
  使用向量化判断函数ifelse()直接生成新列：

data$diff <- ifelse(!is.na(data$value3), data$value1 - data$value3, data$value1 - data$value2)

• dplyr实现
  第一种是用if_else()函数，逻辑和基础R逻辑一致：

library(dplyr)
data <- data %>% 
  mutate(diff = if_else(!is.na(value3), value1 - value3, value1 - value2))

更简洁的写法可以用coalesce()函数，自动取第一个非缺失值，刚好匹配你的计算规则：

data <- data %>% 
  mutate(diff = value1 - coalesce(value3, value2))

以上写法运行后，输出的数据框和你给出的预期结果完全一致。

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