r - 使用 ggsave() 在 .pdf 图形中不能很好地导出特殊字符

Question

我建立了一个有几个情节的人物。此图必须导出为包含一些简单字符的 .pdf 类型：“■”、“▲” 和“●”。我正在使用ggsave ()，这似乎很容易理解。

但是，当我导出它时，每个字符都会被其他东西替换。我已经尝试过了cairo_pdf，没有成功。

我的问题是：如何导出包含字符的 pdf。我已经阅读了许多博客和问题，但都没有成功。

这是我的命令行：

square <- "■&quot;
triangle <- "▲&quot;
circle<- "●&quot;

p3 <- ggdraw(p2) + draw_label("Sources", x = 0.2, y = 0.09, size = 16,fontface = "bold") +
  
  draw_label("Leaf litter", x = 0.3, y = 0.09, size = 16,fontface = "plain") +
  draw_label(square, x = 0.27, y = 0.092, size = 30,fontface = "bold", color = "coral4",
             fontfamily = "Tahoma") +

    draw_label("Biofilm", x = 0.4, y = 0.09, size = 16,fontface = "plain") +
  draw_label(triangle, x = 0.37, y = 0.092, size = 30,fontface = "bold", color = "turquoise3",
             fontfamily = "Tahoma") +
  
  draw_label("Algae", x = 0.5, y = 0.09, size = 16,fontface = "plain") +
    draw_label(circle, x = 0.47, y = 0.092, size = 30,fontface = "bold", color = "greenyellow",
               fontfamily = "Tahoma") 
p3

p3 + ggsave("Figure_2C.pdf", width=11, height=6.5,  dpi = 600)

这是带有错误字符的图。

提前致谢。