如何在R中移除dataframe各列前导NA值、将列内容整体上移？

实现逻辑 #

对每列单独提取所有非NA的有效数值，再在每列末尾补充NA，让所有列长度统一为所有列非NA值的最大长度，最终合并为新的DataFrame即可。

完整代码实现 #

第一步：构造示例数据 #

df <- data.frame(
  C_array = c(20, 0, 0, rep(NA, 14)),
  D_array = c(rep(NA, 3), 17, 17, 21, 49, 52, rep(NA, 9)),
  E_array = c(rep(NA, 8), 31, 31, 32, 32, rep(34, 5))
)

方法1：基础R实现（无需加载第三方包） #

# 计算所有列非NA值的最大长度，即最终结果的行数
max_row <- max(sapply(df, function(col) sum(!is.na(col))))

# 逐列处理：提取非NA值后末尾补NA到统一长度
result <- as.data.frame(lapply(df, function(col) {
  valid_vals <- col[!is.na(col)]
  c(valid_vals, rep(NA, max_row - length(valid_vals)))
}))

# 查看结果
print(result)

方法2：tidyverse 风格实现 #

library(tidyverse)

max_row <- map_int(df, ~sum(!is.na(.x))) |> max()

result <- df |> 
  map(~.x[!is.na(.x)] |> c(rep(NA, max_row - length(.x)))) |> 
  as_tibble()

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