用内插值替换值比它之前的行值更小的行

标签 r

我有作为时间函数的整数变量。但是,存在值在第二天减小的错误,这是由于人为错误造成的。即

Date           Cases
2020-03-03      24
2020-03-02      21
2020-03-01      23

在“案例”中,21 是一个错误。如何用插值替换我的列中小于它们之前的行的值?

最佳答案

你可以试试

wrong <- c(0, diff(df$Cases)) < 0
df$Cases[wrong] <- df$Cases[which(wrong) - 1]

结果:

df
#>         Date Cases
#> 1 2020-03-03    24
#> 2 2020-03-02    24
#> 3 2020-03-01    23

关于用内插值替换值比它之前的行值更小的行,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/61212406/

相关文章:

r - C5.0模型需要一个结果要素

r - 在R中,如何测试两个因子是否相等?

r - 与 qplot 一致的图例颜色

r - 如何使用ggplot2向条形图中的条形添加频率计数标签?

r - 自更新以来未在传单 r map 中绘制多边形

删除列中项目的百分比

r - 使用 ggplot 绘制条形图

r - ggpairs 更改轴标签字体大小

r - data.table 聚合与日期滚动子集

r - 有没有一种简单的方法可以在 R 的 igraph 中按度数对网络节点进行着色?