r - 如何将多个表、数据框、回归结果等写入一个 Excel 文件？

Question

我正在寻找一种将对象导入 MS Excel 的简单方法。 (我使用预装的“Puromycin”数据集作为示例)

我想将这些对象的内容放入一个 Excel 文件中:

Puromycin
summary(Puromycin$rate)
summary(Purymycin$conc)
table(Puromycin$state)
lm( conc ~  rate , data=Puromycin)

“内容”是指当我按回车键时控制台中显示的内容。我不知道该怎么调用它。

我尝试这样做:

sink("datafilewhichexcelhopefullyunderstands.csv")
Puromycin
summary(Puromycin$rate)
summary(Purymycin$conc)
table(Puromycin$state)
lm( conc ~  rate , data=Puromycin)
sink()

这为 med 提供了一个带有 CSV 扩展名的文件，但是当我在记事本中打开该文件时， 有逗号分隔。这意味着我无法让 Excel 正确打开它。通过正确地 我的意思是每个数字都在自己的单元格中。

其他人针对类似问题提出了这个建议 https://stackoverflow.com/a/13007555/1831980

但是作为一个新手，我觉得这个解决方案太复杂了，我希望有一个更简单的方法。

我现在正在做的是:

write.table(Puromycin, file="clipboard" , sep=";" , row.names=FALSE ) 
write.table(summary(Purymycin$conc), file="clipboard" , sep=";" , row.names=FALSE )
... etc...

但这需要大量的复制和粘贴，我希望消除这种情况。

如有任何帮助，我们将不胜感激。

Answer 1

write.table 及其 friend 旨在写出由指定的任何分隔符分隔的数据列。您的剪贴板包含多种数据类型，因为您使用的是 summary，它始终提供唯一的输出。

要写出数据值，您可以在数据框上使用write.csv，然后使用 Excel 打开。例如，Puromycin 已经是一个数据框(您可以使用 str(Puromycin) 查看)，因此您可以直接将其写出:

write.csv(file = "some file.csv", x = Puromycin)

它将进入当前工作目录(可以使用getwd()确定)。

写出/保存回归模型的结果是一个更大的挑战。您绝对可以像以前一样使用 sink，但在文件上指定 .txt 扩展名，以便文本编辑器可以打开它。从长远来看，您可能希望研究一些更奇特的方法(sweave、knitr)，因为它们可以自动编写非常好的报告。

同时，了解str(任何 R 对象)，因为它将成为您的 friend 。您可以使用ls()查看工作区中的所有对象。