在石英中映射Futura字体以用于ggplot

Question

我希望Futura成为我的ggplot图表的默认字体。我正在运行MacOSX，写到pngs，因此看起来“extrafont”不适用。

我尝试使用

在R环境中通过quartzFont进行映射

> quartzFonts(sans = quartzFont(rep("Futura", 4)))

似乎有效，因为当我查看字体映射时，我们有：

> quartzFonts()
$serif
[1] "Times-Roman"      "Times-Bold"       "Times-Italic"     "Times-BoldItalic"

$sans
[1] "Futura" "Futura" "Futura" "Futura"

$mono
[1] "Courier"             "Courier-Bold"        "Courier-Oblique"    
[4] "Courier-BoldOblique"

我也设置了

> quartz.options(family="Futura")

但ggplot仍在制作Helvetica标题和标签。我错过了什么？