R语言移除数据框各列中间的NULL/NA并保留列内顺序

首先注意你的数据里的"NULL"是字符串类型，不是R原生的缺失值NA，所以第一步先把这些字符串转成标准缺失值：

# 将数据框中的"NULL"字符串替换为NA
df2[df2 == "NULL"] <- NA

接下来定义一个处理单列的函数，作用是提取列中非缺失的元素，然后在末尾补NA到原列的长度，这样就能保证中间没有缺失，末尾可以保留NA：

clean_single_col <- function(col) {
  # 提取非NA的元素
  valid_vals <- col[!is.na(col)]
  # 补充NA到原列长度
  c(valid_vals, rep(NA, length(col) - length(valid_vals)))
}

最后用apply函数对数据框的每一列应用这个处理函数，再转回数据框：

# 处理所有列
df_cleaned <- as.data.frame(apply(df2, 2, clean_single_col))

验证处理后的结果：

print(df_cleaned)

输出示例：

people1   people2   people3
1 Variety 1 Variety 4 Variety 3
2 Variety 2 Variety 3 Variety 2
3 Variety 3 Variety 2 Variety 4
4 Variety 4 Variety 1 Variety 1
5 Variety 5       NA       NA

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