假设数据是
library(plotrix)
set.seed(42)
a <- rnorm(100)
b <- rnorm(100) + 1
我想使用multhist()from plotrix 绘制这些并使用Palatino 字体（或任何其他衬线字体）。不幸的是，
multhist(list(a,b), family="Palatino")
使用无衬线字体生成标准绘图。 multhist()有改字体的窍门吗？
【问题讨论】：
Plotrix 调用默认的 barplot 参数并更改那里的字体，您需要使用 par.对于 MacOS，应该是as described in this post
字体不太好，希望这是正确的：
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")
所以你需要打开一个新设备并这样做：
quartzFonts(palatino = c("Palatino Regular","Palatino Italic",
"Palatino Bold","Palatino Bold Italic"))
par(family ="Palatino")
multhist(list(a,b),main="Palatino")
【讨论】：
par(family="Palatino") 添加到我的pdf(...) 设备中。