R语言如何移除数据框单元格NA并左对齐非NA值而非删除整行整列

你需要的效果本质是对数据框逐行重排，保留非NA值原有顺序的前提下将其前置，NA值统一放在每行末尾，na.omit()、complete.cases()这类用于删除整行/整列缺失值的函数确实不适用该场景，以下是可直接运行的方案：

步骤1：构造示例数据（可跳过，直接用你自己的数据集即可） #

df <- data.frame(
  V1 = c(1, NA, 2.1, 3.4),
  V2 = c(2, 1.1, 1, NA),
  V3 = c(NA, NA, NA, 5)
)

方案1：基础R实现（无需安装额外包，推荐入门用户使用） #

# 逐行处理：提取非NA值后补NA到原列数长度
result <- as.data.frame(t(apply(df, 1, function(x) {
  non_na_val <- x[!is.na(x)]
  c(non_na_val, rep(NA, length(x) - length(non_na_val)))
})))
# 保留原数据框的列名
colnames(result) <- colnames(df)

方案2：tidyverse实现（适合习惯使用tidyverse语法的用户） #

# 需先安装加载tidyverse包：install.packages("tidyverse")
library(tidyverse)

result <- df %>%
  rowwise() %>%
  # 提取每行的非NA值
  mutate(non_na = list(c_across(everything())[!is.na(c_across(everything()))])) %>%
  # 将列表展开为多列
  unnest_wider(non_na, names_sep = "_") %>%
  # 删除原列，保留处理后的列并重命名
  select(-all_of(colnames(df))) %>%
  set_names(colnames(df))

可选调整：将末尾NA替换为空值（适合导出展示场景） #

如果需要把行末的NA替换为空白（如导出Excel时更美观），可追加以下代码，注意执行后所有列会转为字符型，若后续需要数值计算请勿执行：

result[is.na(result)] <- ""

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