On May 1, 2013, at 8:16 PM, Santosh wrote:
> Sorry about the word "brackets".. Yes, I meant curly braces! I have not
> heard of "curley braces"! :). Curly braces surrounding the values of
> "strip.levels" appear on the strip of multipanel plots.
Not in my running of your code.
> Thanks,
> Santosh
>
>
> On Wed, May 1, 2013 at 7:44 PM, David Winsemius <dwinsem...@comcast.net>
> wrote:
>
> On May 1, 2013, at 6:16 PM, Santosh wrote:
>
> > Dear Rxperts,
> > I have a strange situation.. I see curly brackets
>
> Wait right here. What do you mean by "brackets"? In some locales, such as
> mine, that might mean "[" ; in other domains... well, who knows? I don't
> see any "[".
>
> The Urban Legends Newsgroup used to have a saying: TWIAVBP, which is an
> initialism for: The World Is A Very Big Place. Pleas realize that language is
> local.
>
> > around "strip.levels" in
> > multipanel strips while using lattice::xyplot. .How do I get rid of the
> > curly brackets?
>
> Curly "brackets"? You mean curley braces? I see some of them in the code, but
> why in the world would one want to remove valid curley-braces in code? They
> just function as delimiters.
>
>
> > For some reason, I am not able to reproduce the problem
> > using an example below...
>
> What problem? .. are you unable to reproduce? The code runs without error on
> my machine.
>
>
> > Any suggestions are highly welcome!
> > Thanks,
> > Santosh
> >
> > q <-
> > data.frame(G=rep(paste("G",1:3,sep=""),each=50),D=rep(paste("D",1:5,sep=""),each=30),a=rep(1:15,each=10),t=rep(seq(10),15),b=round(runif(150,10,20)))
> > q$grp <- paste(q$D,q$a,sep=":")
> > q$grp <- ordered(q$grp, levels=unique(q$grp))
> > q$dcol <- unlist(sapply(q$D,function(x)
> > switch(x,"D1"="orange","D2"="blue","D3"="red", "D4"="seagreen",
> > "D5"="black")))
> > q2 <- q[order(q$G,q$D,q$a,q$t),]
> > ref3 <- subset(q2, !duplicated(a))
> > xyplot(b~t|G,data=q2,groups=grp,type="l",as.table=T,
> > layout=c(3,1), par.strip.text = list(lines = 2),
> > panel=panel.superpose,
> > panel.groups=function(x=x,y=y,subscripts=subscripts,groups=groups,...,group.number)
> > {
> > require(grid)
> > panel.xyplot(x=x,y=y,subscripts=subscripts,pch=NA,lwd=1,type="l",
> > col=q2$dcol[subscripts],lty=1,cex=0.7)
> > rv0 <-ref3[ref3$G%in%unique(q2$G)[panel.number()],]
> > tids <- paste(as.character(unique(rv0$D)))
> > tcols <- unique(rv0$dcol)
> > tlty <- 1
> > draw.key(list(columns=1,between=1,between.col=0.5,
> >
> > text=list(lab=tids,col=tcols,cex=0.8),title="Classes",cex.title=1.1
> > ),
> > draw = T,vp = viewport(x = unit(0.8, "npc"), y = unit(0.9, "npc")))
> > },
> >
> > strip=strip.custom(strip.names=T,strip.levels=T,par.strip.text=list(cex=1.7,font=2),bg=0,
> > var.name="School"),
> > xlab=deparse(substitute(x)),
> > ylab=deparse(substitute(y)),
> > main="Overlay of Profiles by Schools and Classes",
> > )
> >
>
David Winsemius
Alameda, CA, USA
______________________________________________
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.
