我使用软件包openxlsx从R中粘贴Excel中的图像时遇到错误

Question

我正在尝试使用R包openxlsx将保存在我的文件夹中的图像粘贴到Excel。我已经完整地研究了包文档，并按照文档中给出的步骤进行了操作。但即使是包中给出的例子也不适合我

## Create a new workbook
wb <- createWorkbook("Ayanami")
## Add some worksheets
addWorksheet(wb, "Sheet 1")
addWorksheet(wb, "Sheet 2")
addWorksheet(wb, "Sheet 3")
## Insert images
img <- system.file("einstein.jpg", package = "openxlsx")
insertImage(wb, "Sheet 1", img, startRow = 5, startCol = 3, width = 6, height = 5)
insertImage(wb, 2, img, startRow = 2, startCol = 2)
insertImage(wb, 3 , img, width = 15, height = 12, startRow = 3, startCol = "G", units = "cm")
## Save workbook
saveWorkbook(wb, "insertImageExample.xlsx", overwrite = TRUE)

这是包文档中给出的示例。而不是“einstein.jpg”，我正在使用我的“.jpg”文件。我试图将该图像粘贴到我的工作簿'wb'中。函数“system.file”不会获取我传递的图像。我已确保没有与路径相关的问题是否已存储图像。

有谁可以帮我这个功能或有任何经过验证的替代方案？

Answer 1

您不应该使用system.file函数，因为您尝试在工作簿中粘贴的图像不是系统文件。

相反，你需要这样的东西：

img <- "C:/your_dir/your_filename.jpg"

insertImage(wb, "Sheet 1", img, startRow = 5, startCol = 3, width = 6, height = 5)
saveWorkbook(wb, "insertImageExample2.xlsx", overwrite = TRUE)