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]]

______________________________________________
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.

Reply via email to