如何在R数据框中将零替换为递增数值？

基础R实现 #

直接定位所有0的位置，生成对应递增序列后完成替换：

set.seed(123)
DF <- data.frame(Year = 1981:2000, Value = sample(0:5, 20, replace = T))

# 找出所有Value为0的行索引
zero_pos <- which(DF$Value == 0)
# 生成从0.001起步、步长0.001的替换序列
replace_vals <- seq(0.001, by = 0.001, length.out = length(zero_pos))
# 执行替换操作
DF$Value[zero_pos] <- replace_vals

tidyverse（dplyr）实现 #

适合习惯管道式操作的场景，用cumsum统计0的累计出现次数，再生成对应递增数值：

library(dplyr)

set.seed(123)
DF <- data.frame(Year = 1981:2000, Value = sample(0:5, 20, replace = T))

DF <- DF %>%
  mutate(
    Value = case_when(
      Value == 0 ~ 0.001 * cumsum(Value == 0),
      TRUE ~ Value
    )
  )

其中cumsum(Value == 0)会逐行统计到当前位置为止0出现的总次数，乘以0.001即可得到符合要求的递增替换值，非0数值保持原样。

结果验证 #

用给定随机种子生成的原始数据里，Value列的0分别出现在第6、8、9、15、16、17行，替换后这些位置的值会依次变为0.001、0.002、0.003、0.004、0.005、0.006，完全匹配需求。

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