r - 如何在 doubleYScale 上编辑 ylab2？

Question

我需要编辑ylab2到latticeExtra::doubleYScale。您在图中观察到的 y 轴和 y2 轴的图例大小不同。我怎样才能把相同的大小（cex=1.4）？

脚本：

require(latticeExtra)
require(reshape2)
require(grid)
require(gridExtra)

dados<-melt(clima[,c(1,3:5,8)], id.vars=1,measure.vars=2:4)
 dados$data<-ymd(dados$data)



lat1<-
  xyplot(value~data, groups=variable,data=dados,
       scales=list( x=list(at=dados$data,labels=format(dados$data,"%d/%m"))),
               type=c("l","p"),pch=c(15,16,17),lty=c(1,2,4),lwd=2,col=c("blue","red","black"),
             ylim =c(0,35),xlab="",ylab=list(expression("Temperatura ("^"º"*"C)"),cex=1.4),
             key=list(columns=1,space="bottom",
                      text=list("Tmáx"),lines=list(col="blue",type="b",lty=1,pch=15,lwd=2),
                      text=list("Tmín"),lines=list(col="red",type="b",lty=2,pch=16,lwd=2),
                      text=list("Tméd"),lines=list(col="black",type="b",lty=4,pch=17,lwd=2)))


lat2<-
barchart(P~data,data=clima,scales=list( x=list(at=dados$data,labels=format(dados$data,"%d/%m"))),
              horiz=FALSE,ylim=c(0,10),col="purple",
               xlab="",ylab=expression("Precipitação (mm d"^-1*")"),
               key=list(columns=1, text=list("P"),space="bottom",rectangle=list(col="purple")))

update(doubleYScale(lat1, lat2, add.ylab2 = TRUE,use.style = F))

当我使用 : 时lat2::ylab=list(expression("Precipitação (mm d"^-1*")"),cex=1.4)，程序会更改“P”的图例。

我试过 use trellis.par.set(axis.text=list(cex=1.2))，但这只会改变轴中数字的大小。

标签： rlattice