将直方图从R导出到Excel

我有一些R中的数据，我想直方图（实际上，我将有6个直方图），然后将这些graphics导出到Excel文件。 我刚刚使用了hist（）函数，但我也在用ggplot2函数进行试验。 每个直方图有10,000条数据，所以我不能只是导出原始数据，并在Excel中创build直方图（我假设这将导致一个可笑的大小的Excel文件，我不想）。

有什么办法可以导出我的图表？

Answer 1

excel.link包是RDCOMClient的包装器。

下面的例子只适用于R 3.0.1中正常的RGui（不是RStudio）。

 # load package require(excel.link) # plot something plot(cos) # save graph to tmp file cos.plot=current.graphics() # add excel workbook xl.workbook.add() # add sheet to excel workbook xl.sheet.add() # put your graph starting at the top left in cell A1 xl[a1]=list("Cosine plotting",cos.plot,"End of cosine plotting") 

Answer 2

另一种解决scheme是将分箱数据存储到数据框中，并通过un CSV文件或任何其他格式将数据框导出为ex​​cel。

 > x <- rnorm(1000) > h <- hist(x) > h $breaks [1] -3.5 -3.0 -2.5 -2.0 -1.5 -1.0 -0.5 0.0 0.5 1.0 1.5 2.0 2.5 3.0 3.5 4.0 $counts [1] 1 5 23 38 104 154 208 191 130 85 39 17 4 0 1 $density [1] 0.002 0.010 0.046 0.076 0.208 0.308 0.416 0.382 0.260 0.170 0.078 0.034 0.008 0.000 0.002 $mids [1] -3.25 -2.75 -2.25 -1.75 -1.25 -0.75 -0.25 0.25 0.75 1.25 1.75 2.25 2.75 3.25 3.75 $xname [1] "x" $equidist [1] TRUE attr(,"class") [1] "histogram" > out <- data.frame(mid = h$mids, counts = h$counts) > write.table(out, file = "export.csv", row.names = FALSE, sep = ",") 

请注意，如果需要，也可以导出密度。