R语言pivot_wider处理后表格导出CSV格式异常求助

我编写R代码提取文件夹内每个*.Correlations.csv的4行数据，合并后使用pivot_wider将每个原CSV数据转为单行。该表格在Viewer和tibble中显示正常，但调用write.csv导出为CSV时，出现列内容重复错位的问题，怀疑与pivot_wider后的导出操作有关。

完整代码 #

library(tidyverse)

# 获取目标文件列表
files <- list.files(pattern = "*.Correlations.csv", full.names = TRUE)

# 读取文件并提取前4行，添加文件名标识
merged_data <- map_dfr(files, function(file) {
  read_csv(file) %>%
    slice(1:4) %>%
    mutate(source_file = basename(file))
})

# 转换为宽格式
wide_data <- merged_data %>%
  pivot_wider(
    names_from = Variable,
    values_from = c(Correlation, P.Value)
  )

# 导出CSV
write.csv(wide_data, "final_merged.csv", row.names = FALSE)

示例CSV数据（test.Correlations.csv） #

Variable,Correlation,P.Value
Age,0.62,0.003
BMI,-0.41,0.02
Glucose,0.75,0.0001
Insulin,0.35,0.045

解决方法 #

1. 排查并修复重复列名 #

pivot_wider可能生成重复列名（比如不同源文件的变量名重复但未正确区分），Viewer会自动处理重复列名，但write.csv导出时会出现错位。用以下代码检查：

anyDuplicated(names(wide_data))

如果返回大于0的数值，说明存在重复列名。修改pivot_wider参数，添加names_glue确保列名唯一：

wide_data <- merged_data %>%
  pivot_wider(
    names_from = Variable,
    values_from = c(Correlation, P.Value),
    names_glue = "{source_file}_{.value}_{Variable}" # 用源文件+指标+变量名组成唯一列名
  )

2. 替换write.csv为write_csv #

base包的write.csv对tibble的特殊格式支持不佳，改用readr包的write_csv，导出逻辑更稳定：

# 未安装readr先执行：install.packages("readr")
library(readr)
write_csv(wide_data, "final_merged.csv")

3. 清理隐藏特殊字符 #

检查数据中是否存在换行符、制表符等隐藏字符，这些在Viewer中不可见但会干扰CSV结构：

# 检查所有字符列是否包含特殊字符
wide_data %>%
  select(where(is.character)) %>%
  mutate(across(everything(), ~str_detect(.x, "\\n|\\t|\\r"))) %>%
  colSums()

如果存在，用str_replace_all清理：

wide_data <- wide_data %>%
  mutate(across(where(is.character), ~str_replace_all(.x, "\\n|\\t|\\r", "")))

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