r - 使用doubleYScale绘图更改y轴文本大小

我做了一个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))

有什么建议么？我无法找到一种方法:(

最佳答案

    library(grid)
    ##  the text size of the 2 y-axic labels
    grid.edit(gPath='GRID.text',grep=T,global=T,gp =gpar(cex=3))

如果要设置不同的轴尺寸

    grobs <- sapply(grid.get(gPath='GRID.text',grep=T,global=T),'[')['name',]
    grid.edit(gPath=grobs[[1]],gp =gpar(cex=2))
    grid.edit(gPath=grobs[[2]],gp =gpar(cex=1.5))

关于r - 使用doubleYScale绘图更改y轴文本大小，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/13875637/