我有一个数据集，我想zero用递增值替换每个值：第一个零变为 0.001，第二个零变为 0.002，第三个零变为 0.003，依此类推。每次出现零时，它都应比上一次替换增加 0.001。
set.seed(123)
DF <- data.frame(Year = 1981:2000, Value = sample(0:5, 20, replace = T))
更新： 向原始数据框添加不确定性界限，该界限应为图的一部分
我之前问过这个问题，但我再次询问是想看看是否还有其他方法可以在不连接线条的情况下遮蔽缺失月份的数据。
DF <- data.frame(Date = seq(as.Date("2000-01-01"),to = as.Date("2005-12-31"),by = "day"),
Obs = runif(2192, 5,10),
Sim = runif(2192, 8,12),
Up = runif(2192,13,15),
Low = runif(2192,1,4)) %>%
filter(between(month(Date),3,10))
ggplot(DF, aes(x = Date))+
geom_ribbon(aes(ymin = Up, ymax = Low), fill = "grey30", alpha = 0.5)+
geom_line(aes(y = Obs, col = "blue"))+
geom_line(aes(y = Sim, col = "red"))
需要输出 这正是我想要的，但没有连接缺失月份的线路。
更新 2： 不确定性界限示例输出
