ggplot图形导出EPS/PDF时希腊符号显示异常的解决问询

我明白你的困扰——在RStudio里显示好好的希腊符号，一存成EPS/PDF就变成双点，确实挺闹心的。下面给你一套零门槛的分步解决办法，两种方案任选：

方案一：修改绘图对象的分面标签为plotmath表达式（推荐） #

这个方法直接针对分面标签的渲染逻辑，从根源解决问题：

1. 先运行你原来的代码生成绘图对象tp：

library(bayesplot)
library(ggplot2)
df <- data.frame(var1 = rnorm(1e4, 0, 1), var2 = rnorm(1e4, 6, 4), var3 = rnorm(1e4, 10, 3))
names(df) <- c("σ", "δ", "μ")
tp <- bayesplot::mcmc_trace(df)

2. 修改tp的分面标签，把Unicode希腊字符替换成plotmath表达式：

# 修改分面的标签，用plotmath语法定义希腊符号
tp <- tp +
  facet_wrap(~parameter, 
             labeller = labeller(parameter = c(
               "σ" = expression(sigma),
               "δ" = expression(delta),
               "μ" = expression(mu)
             )))

这里的关键是用labeller参数把原来的列名（字符串形式的希腊字符）映射成plotmath表达式，这样ggplot在渲染矢量图时会正确解析这些数学符号。

3. 保存为EPS/PDF，现在符号就能正常显示了：

ggsave(filename = "plotMu.eps", plot = tp, device = "eps", dpi = 1200, width = 15, height = 10, units = "cm")
# 保存PDF的话直接改文件名和device
ggsave(filename = "plotMu.pdf", plot = tp, device = "pdf", dpi = 1200, width = 15, height = 10, units = "cm")

方案二：指定支持Unicode希腊字符的字体 #

如果不想修改绘图对象，也可以通过指定合适的字体来解决：

1. 先安装并加载extrafont包（如果没装的话）：

install.packages("extrafont")
library(extrafont)
# 导入系统中的字体，第一次运行需要等一会儿
font_import()
# 加载字体库
loadfonts()

2. 给绘图对象添加字体设置，指定支持希腊字符的字体（比如"Times New Roman"或者"Arial Unicode MS"）：

tp <- tp +
  theme(text = element_text(family = "Times New Roman"))

3. 保存时同样指定字体（确保ggsave用的字体和绘图一致）：

ggsave(filename = "plotMu.eps", plot = tp, device = "eps", dpi = 1200, width = 15, height = 10, units = "cm", family = "Times New Roman")

注意：不同系统的可用字体可能不一样，如果你找不到合适的字体，可以用fonts()命令查看已加载的字体列表，挑一个支持Unicode的就行。

为什么原来的方法不行？ #

你之前尝试的ASCII编码方法只对expression()或者plotmath表达式有效，但bayesplot默认是把列名作为普通字符串渲染的，当保存为矢量格式时，底层的PS/PDF渲染器可能无法识别这些Unicode希腊字符，就会用".."代替。上面的两个方案要么把字符串转成plotmath表达式（让ggplot用数学渲染引擎处理），要么指定能识别Unicode的字体，都能解决这个问题。

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