是否有R函数可以从Excel电子表格中导入现有图形？

Question

我计划使用R降价从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。