如何用前两个值的均值填充R数据框myvalues列的NA缺失值？

嘿，这就帮你实现这个自定义的缺失值填充需求！先明确你的规则：myvalues列里的NA，第2行的直接用第1行的值，其他行的用前两个值的均值来替换——包括已经填充好的前序NA哦。

下面是具体的实现步骤，每一步都给你讲清楚：

1. 先把原始数据框定义好 #

首先先还原你的数据框：

x <- data.frame(mydates = as.Date(c("2018/04/01","2018/04/02","2018/04/03","2018/04/04", "2018/04/05","2018/04/06","2018/04/07","2018/04/08", "2018/04/09","2018/04/10","2018/04/11")), 
                myvalues = c(2.3, NA, 2.1, 2.2, NA, 2.4, 2.3, 2.1, NA, NA, 2.6))

2. 先复制一份数据，别改坏原始数据 #

为了不破坏你原来的数据集，我们先创建一个副本：

x_filled <- x

3. 循环逐行处理NA #

用for循环遍历每一行，针对不同情况处理：

for (i in 2:nrow(x_filled)) {
  # 只处理当前行是NA的情况
  if (is.na(x_filled$myvalues[i])) {
    # 第2行特殊：前面只有1个值，直接抄过来
    if (i == 2) {
      x_filled$myvalues[i] <- x_filled$myvalues[i-1]
    } else {
      # 取前两行的值算均值，填进去
      prev_two <- x_filled$myvalues[(i-2):(i-1)]
      x_filled$myvalues[i] <- mean(prev_two)
    }
  }
}

4. 看看结果对不对 #

运行完代码后，打印填充后的myvalues列：

print(x_filled$myvalues)

你会得到这样的结果：

[1] 2.30 2.30 2.10 2.20 2.15 2.40 2.30 2.10 2.20 2.15 2.60

完全符合要求：

• 第2行的NA变成了2.3（和第1行一样）
• 第5行的NA是(2.1+2.2)/2=2.15
• 第9行的NA是(2.3+2.1)/2=2.2
• 第10行的NA是(2.1+2.2)/2=2.15

这个方法逻辑很直白，完全贴合你要的规则，而且连续的NA也能处理，因为前面填充好的值会被后面的NA拿来用~

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