当从 R 导出数据时，如果 Excel 文件中的图形包含附加文本，则该图形会被删除

Question

当我将自己创建的数据导出到R包含带有附加文本的图形的 Excel 文件中时，遇到了问题。这个问题比较具体，因为没有附加文本（但我需要）就不会发生这种情况。

所以我在 R 中有一个数据表，如下所示：

library(lubridate)
library(data.table)
library(openxlsx)

MWE <- data.table(
  Date=rep(seq(ymd("2020-1-1"), ymd("2020-3-30"), by = "days")),
  Country1=rnorm(90,2,3),
  Country2=rnorm(90,2,3))

然后我使用 openxlsx 选项将其导出到 Excel 文件中

Fichier <- loadWorkbook("File.xlsx")
writeData(Fichier, sheet="Data", MWE , colNames=T)
saveWorkbook(Fichier,"File.xlsx",overwrite=T)

现在，此数据表（位于 Excel 表中）用于在单独的表中创建图表（两条曲线，分别表示国家 1 和国家 2 随时间变化的值）。

一切正常，直到我在图形上添加一些文字（例如“来源：Eurostat”），然后它告诉我（近似翻译）：。We have encountered a problem with the file "file.xlsx" but we can try to retrieve the maximum amount of information. If this file is reliable, click on yes然后我收到以下消息并且图形被删除

无论图形是否在同一张纸上，都会发生这种情况

这是仅针对我的情况还是有人可以重现此问题？该怎么办？