更改plotrix的multhist中的字体

Question

假设数据是

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

我想使用plotrix中的multhist()绘制这些，并使用Palatino字体(或任何其他serif字体)。不幸的是，

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

生成使用无衬线字体的标准绘图。在multhist()中有改变字体的窍门吗？

Answer 1

Plotrix调用默认的条形图参数，要更改其中的字体，您需要使用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")