如何在R语言中编写IFERROR函数以实现成本环比计算？

要实现与Excel公式=IFERROR((B2-B1)/B1,0)完全一致的成本环比计算逻辑——即计算当前成本相对前一日成本的环比变动，若计算过程出现错误（无前置数据、分母为0等）则返回0——可以用以下两种方式实现：

方法一：基础R实现 #

先构造样本数据集（可替换为你的实际数据）：

# 构造样本数据
df <- data.frame(
  days = as.Date(c("2022-01-02", "2022-01-03", "2022-01-04", "2022-01-05", "2022-01-06")),
  cost = c(1326, 1326, 1326, 1326, 1326)
)

计算环比并处理错误情况：

# 生成result列
df$result <- c(0,  # 第一行无前置数据，直接返回0
               sapply(2:nrow(df), function(i) {
                 prev_cost <- df$cost[i-1]
                 # 若前一日成本为0，返回0；否则计算环比
                 if (prev_cost == 0) 0 else (df$cost[i] - prev_cost)/prev_cost
               }))

方法二：dplyr（tidyverse）实现 #

借助dplyr的lag()函数可以更简洁地完成计算：

library(dplyr)

# 加载数据后直接计算
df <- df %>%
  mutate(
    result = ifelse(
      # 两种错误场景：无前置数据（lag返回NA）、前一日成本为0
      is.na(lag(cost)) | lag(cost) == 0,
      0,
      (cost - lag(cost))/lag(cost)
    )
  )

验证结果 #

对于你提供的样本数据（每日成本均为1326），两种方法计算出的result列除第一行外，其余均为0；若某一日成本变动（比如最后一日成本调整为其他值），会自动计算对应环比，遇到分母为0或无前置数据的情况则返回0。

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