Question

我在R中有一些数据我想表示为直方图（实际上，我将有6个直方图），然后将这些图形导出到excel文件中。我刚刚使用了hist（）函数，但我也在试验ggplot2函数。每个直方图都有10,000个数据，所以我不能只导出原始数据并在excel中创建直方图（我假设这会导致一个非常大小的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

另一种解决方案是将分箱数据存储到数据框中，并通过非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 = ",")

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

将直方图从R导出到Excel

2 个答案: