在R中拼接两个dataframe并处理NA后导出为CSV文件如何实现？

• 你使用natural_join报错的原因是，你指定了连接键为ID，但你的两个dataframe中都不存在ID字段，且join类函数是按照匹配键合并行，本身也不符合你当前的拼接需求。
• 直接使用rbind会完整保留两个表的所有行，x中S1列原有的NA会保留在第2、3行，无法得到非NA值前置的效果。

以下为基础R实现方案，无需额外安装第三方包：

# 示例数据
x <- data.frame(
  S1 = c(10, NA, NA),
  S2 = c(21, 22, 23)
)
y <- data.frame(
  S1 = c(11, 12, 13, 14),
  S2 = c(24, 25, 26, 27)
)

# 计算合并后的总行数
total_row <- nrow(x) + nrow(y)

# 逐列拼接非NA值，不足长度自动补NA
final <- as.data.frame(lapply(colnames(x), function(col_name) {
  # 拼接两表对应列的非NA值
  col_values <- c(na.omit(x[[col_name]]), na.omit(y[[col_name]]))
  # 补NA到总长度
  length(col_values) <- total_row
  return(col_values)
}))
# 设置列名
colnames(final) <- colnames(x)

# 导出为CSV文件
# 参数na = "" 可将NA值导出为空单元格，不需要可以删除该参数
write.csv(final, "合并结果.csv", row.names = FALSE, na = "")

• 该方法要求两个待拼接的dataframe列名完全一致，若列名不同需要先统一列名后再执行操作。
• 若需要调整非NA值的拼接顺序，只需调换c()内na.omit(x[[col_name]])和na.omit(y[[col_name]])的位置即可。

内容的提问来源于stack exchange，提问作者João David de Freitas