在 plotrix 的 multistist 中更改字体

Question

假设数据是

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

我想使用 multhist() 从 plotrix 绘制这些并使用 Palatino 字体（或任何其他衬线字体）。不幸的是，

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

在 plotrix 的 multistist 中更改字体

change font in plotrix' multhist

fonts

r

plotrix