如何查找数值向量持续变为零的起始索引/日期？

这是时间序列数据处理里很常见的需求，我给你几个简洁优雅的R实现方案，都能高效定位到你要的起始位置：

方法一：游程编码（RLE）法（最直观易读） #

R内置的rle()函数专门用来处理连续重复值的游程编码，天生适配这类场景：

# 先对values是否为0做游程编码
rle_result <- rle(df$values == 0)

# 定位最后一段连续0的起始索引
zero_segments <- which(rle_result$values)
last_zero_segment <- zero_segments[length(zero_segments)]
start_idx <- sum(rle_result$lengths[1:(last_zero_segment - 1)]) + 1

# 对应日期
start_date <- df$dates[start_idx]

# 输出结果
start_idx  # 7
start_date # "01-07-1990"

这个方法逻辑清晰，不仅能处理最后一段连续0，还能轻松扩展到查找任意连续重复值的位置。

方法二：向量累积操作法（一行式简洁写法） #

如果偏好更紧凑的代码，可以用累积最小值结合反转向量的技巧：

# 反转逻辑向量后取累积最小值，标记从末尾开始的连续0
reverse_cummin <- cummin(rev(df$values == 0))
# 转换回原向量的起始索引
start_idx <- length(df$values) - min(which(reverse_cummin == 1)) + 1
start_date <- df$dates[start_idx]

方法三：差分定位法 #

利用diff()函数捕捉值的变化点，直接定位最后一段连续0的起始：

# 找出所有值发生变化的位置（包含第一个元素）
change_points <- which(c(TRUE, diff(df$values == 0) != 0))
# 最后一个变化点就是目标起始位置
start_idx <- tail(change_points, 1)
start_date <- df$dates[start_idx]

这三种方法都能完美解决你的问题，其中RLE法最适合新手理解，后两种写法更简洁，适合熟练的R用户。

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