Mac环境下ggplot2导出PDF插入PowerPoint后文本消失问题求助

我之前在Mac上也碰到过完全一样的情况！核心问题就是Arial字体没有正确嵌入到PDF文件中，导致PowerPoint打开时找不到对应的字体，直接把文字隐藏了。下面给你几个靠谱的解决办法：

一、修复extrafont的字体嵌入问题 #

如果你坚持用extrafont，得确保它正确加载并嵌入Arial字体：

1. 重新导入系统里的Arial字体（第一次运行可能要等一会儿）：

   library(extrafont)
   font_import(pattern = "Arial") # 只导入Arial相关字体，加快速度
   loadfonts(device = "pdf") # 针对PDF设备加载字体
   

2. 导出PDF时改用cairo_pdf设备，它对字体嵌入的支持更稳定：

   # 补全绘图代码（完善你未写完的jitter参数）
   gg <- ggplot(df, aes(x = mpg, y = cyl)) + 
     geom_point(aes(col = carb), size = 2, position = position_jitter(width = 0.2)) +
     theme_bw(base_family = "Arial") # 全局指定Arial字体
   
   # 导出时用cairo_pdf设备
   ggsave("your_plot.pdf", gg, device = cairo_pdf, family = "Arial")
   

二、更省心的替代方案：用showtext包 #

extrafont在Mac上的字体识别经常出问题，推荐换成showtext包，它跨平台字体处理更稳定：

1. 安装并配置showtext：

   install.packages("showtext")
   library(ggplot2)
   library(showtext)
   
   # 加载系统里的Arial字体（路径可根据实际情况调整）
   font_add("Arial", "/Library/Fonts/Arial.ttf")
   showtext_auto() # 让所有绘图设备自动使用showtext的字体渲染
   

2. 绘图并导出：

   theme_set(theme_bw(base_family = "Arial")) # 全局设置Arial
   df <- mtcars
   gg <- ggplot(df, aes(x = mpg, y = cyl)) + 
     geom_point(aes(col = carb), size = 2, position = position_jitter(width = 0.2)) +
     labs(x = "Miles per Gallon", y = "Number of Cylinders") # 示例坐标轴标签
   
   ggsave("your_plot.pdf", gg, device = "pdf")
   

三、验证字体是否嵌入成功 #

导出PDF后，用Mac的预览工具打开：

• 点击顶部菜单栏的「工具」→「显示检查器」
• 切换到「字体」标签，查看Arial字体的状态是否为已嵌入
  如果显示「未嵌入」，说明导出时还是没处理好，换上面的方法再试一次。

小提示 #

如果你的Mac上Arial的字体名称不是"Arial"，可以用fonts()（extrafont）或font_families()（showtext）命令查看已加载的字体列表，找到正确的名称后再替换代码里的family参数。

内容的提问来源于stack exchange，提问作者RiskyMaor