如何在R中使Base与ggplot2导出的图表字体保持一致？

我原本全用ggplot2绘图，但有一张图必须用Base R实现，导出SVG时发现两者字体外观有差异。已知Base R默认字体为Helvetica，ggplot2默认字体逻辑更复杂，查了X11Fonts()确认有Helvetica等可用字体，怀疑是SVG导出的字体映射问题。

核心思路：统一指定具体字体，避免依赖默认映射 #

Base R和ggplot2的默认字体虽然都指向无衬线字体，但系统层面的字体映射可能存在细微差异，直接指定具体字体名称（比如Helvetica）能确保两者一致。

1. 给Base R绘图指定字体

在Base R绘图的设备上下文里，用par(family = "Helvetica")设置全局字体，确保坐标轴标签、文本等元素都使用该字体。

2. 给ggplot2指定相同字体

通过theme()修改所有文本元素的family参数，覆盖theme_bw()的默认设置，让ggplot2的所有文本都使用目标字体。

3. 修正导出函数的逻辑问题

原导出函数中，Base绘图是先执行base_plot(df)再传入导出函数，此时绘图已经在默认设备完成，svg设备的字体设置不会生效。需要把绘图逻辑放在svg设备的上下文里执行。

修改后的完整代码 #

# 加载库
library("ggplot2")

# 修正后的导出函数：确保绘图逻辑在svg设备内执行
export_svg <- function(filename, plot_func, df, base = FALSE) {
  svg(filename, width = 10, height = 10)
    if (base) {
      # Base绘图：先设置全局字体和边距
      par(family = "Helvetica", mar = c(5, 5, 4, 2))
      plot_func(df)
    } else {
      # ggplot绘图：输出已设置好字体的图
      print(plot_func(df))
    }
  dev.off()
}

# Base绘图函数
base_plot <- function(df){
  plot(df$x, df$y, xlim = c(-5, 10), ylim = c(-5, 10))
  text(df$x, df$y, labels = df$label)
}

# ggplot绘图函数：指定Helvetica字体
ggplot_plot <- function(df) {
  ggplot(df, aes(x = x, y = y)) + 
    geom_point() + 
    geom_text(aes(label = label), hjust = 0, vjust = 0) + 
    xlim(-5, 10) + ylim(-5, 10) + 
    theme_bw() +
    # 统一所有文本元素的字体
    theme(
      text = element_text(family = "Helvetica"),
      axis.text = element_text(family = "Helvetica"),
      plot.title = element_text(family = "Helvetica")
    )
}

# 测试数据
df <- data.frame(
  x = c(1, 3, 7), 
  y = c(2, 4, 6), 
  label = c("a_label", "a_second_label", "a_third_label")
)

# 导出Base绘图
export_svg("base.svg", base_plot, df, base = TRUE)

# 导出ggplot绘图
export_svg("ggplot.svg", ggplot_plot, df, base = FALSE)

额外说明 #

• 如果你想用其他字体（比如Arial），只需要把代码中的"Helvetica"替换为"Arial"即可，确保X11Fonts()中存在该字体。
• SVG导出时，字体是通过名称引用的，只要系统中存在对应的字体，导出的SVG在不同设备上显示都会保持一致。

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