图像在Microsoft Print to Pdf中消失

Question

我已经开发了一个弹出窗口，并且使用主体filter(str_detect(titlecolumn, "filterword"))函数来打印文档，然后选择打印机library(RMariaDB) library(DBI) library(dbplyr) library(dplyr) library(dbplot) library(sparklyr) library(tidytext) library(base) library(lubridate) library(stringr) library(ggplot2) library(stringi) library(tidyr) ergebnis <- dbFetch(res) ergebnis2 <- (cbind(ergebnis, Hour = hour(ergebnis$a_timestamp))) ergebnis2 <- (cbind(ergebnis2, Week = round_date(ergebnis$a_timestamp, "week"))) # something like this... # cbind(table, newcol = filter(str_detect(titlecolumn, "filterword"))) plot(ergebnis2$Week, ergebnis2$Hour) print(ggplot(data = ergebnis2) + geom_point(mapping = aes(x = ergebnis2$Week, y = ergebnis2$Hour))) ，该打印机会生成PDF。但是，我在文档顶部的主要徽标丢失了。我有另一个网站，该网站使用相同的方法并带有不同的徽标，并且效果很好。

我在下面附加了有问题的徽标：

图像是PNG。我最初使用的是透明背景，但我认为PDF转换器可能认为暗与亮的比例过高而将其隐藏，因此我将背景更改为白色以增加明暗比，但无济于事。

是否可以采取其他措施来强制徽标出现而无需用户调整打印配置？