Skip to content

Lattice wireframe or cloud plot with different colours by a group

3 messages · Pamela Allen, David Winsemius

Pamela Allen
# 
I have a question about wireframe 3-D plots and how to apply colors.  I have
a large dataset of river flow (m^3/s) over time, and I have coded these
flows based on their height.  I would like to produce a wireframe plot that
colors the graph based on the flow code, i.e. I would like high flows to be
red, medium to be green and low flows to be blue.  Here is some sample data
with the basic wireframe plot:

flow.dat=cbind.data.frame(flow=sin(2*pi/53*c(1:3000))+1,day=as.numeric(format(as.Date(c(1:3000)),
format="%j")), year=as.numeric(format(as.Date(c(1:3000)),
format="%Y")),grp=c(rep(c("1.high","2.med","3.low"),1000)))

wireframe(flow~day*year, data=flow.dat, shade=T)

Is there any way to specify what colours are passed to the plot?  I.e.
wireframe(flow~day*year, data=flow.dat, shade=T, groups=grp,
col.group=c("#FF3030","#551A8B","#43CD80"))

I would also be happy if I could do this with a cloud plot, but I can't get
the colors to plot correctly. 
cloud(flow~day*year, data=flow.dat, shade=T, groups=grp,
col.group=c("#FF3030","#43CD80","#1E90FF"), pch=20)

Any help is much appreciated!  Thank you.

-Pam Allen

allen_pam at hotmail.com


--
View this message in context: http://r.789695.n4.nabble.com/Lattice-wireframe-or-cloud-plot-with-different-colours-by-a-group-tp3421296p3421296.html
Sent from the R help mailing list archive at Nabble.com.
David Winsemius
#
On Apr 1, 2011, at 6:21 PM, Pam Allen wrote:

            

      
      
      
    

        
It does not look to me that high flows are properly grouped with `grp`.

            

      
      
      
    

        
wireframe(flow~day*year, data=flow.dat,  drape=TRUE,  
col.regions=c("#FF3030","#551A8B","#43CD80"),
           at=c(0,.6,1.3,1.8))

Because of the coding at the corner and the long thin polygons you  
have specified with your day*year splits you get slanting colors.

            

      
      
      
    

        

      
      
    

        
David Winsemius, MD
West Hartford, CT

  
  


  


      

    

    

      
      

        


  

        

      David Winsemius
    

    

      
      #
    

  


  

      
On Apr 1, 2011, at 7:46 PM, David Winsemius wrote:

        

            

      
      
      
    

        
If you want to use grp as the color index then you need first to  
convert it to something that can be used as an index (with  
as.numeric), then use that in "[" to pull from a vector of colors:

cloud(flow~day*year,
       data=flow.dat,
       col=c("#FF3030", "#551A8B", "#43CD80")[
                        as.numeric(flow.dat$grp)],
       pch=20)