如何解决R中write.csv报错？matches数据框无法导出

fedmatch包的merge_plus函数返回的不是单一数据框，而是一个包含多个组件的列表（比如matches、non_matches、match_list等）。直接用write.csv导出整个列表会触发错误，因为write.csv仅支持数据框类型的输入，这也是你的tryCatch未生效的核心原因——错误并非来自行计数不匹配，而是对象类型不兼容。

• 从返回的列表中提取实际的匹配结果数据框：核心匹配数据存储在matches$matches组件中（可通过names(matches)查看所有组件名确认）。
• 导出前验证数据框结构，提前排查潜在问题。
• 调整tryCatch逻辑，覆盖类型错误和行相关问题两种场景。

library(tidyverse)
library(fedmatch)
library(haven)

setwd("/Volumes/backupdrive/Data")

dfA <- read_dta("ny_reference_state.dta") %>%
  mutate(unique_key_1 = row.names(.))

dfB <- read_dta("ny_final.dta") %>%
  mutate(unique_key_2 = row.names(.))

# 接收merge_plus返回的列表对象
matches_list <- merge_plus(
  data1 = dfA,
  data2 = dfB,
  by.x = "name",
  by.y = "business_name",
  match_type = "fuzzy",
  unique_key_1 = "unique_key_1",
  unique_key_2 = "unique_key_2"
)

# 提取匹配结果数据框
matches_df <- matches_list$matches

# 查看数据结构，确认是合法数据框
str(matches_df)

# 带错误处理的CSV导出
tryCatch(
  {
    write.csv(matches_df, file = "/Volumes/backupdrive/Data/output.csv", row.names = FALSE)
    message("CSV导出成功！")
  },
  error = function(e) {
    message(paste0("导出错误：", e$message))
    # 备选方案：尝试带行名导出备份文件
    write.csv(matches_df, file = "/Volumes/backupdrive/Data/output_with_rows.csv")
    message("已尝试带行名导出备份文件。")
  }
)

• 用names(matches_list)查看merge_plus返回的所有组件，按需导出非匹配结果或其他中间数据。
• 如果仍出现行计数错误，检查数据框中是否存在列表类型的列（list-columns），这类列无法直接导出为CSV，需用unnest()展开后再导出。
• 若仅需匹配对结果，可使用fedmatch的get_matches()函数替代merge_plus，它会直接返回结构更简单的数据框。

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