将.CSV与一个列中的数据转换为.xlsx，并具有多个列

Question

"Title","Auto area measurement results data"
"Date saved","2/26/2025","4:02 PM"
"Comment",
"[ Statistics ]"
,"Area","Unit","Perimeter","Unit","Max diameter","Unit","Min diameter","Unit"
"Average",42158.27,"µm²",784.71,"µm",257.90,"µm",209.34,"µm"
"Standard Deviation",1667.74,"µm²",15.05,"µm",10.15,"µm",3.41,"µm"
"Max",43826.01,"µm²",799.76,"µm",268.05,"µm",212.76,"µm"
"Min",40490.53,"µm²",769.65,"µm",247.75,"µm",205.93,"µm"
"Total",84316.53,"µm²",1569.41,"µm",515.79,"µm",418.69,"µm"
"[ Main ]"
"No.","Area","Unit","Perimeter","Unit","Max diameter","Unit","Min diameter","Unit"
"1",43826.01,"µm²",799.76,"µm",268.05,"µm",212.76,"µm"
"2",40490.53,"µm²",769.65,"µm",247.75,"µm",205.93,"µm"
,"Area","Unit"
"Total area",84316.53,"µm²"
"Count",2,"pcs"
"Area ratio",2.55,"%"
"Total region area",3312540.76,"µm²"

在适当的列组织中，Excel中的外观：

Excel电子表格

当我单独打开每个文件并“另存为” Excel工作簿时，我可以将文件导入R，并将所有预期列正常工作。但是，我有数百个文件，因此我单独保存每个文件是不可行的。我尝试使用OpenXLSX软件包使用write.xlsx函数来转换CSV，但这仅带有一个列的.XLSX文件（再次，对我的分析无用）。 我正在寻找一种可以将每个文件转换为可以有效应用到数百个文件的方法（例如，使用for for loop）。

下载，提取并将

GOCSV

命令行程序放在您的路径上，然后在R运行以下：

Answer 1

library(openxlsx)
library(tools)

infiles <- Sys.glob("*.csv")

for(infile in infiles) {
  outfile <- infile |> file_path_sans_ext() |> paste0(".xlsx")
  cat("converting", infile, "to", outfile, "\n")
  dat <- read.table(pipe(paste("gocsv clean", infile)), header = FALSE, sep = ",")
  write.xlsx(dat, outfile)
}