rfontsplotrix

change font in plotrix' multhist

Suppose that data is

library(plotrix)
set.seed(42)
a <- rnorm(100)
b <- rnorm(100) + 1

and I would like to plot these using multhist()from plotrix and use Palatino font (or any other serif font). Unfortunately,

multhist(list(a,b), family="Palatino")

yields a standard plot with a sans serif font. Is there a trick to change fonts in multhist()?

Solution

  • Plotrix calls the default barplot parameters and to change the fonts there, you need to use par. For MacOS, it should be as described in this post

    Not very good with fonts, hope this is correct:

    par(mfrow=c(1,3))
par(family ="sans")
multhist(list(a,b),main="sans")

quartzFonts(palatino = c("Palatino Regular","Palatino Italic",
"Palatino Bold","Palatino Bold Italic"))
par(family ="Palatino")
multhist(list(a,b),main="Palatino")

quartzFonts(avenir = c("Avenir Book", "Avenir Black", 
"Avenir Book Oblique", "Avenir Black Oblique"))
par(family ="avenir")
multhist(list(a,b),main="avenir")

    enter image description here

    So you need to open a new device and do:

    quartzFonts(palatino = c("Palatino Regular","Palatino Italic",
    "Palatino Bold","Palatino Bold Italic"))
    par(family ="Palatino")
    multhist(list(a,b),main="Palatino")