小编wer*_*nor的帖子

我有一个累积数据的数据集。我试图插入一些缺失的值，但在某些时候我得到了更高的值。这是我的数据的示例：

dat <- tibble(day=c(1:30),
              value=c(278, 278, 278, NA, NA, 302, 316, NA, 335, 359, NA, NA,
                      383, 403, 419, 419, 444, NA, NA, 444, 464, 487, 487, 487, 
                       NA, NA, 487, 487, 487, 487))

我的数据集很长，当我使用 smooth.spline 插入缺失值时，我得到的值大于下一个观察值，考虑到我正在处理累积的数据，这是相当荒谬的。这是我得到的输出：

value.smspl <- c(278, 278, 278, 287.7574, 295.2348, 302, 316, 326.5689, 335, 
359, 364.7916, 377.3012, 383, 403, 419, 419, 444, 439.765, 447.1823, 
444, 464, 487, 487, 487, 521.6235, 526.3715, 487, 487, 487, 487)

我的问题是：您能否以某种方式为插值设置边界，以便结果可靠？如果是这样，你怎么能做到呢？