R聚合数据框写入欧洲格式CSV时小数点无法转逗号如何解决

小数点转换失效的根源是聚合后的数据框存在内嵌矩阵列：write.table的dec参数仅对数据框中独立的数值向量列生效，内嵌在单列中的矩阵元素不会被单独处理小数点格式。

方法1：基础R原生处理（无需额外安装包） #

直接将内嵌的x矩阵拆分为独立列，和原有分组列合并为普通数据框即可：

# df为你聚合得到的原始数据框
df_fixed <- cbind(
  df[, c("Group.1", "Group.2")],
  df$x
)

# 若需要和预览一致的x.mean/x.sd/x.cv格式列名，可添加以下代码
colnames(df_fixed)[3:5] <- paste0("x.", colnames(df$x))

方法2：dplyr简化处理（dplyr版本≥1.0.0） #

用unpack函数一键拆分内嵌矩阵列：

library(dplyr)
df_fixed <- df %>%
  unpack(x, names_sep = ".")

处理完成后可执行str(df_fixed)检查结构，确认所有列均为独立向量、无内嵌矩阵后，执行写入即可正常实现小数点转逗号：

write.table(file = "output.csv", df_fixed, row.names = F, dec = ",", sep = ";")

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