R help - Jan 2012 - how to combine grouped data and ungrouped data in a trellis xyplot

I'm hoping the community knowledge can help me out here. I have found great
value in R, especially using it to generate charts, but I am still scaling
the learning curve in a number of ways.

I am looking plot one grouped line and one ungrouped line in a lattice plot.

I can plot one grouped line like this (the line's color in each panel
becomes dependent on the newpool value):



xyp<-xyplot(cpucap~date|zone,data=df,type="l",groups=newpool,auto.key=list(points=F,lines=T),
           main=paste(df$server[1]," CPU Caps\n",df$date[1]," to
",df$date[nrow(df)],sep="")
    )
    print(xyp)


and I can plot two ungrouped lines using a panel=function with subscripts
like this (maybe not the best way, but I found an example doing it this
way):

    xyplot(cpu~dt|zone,data=filt_zone_df,ylim=c(0,100),
           main=paste(server," - Zone CPU (Blue) & Memory (Red)
Util\n",filt_zone_df$ts[1],"-",filt_zone_df$ts[nrow(filt_zone_df)],sep=""),
           panel=function(x,y,subscripts){
               panel.lines(x,y)
              
panel.lines(filt_zone_df$dt[subscripts],filt_zone_df$mem[subscripts],col="red")
    }, as.Table=T, subscripts=T)


but I'm struggling with plotting one line that is grouped and one that
isn't. When I try to pass group to the first panel.xyplot() function in the
panel=function it either does nothing or bombs out.

xyplot(cpu~dt|zone,data=servdf,ylim=c(0,100),groups=pool,auto.key=list(points=F,lines=T),type="l",
           main="test",
           panel=function(x,y,groups,subscripts,...){
               panel.xyplot(x,y,groups,...)                     # would
like this to be colored based on the groups=pool

 panel.lines(servdf$dt[subscripts],servdf$mem[subscripts],col="red")
    }, as.Table=T, subscripts=T)


A little nudge in the right direction is appreciated. I'm getting tripped
up on how to get the groups definition into the panel function and also
into the panel.xyplot function within it. I've tried using a number of
variations in the arguments with the panel=function definition and the call
to panel.xyplot() within it, but no success. My assumption was that the use
of '...' would pass it on down, but that doesn't seem to be the
case, especially since most of the examples I can find from googling show
folks listing group as an argument, and sometimes have something like
groups=groups. I've tried a number of things and thought it is time to ask
for help.

Regards,

-mike

	[[alternative HTML version deleted]]

On Sun, Jan 8, 2012 at 9:45 AM, Mike Dahman <mike.dahman at gmail.com>
wrote:
> I'm hoping the community knowledge can help me out here. I have found
great
> value in R, especially using it to generate charts, but I am still scaling
> the learning curve in a number of ways.
>
> I am looking plot one grouped line and one ungrouped line in a lattice
plot.
>
> I can plot one grouped line like this (the line's color in each panel
> becomes dependent on the newpool value):
>
>
>
>
xyp<-xyplot(cpucap~date|zone,data=df,type="l",groups=newpool,auto.key=list(points=F,lines=T),
> ? ? ? ? ? main=paste(df$server[1]," CPU Caps\n",df$date[1],"
to
> ",df$date[nrow(df)],sep="")
> ? ?)
> ? ?print(xyp)
>
>
> and I can plot two ungrouped lines using a panel=function with subscripts
> like this (maybe not the best way, but I found an example doing it this
> way):
>
> ? ?xyplot(cpu~dt|zone,data=filt_zone_df,ylim=c(0,100),
> ? ? ? ? ? main=paste(server," - Zone CPU (Blue) & Memory (Red)
>
Util\n",filt_zone_df$ts[1],"-",filt_zone_df$ts[nrow(filt_zone_df)],sep=""),
> ? ? ? ? ? panel=function(x,y,subscripts){
> ? ? ? ? ? ? ? panel.lines(x,y)
> ? ? ? ? ? ? ?
panel.lines(filt_zone_df$dt[subscripts],filt_zone_df$mem[subscripts],col="red")
> ? ?}, as.Table=T, subscripts=T)
>
>
> but I'm struggling with plotting one line that is grouped and one that
> isn't. When I try to pass group to the first panel.xyplot() function in
the
> panel=function it either does nothing or bombs out.
>
>
xyplot(cpu~dt|zone,data=servdf,ylim=c(0,100),groups=pool,auto.key=list(points=F,lines=T),type="l",
> ? ? ? ? ? main="test",
> ? ? ? ? ? panel=function(x,y,groups,subscripts,...){
> ? ? ? ? ? ? ? panel.xyplot(x,y,groups,...) ? ? ? ? ? ? ? ? ? ? # would
> like this to be colored based on the groups=pool
Try

? ? ? ? ? ? ? panel.xyplot(x, y, groups = groups, subscripts = subscripts, ...)

-Deepayan
>
>
?panel.lines(servdf$dt[subscripts],servdf$mem[subscripts],col="red")
> ? ?}, as.Table=T, subscripts=T)
>
>
> A little nudge in the right direction is appreciated. I'm getting
tripped
> up on how to get the groups definition into the panel function and also
> into the panel.xyplot function within it. I've tried using a number of
> variations in the arguments with the panel=function definition and the call
> to panel.xyplot() within it, but no success. My assumption was that the use
> of '...' would pass it on down, but that doesn't seem to be the
> case, especially since most of the examples I can find from googling show
> folks listing group as an argument, and sometimes have something like
> groups=groups. I've tried a number of things and thought it is time to
ask
> for help.
>
> Regards,
>
> -mike
>
> ? ? ? ?[[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.