Заголовки «текста» странным образом расположены в разных координатах y, хотя они определены точно так же, также par
s одинаковы.
Кроме того, я хочу несколько более узкий интервалв legend
, cex
ничем не поможет.
Я мог бы добавить пробел в стиле
(см. MARK
в коде), который выглядит несколько лучше, но не фиксирует интервал:
Кто-нибудь знает, как с этим справиться (бездополнительные пакеты)?
Вывод legend
должен выглядеть примерно так:
Код производящего участка
# pdf("test.pdf", width=8, height=4)
layout(matrix(c(1, 3, 2, 3), ncol=2), heights=c(4, 1.5))
par(mai=c(0, .5, .5, .25))
plot(1:10)
mtext(bquote(bold("Linear points")), 3, 0, cex=.9, adj=0, padj=-.3)
par(mai=c(0, .5, .5, .25))
curve(x^2)
mtext(bquote(bold("A curve")), 3, 0, cex=.9, adj=0, padj=-.3)
par(mai=c(0, 0, .375, 0))
plot.new()
legend("center", legend=c("The quick", "brown fox", "jumps over",
"the lazy dogs",
# expression(paste(" ", alpha~"=5%")), # MARK
expression(alpha~"=5%"),
"DF=Dgs. of freedom"),
lty=c(rep(1, 4), rep(NA, 2)), bg="white", col=1:4,
xpd=TRUE, pt.cex=1.1, horiz=TRUE, cex=.7)
# dev.off()