我做了一个doubleYScale
情节:
library(lattice)
library(latticeExtra)
# Some data
foo <- list(x = 1:100, y = cumsum(rnorm(100)))
obj1 <- xyplot(y~ x, data=foo,xlab=list(cex=1.2),
main="TOtalProduktion VS SummaSkulder/TotaltKapital i procent",
type = c("l","g"),col="black",
lty=1,key = simpleKey(col=c('black'),
text=c("Produktion"),cex=1.2,points=FALSE, lines=TRUE),
scales=list(x=list(rot=90,tick.number=25,
cex=1,axs="r")))
obj2 <- xyplot(y^2 ~ x,data= foo ,type = "o",col="black",
lty=9,key = simpleKey(col=c('black'),
text=c("Summa.skulder"),cex=1.2,lines=FALSE,points= TRUE))
doubleYScale(obj1, obj2, add.ylab2 = TRUE)
是problem
我无法更改 y 轴标签的文本大小(y
和y^2
文本,我想让它更大)。obj1
如果我只绘制或单独绘制,更改它是没有问题的obj2
,但它不适用于doubleYScale
...
另一方面,我可以通过以下方式更改 y 轴上数字的大小:
trellis.par.set(axis.text=list(cex=1))
有什么建议么?我找不到办法:(