在包含数据的单元格周围生成一个没有撇号的文本文件答案

【问题标题】：Generate a text file without apostrophe around my cells containing data在包含数据的单元格周围生成一个没有撇号的文本文件
【发布时间】：2016-11-11 14:21:54
【问题描述】：

我有一个类似于以下示例的数据框：

structure(list(`t-001` = c("19790101", "19.25,11.09", "21.02,10.77", 
"21.02,10.21", "20.31,9.94", "20.84,9.9"), `t-002` = c("19790101", 
"21.19,11.08", "22.53,12.22", "22.64,11.64", "22.42,11.49", "22.01,10.74"
)), .Names = c("t-001", "t-002"), row.names = c(NA, 6L), class = "data.frame")

      t-001       t-002
1    19790101    19790101
2 19.25,11.09 21.19,11.08
3 21.02,10.77 22.53,12.22
4 21.02,10.21 22.64,11.64
5  20.31,9.94 22.42,11.49
6   20.84,9.9 22.01,10.74

当我生成一个文本文件时，我希望看到的是，t-001 作为文本文件名：

19790101    
19.25,11.09
21.02,10.77
21.02,10.21 
20.31,9.94 
20.84,9.9

但是我得到的是：

"19790101"    
"19.25,11.09"
"21.02,10.77"
"21.02,10.21" 
"20.31,9.94" 
"20.84,9.9"

我使用以下循环来生成我的文本文件：

# loop writing text files, for 32 columns, without column and row names, and use the columnnames as text file names.

for(i in c(1:32)){
write.table(df[,i],row.names = FALSE, col.names =   FALSE,file=paste0(names(df)[i],".txt"))
}

有没有办法删除我的文本文件中的撇号“”？

哦，重要的提示：

我也使用相同的循环来编写类似的文本文件，这不会在文本文件中生成撇号。所以我猜它一定与一列中逗号分隔的数据有关......因为这是唯一的区别。

我希望我提供了足够的信息，并清楚地说明了我的问题。谢谢

【问题讨论】：

标签： r for-loop dataframe write.table

【解决方案1】：

我认为在您对write.table 的调用中设置quotes=FALSE 应该可以解决这个问题：

write.table(df.t.max8[,i],
            row.names = FALSE,
            col.names = FALSE,
            file=paste0(names(df.t.max8)[i],".txt"),
            quote = FALSE)

.....

【讨论】：