R 如何将单个文本文件转换为csv

我试图从文本文件中获取一个表格，然后将其输出（或转换）为csv，以便于操作。我查看了一下，在这项任务中找不到任何具体的帮助

文本文件如下所示：

C#             CLA OLA Quiz Exam FinalExam
c1234501    10 20 10 30 30
c1234502     9 10  5 20 20
c1234503    10 17  8 27 27
c1234504     8 14 10 29 15
c1234505     7 18  3 24 27

C#,CLA,OLA,Quiz,Exam,FinalExam,
c1234501,10,20,10,30,30,
c1234502,9,10,5,20,20,
c1234503,10,17,8,27,27,
c1234504,8, 14, 10, 29, 15,
c1234505,7, 18,  3, 24, 27,

我想让它像这样输出：

C#             CLA OLA Quiz Exam FinalExam
c1234501    10 20 10 30 30
c1234502     9 10  5 20 20
c1234503    10 17  8 27 27
c1234504     8 14 10 29 15
c1234505     7 18  3 24 27

C#,CLA,OLA,Quiz,Exam,FinalExam,
c1234501,10,20,10,30,30,
c1234502,9,10,5,20,20,
c1234503,10,17,8,27,27,
c1234504,8, 14, 10, 29, 15,
c1234505,7, 18,  3, 24, 27,

以逗号作为分隔符。 到目前为止，我想出了以下代码：

tab = read.delim(file, header = TRUE)
write.table(tab, file="name_file.csv",sep=",",col.names=TRUE,row.names=FALSE)

但结果并不是我想象的那样：

"C.","CLA.OLA.Quiz.Exam.FinalExam"
"c1234501","10 20 10 30 30"
"c1234502"," 9 10  5 20 20"
"c1234503","10 17  8 27 27"
"c1234504   "," 8 14 10 29 15"
"c1234505   "," 7 18  3 24 27"

任何帮助都将不胜感激。谢谢

明确地说：

tab <- read.table("name_file.txt", comment="", header=TRUE)
write.csv(tab, "name_file.csv", row.names=FALSE, quote=FALSE)

明确地说：

tab <- read.table("name_file.txt", comment="", header=TRUE)
write.csv(tab, "name_file.csv", row.names=FALSE, quote=FALSE)

---

尝试（1）

read.table（）

而不是

read.delim（）

；（2） 使用

quote=FALSE

和

write.csv（）

尝试了它，它在read.table（file，header=TRUE）中给了我一个奇怪的错误

错误：比列名更多的列

还在

read.table（）

中添加

comment=“

，效果很好！谢谢我要做的最后一件事是在输出中每行的最后一个元素中添加一个逗号：

C#，CLA，OLA，quick，Exam，FinalExam，

知道怎么做吗？@BigShiba:为什么要在末尾添加一个逗号？它将有效地为您提供一个完全为空的额外列。这可能会导致混淆。请尝试（1）

read.table（）

而不是

read.delim（）

；（2） 使用

quote=FALSE

和

write.csv（）

尝试了它，它在read.table（file，header=TRUE）中给了我一个奇怪的错误

错误：比列名更多的列

还在

read.table（）

中添加

comment=“

，效果很好！谢谢我要做的最后一件事是在输出中每行的最后一个元素中添加一个逗号：

C#，CLA，OLA，quick，Exam，FinalExam，

知道怎么做吗？@BigShiba:为什么要在末尾添加一个逗号？它将有效地为您提供一个完全为空的额外列。这可能会导致混乱。