我在effects
中使用R
包来绘制多元线性回归中特定预测变量的响应变量的影响。我试图在单个图像中绘制几个这样的图。
当我绘制其中几个时,主文本和轴文本字体太大,使得无法拟合所有文本(而是我必须使用神秘的数字和缩写,这不是很有帮助)。
我想让主轴,轴和轴标签文字变小。
现在,由于effects
包使用lattice
生成绘图,我使用格式修改字体大小,即trellis.par.set()
。奇怪的是它修改了指定的单个图,但是当它与最后一个命令grid.arrange()
一起拉出时,这些值将恢复为默认值。
我对此感到很困惑,并且无法在网上找到解决方案。有什么建议?提前谢谢!
require(gridExtra)
require(lattice)
require(effects)
trellis.par.get()
trellis.par.set(list(par.xlab.text = list(cex=0.5),
par.ylab.text = list(cex=0.5),
par.main.text = list(col = "blue", cex=0.5)))
logit.plot = plot(Effect(c("LogitABCD.log.std"), logit.item.slope.mod), xlab = "Log Cond. Prob." , ylab = "Log RT", main="A.1 Pos. CP", ylim = c(6.0, 7.5))
logit.neg.plot = plot(Effect(c("LogitABCD.neg.log.std"), logit.neg.item.slope.mod), xlab = "Neg. Log Cond. Prob." , ylab = "Log RT", main="A.2 Neg. CP", ylim = c(6.0, 7.5))
MI.plot = plot(Effect(c("MIABCD.log.std"), MI.item.slope.mod), xlab = "Log MI" , ylab = "Log RT", main=" B.1 Pos. MI", ylim = c(6.0, 7.5))
MI.neg.plot = plot(Effect(c("MIABCD.neg.log.std"), MI.neg.item.slope.mod), xlab = "Neg. Log MI" , ylab = "Log RT", main=" B.2 Neg. MI", ylim = c(6.0, 7.5))
grid.arrange(logit.plot, MI.plot, logit.neg.plot, MI.neg.plot, ncol = 2)
我还尝试通过调整相关post中使用的解决方案来解决问题,但这也不起作用。我所做的是用以下内容为单个绘图制作代码做准备:
newSet = col.whitebg()
newSet$superpose.symbol$cex = 0.5
newSet$superpose.symbol$col = "blue"
然后在我调用grid.arrange()之后,我插入了以下代码:
pl = list(logit.plot, MI.plot, logit.neg.plot, MI.neg.plot)
do.call(grid.arrange, c(lapply(pl, update, par.settings=newSet), list(nrow=2)))
仍然没有运气。有什么建议吗?