条件增量的优化

Question

我有一个具有140000个按时间顺序记录的数据框。每当新的一天开始时，var“ zone”取“ f”值。 我想用每天的数量创建一个“ day”变量。我编写了一个执行此操作的循环，但执行起来却很慢（创建一个简单的ID增量即刻大约需要1分钟）。 有没有优化的方法？

# df is a dataframe with "ID" var 1:140000 and "zone" a var that take sometime "f" value

day <- 1
for (i in df$ID) {
  if (df[i, "zone"] == "f") {
    day <- day + 1
  }
  df[i, "day"] <- day
}