将直方图从R导出到Excel

Question

我在R中有一些要表示为直方图的数据（实际上，我将有6个直方图），然后将这些图导出到excel文件中。 我刚刚使用了hist（）函数，但是我也在尝试ggplot2函数。 每个直方图都有10,000个数据，因此我不能只导出原始数据并在excel中创建直方图（我假设这样做会导致生成一个大小可笑的excel文件，我不希望这样）。

有什么方法可以导出图形？

Answer 1

excel.link程序包是RDCOMClient的包装。

以下示例仅在普通RGui（而非RStudio）的R 3.0.1中对我有效。

# 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

另一种解决方案是将合并的数据存储到数据帧中，然后通过un CSV文件或任何其他格式将数据帧导出到excel。

> 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 = ",")

请注意，您也可以根据需要导出密度。