Dear Rxperts,
Using the same example above, is there a way to remove the borders of
multi-panel strips and control the display of the borders of each panel..
for example, I would like to keep only side 1 & 2 of a panel...
Thanks,
Santosh
On Wed, May 1, 2013 at 11:11 PM, Santosh <santosh2...@gmail.com> wrote:
> Thanks for all tips/suggestions.. Just a few more comments..
> The same code I use with a different data set in another project does not
> create those curly braces!
>
> Regards,
> Santosh
>
>
> On Wed, May 1, 2013 at 8:16 PM, Santosh <santosh2...@gmail.com> 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.
>>
>> 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",
>>> > )
>>> >
>>>
>>
>>
>
[[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.
