如何在R中为指定行填充相邻空白变量直至遇到非空值？

核心需求 #

仅对var1 == "A"的行，将空白/NA值填充为该变量的前一个非空值，其他行保持原样，无需逐个指定变量名。

示例测试数据 #

先构造模拟数据方便验证：

library(tibble)
df <- tibble(
  var1 = c("A", "A", "A", "B", "A"),
  var2 = c("textA", NA, NA, "x", NA),
  var3 = c(NA, NA, NA, "y", NA),
  var4 = c(NA, "textB", NA, "z", NA)
)

方法1：纯tidyverse实现（dplyr + tidyr） #

利用across批量处理变量，结合fill实现前向填充，仅在目标行组生效：

library(dplyr)
library(tidyr)

df_filled <- df %>%
  # 按var1分组，确保填充仅在同组内进行
  group_by(var1) %>%
  # 对除var1外的所有变量执行前向填充，仅var1为"A"时触发
  mutate(across(-var1, ~ if (cur_group()$var1 == "A") fill(., .direction = "down") else .)) %>%
  ungroup()

方法2：zoo包简化填充逻辑 #

zoo::na.locf是专门处理前向填充的函数，代码更简洁：

library(dplyr)
library(zoo)

df_filled <- df %>%
  group_by(var1) %>%
  mutate(across(-var1, ~ if (cur_group()$var1 == "A") na.locf(., na.rm = FALSE) else .)) %>%
  ungroup()

• na.rm = FALSE保留开头的NA值（若变量第一个值就是空白，不会强制填充）

适配空字符串场景 #

如果你的"空白"是指空字符串""而非NA，先转NA再填充：

df_filled <- df %>%
  # 将空字符串转为NA
  mutate(across(-var1, ~ na_if(., ""))) %>%
  group_by(var1) %>%
  mutate(across(-var1, ~ if (cur_group()$var1 == "A") fill(., .direction = "down") else .)) %>%
  ungroup()

灵活调整目标变量 #

如果不需要处理所有变量，可指定变量列表，比如仅处理var2、var3：

mutate(across(c(var2, var3), ~ if (cur_group()$var1 == "A") fill(., .direction = "down") else .))

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