R 无法保存gglot的所有pdf元素

UPDATE for reproducibility个

每当我在gglot中绘制绘图时，我都无法将其另存为PDF并可靠地保留该PDF的所有元素.例如，我有以下内容:

ggplot(mtcars, aes(x=mpg, group=cyl, fill=as.factor(cyl))) +
  geom_density(adjust=1.5, alpha=.6, col= "black") +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(), axis.line = element_line(colour = "black"),
        panel.border = element_blank(),
        text=element_text(family="times", size=20),
        axis.text=element_text(family="times", size=20),
        legend.text=element_text(family="times", size=20),
        strip.text=element_text(family="times", size=20),
        legend.position = "none")+
  scale_x_continuous(expand=c(0,0)) +
  scale_y_continuous(expand=c(0,0))

which saves fine as a .png:

but is missing elements when saved as a .pdf:

当我从RStudio的Plot面板保存它时，我得到了这个带有缺失元素的相同的图，使用ggsave，使用pdf()print()dev.off()方法，等等.我以为它可能是预览(我在Mac上)，但在Adobe中它看起来是一样的.为什么会发生这种情况，我如何才能修复它？

我在MacOS版本14.0上运行的是r版本4.3.0到RStudio版本2023.09.1+494.