r - 更改 plotrix'multhist 中的字体

Question

假设数据是

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

我想使用multhist()fromplotrix和使用 Palatino 字体（或任何其他衬线字体）绘制这些。很遗憾，

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

生成带有无衬线字体的标准绘图。有没有办法改变字体multhist()？

标签： rfontsplotrix

Answer 1

Plotrix 调用默认的 barplot 参数并更改那里的字体，您需要使用 par。对于 MacOS，应该如本文所述

字体不太好，希望这是正确的：

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