Thanks Deepayan. That did the trick.


    xyplot(cpu~dt|zone,data=filt_zone_df,ylim=c(0,100),groups=pool,

 auto.key=list(columns=min(4,length(unique(filt_zone_df$pool))),lines=T,points=F),
           type="l",
           main="Test Chart",
           ylab="% Utilization",
           panel=function(x,y,groups,subscripts,...){
               panel.xyplot(x,y,groups=groups,subscripts=subscripts,...)

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

Regards,

-mike


On Mon, Jan 9, 2012 at 5:06 AM, Deepayan Sarkar
<deepayan.sarkar@gmail.com>wrote:

> On Sun, Jan 8, 2012 at 9:45 AM, Mike Dahman <mike.dahman@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@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.
>

	[[alternative HTML version deleted]]

