在R中基于列（向量）的前一个值编写if语句

嘿，我完全懂你现在的困扰——把Excel里的温度事件跟踪模型迁移到R时，碰到那种依赖同一列前一个值的条件判断，确实容易卡壳，毕竟 Excel 的单元格引用逻辑和 R 处理数据的思路差别不小。我来给你捋几个实用的解决办法，应该能帮到你：

如果你的需求只是当前温度和前一行温度比较，返回1（上升）或0（下降/不变），那 dplyr 包里的 lag() 函数绝对是首选，它能轻松获取前一行的数值。

举个具体例子，假设你的数据框叫 temp_tracking，有一列 temperature 存储温度数据，我们要生成 event_mark 列标记事件：

library(dplyr)

# 加载数据后处理
temp_tracking <- temp_tracking %>%
  mutate(
    event_mark = if_else(
      temperature > lag(temperature),  # 条件：当前温度 > 前一行温度
      1,  # 满足返回1
      0,  # 不满足返回0
      missing = 0  # 第一行没有前值，默认设为0（你可以改成需要的初始值）
    )
  )

这里 lag(temperature) 会把 temperature 列的数值整体后移一行，刚好让当前行和前一行对齐。如果想自定义第一行的默认值，还可以用 lag(temperature, default = first(temperature))，这样第一行就是和自身比较，返回0。

如果你的模型逻辑更复杂——比如事件标记不仅看温度变化，还要依赖上一个事件的结果（比如连续上升时不重复标记，只有从下降转上升才标记1），那就要用 purrr 包的 accumulate() 函数，它能实现“累积计算”，每一步的结果会传递给下一步。

比如规则是：只有当当前温度比前一行高，且上一个事件标记是0时，才返回1，否则返回0：

library(purrr)
library(dplyr)

temp_tracking <- temp_tracking %>%
  mutate(
    event_mark = accumulate(
      .x = 2:nrow(.),  # 从第二行开始遍历
      .init = 0,  # 第一行的初始事件标记值
      .f = function(last_event, current_row) {
        # 拿当前行温度和前一行比较，同时判断上一个事件状态
        if (temperature[current_row] > temperature[current_row - 1] && last_event == 0) {
          1
        } else {
          0
        }
      }
    )
  )

如果你不想加载额外的包，用基础 R 的向量索引也能搞定：

# 生成事件标记：第一行设为0，后面的行和前一行比较
temp_tracking$event_mark <- c(
  0,  # 初始值
  ifelse(
    temp_tracking$temperature[-1] > temp_tracking$temperature[-nrow(temp_tracking)],
    1,
    0
  )
)

这里 temperature[-1] 是去掉第一行的温度向量，temperature[-nrow(temp_tracking)] 是去掉最后一行的温度向量，两个向量长度一致，刚好对应“当前行”和“前一行”的比较。

你可以根据自己的模型逻辑，调整这些代码里的条件和返回值，应该就能复刻 Excel 里的功能啦～

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