エフェクトパッケージプロットのフォントタイプを変更する方法

Question

{effects}パッケージから "effects"をプロットする際、フォントタイプをTimes New Romanに変更できません。他のプロット（ベースまたは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

ので、いくつかの追加の検索後に、それは{効果}はプロットがあることが判明した{格子}基づき、次のコードは、私が（効果が計算された後に実行する）必要なものを行います。

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