r - 是否有从 Excel 电子表格导入现有图形的 R 函数？

Question

我计划使用 R markdown 从存储在 Excel 电子表格中的主要数据生成摘要单页 PDF。我的合作者已经熟悉在这些电子表格中创建的图表，所以我不想重新创建它们。有没有一种简单的方法可以将这些现有的绘图作为图像从 Excel 电子表格中提取出来并将它们放入 R Markdown 报告中？

Answer 1

我能够使用以下代码从 Excel 导出图表:(参见 How to export an Excel sheet range to a picture, from within R)

library(RDCOMClient) 
xlApp <- COMCreate("Excel.Application")
xlWbk <- xlApp$Workbooks()$Open("C:\\Graph Excel_Test2.xlsx")
xlScreen <- 1
xlBitmap <- 2

xlWbk$ActiveSheet()$ChartObjects(1)$Activate()
graph <- xlWbk$ActiveChart()$SeriesCollection(1)
graph$Select()

oCht <- xlApp$ActiveChart()
oCht$Paste()
oCht$Export("C:\\SavedRange_Test2.jpg", "JPG")

# CLOSE WORKBOOK AND APP
xlWbk$Close(FALSE)
xlApp$Quit()

# RELEASE RESOURCES
oCht <- xlWbk <- xlApp <- NULL
rm(oCht, xlWbk, xlApp)
gc()

之后，您只需在 Rmarkdown 中导入 JPG。