如何用R语言中最后一个非空值填充data.frame的空白字符变量

嘿，我来帮你搞定这个R语言里的填充问题！你想要的是用从上到下最后一个非空值来填补数据框里的空白，对吧？我给你两个实用的方案，都能达到你要的效果：

方法1：用tidyverse工具链（推荐） #

这个方法代码清晰易读，很适合日常的数据框操作：
首先我们补全并模拟你的have数据（你提供的代码没写完，我帮你完善了随机生成空值的部分）：

library(tidyverse)

set.seed(12346)
foi <- split(iris, iris$Species)
have <- do.call("rbind", lapply(foi, function(x) {
  # 随机给每个物种的3条数据设置空字符串
  x$Species[sample(1:nrow(x), 3)] <- ""
  x
}))

然后是核心的填充代码，用accumulate函数就能轻松实现“继承上一个非空值”的逻辑：

filled_df <- have %>%
  mutate(Species = accumulate(Species, ~ ifelse(.y == "", .x, .y)))

accumulate会从上到下遍历Species列，遇到空值就用上一个非空的值替换，完全符合你要的效果！

方法2：Base R实现（无需额外包） #

如果你不想加载第三方包，用Base R也能完成这个需求：
同样先模拟have数据：

set.seed(12346)
foi <- split(iris, iris$Species)
have <- do.call("rbind", lapply(foi, function(x) {
  x$Species[sample(1:nrow(x), 3)] <- ""
  x
}))

然后用基础函数实现填充逻辑：

species_col <- have$Species
# 找到所有非空值的位置
non_empty_pos <- which(species_col != "")
# 给每个行号匹配对应的最近上一个非空值的索引
fill_idx <- findInterval(seq_along(species_col), non_empty_pos)
# 完成填充
have$Species <- species_col[non_empty_pos[fill_idx]]

这里findInterval会帮我们定位每个行对应的最近上一个非空值的位置，再用这个位置的值替换空值，一样能得到你想要的want数据框。

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