R语言中如何利用前序有效值填充Tibble中的NA缺失值

这种填充逻辑专业上叫末次观测值结转（Last Observation Carried Forward, LOCF），以下是不同场景的实现方案：

方案1：tidyverse生态（最推荐，适配Tibble操作习惯） #

用tidyr包内置的fill()函数，原生支持Tibble结构，语法简洁：

# 已安装tidyverse可直接加载tidyverse，单独安装则执行install.packages("tidyr")
library(tidyr)

# 对所有列执行向下填充，R版本<4.1可把|>替换为dplyr的%>%
dados_filled <- dados |> 
  fill(everything(), .direction = "down")

参数说明：

• everything()指定对所有列生效，也可替换为c(x,y)仅给指定列做填充
• .direction = "down"表示用前一个有效值填充后续NA，是函数默认参数可省略

填充后输出结果完全符合需求：

# A tibble: 10 × 2
       x     y
   <dbl> <dbl>
 1     2     4
 2     3     1
 3     5     9
 4     5     9
 5     2     8
 6     1     5
 7     1     5
 8     1     5
 9     9     1
10     3     2

方案2：轻量依赖实现（无需安装完整tidyverse） #

使用zoo包专门处理缺失值的na.locf()函数：

# 安装包：install.packages("zoo")
library(zoo)

dados_filled <- dados |> 
  dplyr::mutate(across(everything(), na.locf, na.rm = FALSE))

方案3：纯基础R实现（无需任何第三方包） #

不想加载外部包可以自己写逻辑实现：

# 自定义LOCF填充函数
locf_fill <- function(x) {
  not_na <- !is.na(x)
  x[not_na][cumsum(not_na)]
}

# 应用到所有列后转回tibble格式
dados_filled <- tibble::as_tibble(lapply(dados, locf_fill))

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