0

我正在尝试使用R. 首先，程序将写入标题，然后在 for 循环中附加生成的行。示例代码如下：

   writeLines(text=c('Mean','Sd','\n'),'file.csv',sep=',')
   for(i in 1:5)
    {x <- rnorm(10); dat1 <- cbind(mean(x),sd(x))
      write.table(dat1,'file.csv',append=TRUE,sep=',',col.names=FALSE)
    }

但这会将我的第一行向右移动一个元素，在 csv 输出中给出以下内容。我怎样才能避免这种情况？还有另一种方法可以实现我在这里尝试做的事情吗？

编辑 另外，在这种情况下，我们如何删除1的列标签？col.names=FALSE似乎没有帮助。我row.names=FALSE按照@Roman Luštrik 的建议使用。它解决了这个问题。但第一行移位问题尚未解决。

在此处输入图像描述

4

3 回答 3

2

我经常不得不以这种方式写入文件。我通常这样做。

如果文件已经存在，只需追加不带列名和行名。如果没有，请创建一个全新的。

x <- rnorm(10); dat1 <- data.frame(Mean = mean(x), Sd = sd(x))
if (file.exists("file.csv")) {
   write.table(dat1, file = "file.csv", append = TRUE, col.names = FALSE, row.names = FALSE, sep = ",")
} else {
   write.table(dat1, file = "file.csv", col.names = TRUE, row.names = FALSE, sep = ",")
}
于 2013-01-11T17:59:25.677 回答
2

为什么不使用paste()？

writeLines(text=paste(c('Mean','Sd'),collapse=','),'file.csv',sep="\n")
for(i in 1:5) {
  x <- rnorm(10); dat1 <- cbind(mean(x),sd(x))
  write.table(dat1, 'file.csv', append=TRUE, sep=',', row.names=FALSE, col.names=FALSE)
}
于 2013-01-11T18:07:34.563 回答
0

要了解 CSV 文件的外观，我建议您在文本编辑器中打开它，而不是在 Excel（它会转换它）中打开它。因为那时你可以看到你的 CSV 开始像：

Mean,Sd,
,"1",0.441737369447746,1.07695222886305
[...]

...两个太多的逗号。

在您的writeLines陈述中，您的意思如下：

   writeLines(paste('Mean','Sd',sep=","),'file.csv')

在您的情况下有什么问题是您替换了默认值sep="\n"withwriteLines并且sep=","显然还在最后一项之后writeLines打印了一个分隔符，这与. （当打印行作为默认操作时，这更有意义，也用 . 关闭最后一行。）paste\n

在write.Table，使用row.names=FALSE。

于 2013-01-11T18:31:07.993 回答