R语言：从右往左取有效值填充edu2019列的NA值

下面提供两种实用方法，适合R语言初学者操作：

方法一：使用tidyverse工具链（推荐，代码可读性高） #

先加载所需包，假设你的数据框名为df，且第一列为国家名称（列名比如Country，请替换为你实际的列名）：

library(dplyr)
library(tidyr)

df <- df %>%
  rowwise() %>%
  mutate(
    # 提取当前行除国家列外的所有非NA值，取最后一个（即从右往左第一个有效值）
    last_valid = {
      non_na_vals <- na.omit(c_across(-Country))
      if (length(non_na_vals) == 0) NA else tail(non_na_vals, 1)
    },
    # 用coalesce直接替换edu2019的NA值
    edu2019 = coalesce(edu2019, last_valid)
  ) %>%
  # 移除临时辅助列
  select(-last_valid) %>%
  ungroup()

方法二：Base R方法（无需额外加载包） #

同样假设国家列为第一列，数据框名为df：

# 逐行提取除国家列外的最后一个非NA值
last_valid_vals <- apply(df[, -1], 1, function(x) {
  non_na <- na.omit(x)
  if (length(non_na) == 0) NA else tail(non_na, 1)
})

# 替换edu2019列中的NA值
df$edu2019[is.na(df$edu2019)] <- last_valid_vals[is.na(df$edu2019)]

注意事项 #

• 如果某一行除国家列外全为NA，上述代码会保留edu2019的NA（避免报错），你可以根据需求调整这部分逻辑。
• 若你之前用purrr报错，大概率是因为处理行数据时未考虑NA值为空的情况，或是未正确保持行与值的对应关系，上述两种方法均已规避这类问题。

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