yes,
xyplot(y ~ x, par.settings=list(layout.widths=list(ylab.right=5,
right.padding=0)))
See trellis.par.get("layout.widths")
for the full set of names and default values
On Fri, Mar 16, 2012 at 6:01 PM, Saptarshi <saptarshi.g...@gmail.com> wrote:
> ylab.right is perfect. However, I am drawing scales on the right axis
> (outside) (see code 1).
> When ylab.right is set to something it overlaps with the scale labels.
>
> see http://imgur.com/Gs3JS
>
> I seem to have asked the question:
> http://tolstoy.newcastle.edu.au/R/e5/help/08/09/1887.html
>
> But the same thing appears to happen. Is there a padding option for the
> right hand side label?
>
> Code:
>
> axis.PCT<-
> function(side, ...)
> {
> ylim <- current.panel.limits()$ylim
> print(panel.number())
> switch(side,
> left = {
> prettyF <- pretty(ylim)
> panel.axis(side = side, outside = TRUE,text.cex=0.5,rot=0,
> at = prettyF, labels = prettyF)
> },
> right = {
> prettyF <- pretty(ylim)
> yat = round(scaleTo(prettyF, scaler[[panel.number()+1]]),2) ##
> this wont work!!!! scalar is my own list.
> panel.axis(side = side, outside = TRUE,text.cex=0.5,rot=0,
> at = prettyF, labels = yat)
> },
> axis.default(side = side, ...))
> }
> library(grid)
> library(lattice)
>
> u=xyplot(this~buildnum|as.factor(version),data=wsimple2,type=c('p','l'),cex=0.5
> ,pch=16,scales=list(x=list(rot=80,cex=0.45,tick.number=10,relation='free')
> ,y = list(relation='free',tick.number=10,tck=0.5,alternating=3))
> ,ylab=list('Red Line: % Change over Median of Last 3 BuildIDs',cex=0.75)
> ,ylab.right=list('Blue Line: % Change over FF10',cex=0.75)
> ,panel=function(x,y,subscripts,...){
> panel.abline(v=x[back.window],col='black',lty=3)
> panel.abline(h=0,col='black',lty=3)
> panel.loess(x,wsimple2[subscripts,"past"],col='#0000ff40',lwd=2)
> z <- (predict(loess(y~x,span=0.65),x,se=TRUE))
> yup <- z$fit+2.32*z$se.fit
> ylo <- z$fit-2.32*z$se.fit
> yw <- which(y > yup | y < ylo)
> panel.points(x[yw],y[yw],col='#ff000010',cex=0.7,pch=16)
> panel.points(x[yw],y[yw],col='red',cex=0.5,pch=1,lwd=0.1)
> panel.lines(x,z$fit,col='#ff000040',lwd=4)
> out=sprintf("Outlier Pct=%s",round(length(yw)/length(y)*100),2)
>
>
> grid.text(out,x=unit(0,"npc"),y=unit(0.05,"npc"),just=c("left","bottom"),gp=gpar(cex=0.75))
> }
> ,axis=axis.PCT
> ,main=VNAME
> ,layout=c(1,2),subset=as.numeric(version)>10)
>
>
> data set: http://people.mozilla.com/~sguha/tmp/tmpa.txt
>
>
>
> --
> View this message in context:
> http://r.789695.n4.nabble.com/Y-axis-label-on-the-right-hand-side-in-lattice-tp4478959p4479481.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html<http://www.r-project.org/posting-guide.html>
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
