r - 如何更改效果包图中的字体类型

Question

当从 {effects} 包绘制“效果”时，我无法将字体类型更改为 Times New Roman。在其他绘图(base 或 ggplot)中，我使用 {extrafont} 包，它对我来说效果很好 - 但我无法在此处计算出设置，并且由于期刊指南我需要它。

此处提供了最小可重现示例:

library(extrafont)
loadfonts(device="win")
windowsFonts(Times=windowsFont("TT Times New Roman"))
# 
require(effects)
mod.cowles <- glm(volunteer ~ sex + neuroticism*extraversion,
              data=Cowles, family=binomial)
eff.cowles <- allEffects(mod.cowles, xlevels=list(extraversion=seq(0, 24, 6)))
# Sample plot, yet I need all text to be Times New Roman
plot(eff.cowles$sex)
# 
# This, however, does not change the font as expected...
plot(eff.cowles$sex, family = "Times New Roman" )
#
# Just for comparison - here, the fonts (title, axes, etc.) change properly
hist(Cowles$neuroticism, family = "Times New Roman")

也许我遗漏了一些简单的东西，但无法解决这个问题。任何建议将不胜感激。

Answer 1

因此，经过一些额外的搜索，事实证明 {effects} 图是基于 {lattice} 的，下面的代码可以满足我的需要(在计算效果后运行):

require(lattice)
trellis.device()
trellis.par.set(list(axis.text = list(font = 6, cex=2))) 
trellis.par.set(list(par.ylab.text = list(font = 6, cex=2))) 
trellis.par.set(list(par.xlab.text = list(font = 6, cex=2))) 
trellis.par.set(list(par.main.text = list(font = 6, cex=2))) 
trellis.par.set(grid.pars = list(fontfamily = "serif"))
plot(eff.cowles$sex)
dev.off()