mapping Futura font in quartz for use in ggplot

问题

I would like Futura to be the default font for my ggplot graphs. I'm running MacOSX, writing out to pngs, so it appears the "extrafont" is not applicable.

I've attempted mapping via quartzFont within the R environment with

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

which appears to work because when I look at font mappings we have:

> 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"

I've also set

> quartz.options(family="Futura")

But ggplot is still producing Helvetica titles and labels. What am I missing?

来源：https://stackoverflow.com/questions/32766040/mapping-futura-font-in-quartz-for-use-in-ggplot