[R] using xyplot

Deepayan Sarkar deepayan.sarkar at gmail.com
Thu Mar 26 08:12:32 CET 2009


On 3/22/09, Santosh <santosh2005 at gmail.com> wrote:
> Dear R-sians!
>  I am trying generate a bunch of xyplots
>
>  library(lattice)
>  myPanel <- function(x,y,xl=range(x),yl=range(y),...) {
>       panel.xyplot(x,y,    pch=20,col='blue',cex=0.7,xlim=xl,ylim=yl,...)
>       panel.abline(v=0, col='gray30',lty=2,lwd=1.5,...)
>       panel.loess(x,y,
>  span=2/3,family='gaussian',normalize=T,col='red',lwd=1.5,...)
>  #      panel.lmline(x,y, col='red',lwd=1.5,...)
>       }
>
>  nms <- names(tmp7)[c(3:7,9)]
>  for (i in nms) {
>   tmp1  <- xyplot(i~pk, data=tmp7, # different y's in the loop; x is same for  all

You probably want

   xyplot(as.formula(paste(i, "~ pk")), data=...

here.

-Deepayan


>           as.table=T,panel=myPanel,main=paste('PK vs',i,'- overall'))
>   pdf(paste("pkvs",i,"a.pdf",sep=""),w=10,h=8)
>    print(tmp1)
>   dev.off()
>  }
>
>  The above code does not seem to work. I was not able to use sapply with a
>  FUN=xyplot, either.
>  I was, however, able to generate the plots (with xyplot) when I hard-code
>  the index value!
>
>  Could you please help me troubleshooting the above code? If you can also
>  help with an alternate code using sapply, it would be helpful!
>
>
>  Thanks much in advance!
>
>  Regards,
>  Santosh
>
>         [[alternative HTML version deleted]]
>
>  ______________________________________________
>  R-help at 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.
>




More information about the R-help mailing list