

Hi R people

Pulling my hair out here trying to get something very simple to work.   
Have a data frame of 774 rows and want to plot first and second half  
on same axes with different colours.  A variable is present call 'row'  
created like this and checked to be OK:

	row <- seq( len=length( variable1 ) )

...so I just want to plot the two subsets where row <= 387 and where  
row > 387.  None of these work properly:

plots both over each other in correct colours
opt_plot2 <- function( var_string, c, units ) {
	print( xyplot( get(var_string) ~ variable1 | variable2, panel =
	function( x, y, ... ) {
		panel.xyplot( x, y, type ="n", ... )
		panel.grid( h=-1, v=-1, lty=3, lwd=1, col="grey" )
		panel.lines( x, y, col = "red", subset = row <= 387 )
		panel.lines( x, y, col = "dark green", subset = row > 387 )
		},
	}

plots both just in red
...		panel.lines( x[row <= 387], y[row <= 387], col = "red" )
		panel.lines( x[row > 387], y[row > 387], col = "dark green" )

first <- (row <= 387)
second <- (row > 387)

plots both over each other in correct colours
...		panel.lines( x, y, col = "red", subset = first )
		panel.lines( x, y, col = "dark green", subset = second )

plots both just in red
...		panel.lines( x[first], y[first], col = "red" )
		panel.lines( x[second], y[second], col = "dark green" )


I'm feeling frustrated and a bit stupid but should this be so  
difficult?  Any help or tips on what I am doing wrong greatly  
appreciated.

TIA

Michael

______________________________________________

     Hopkins Research      Touch the Future
______________________________________________


	[[alternative HTML version deleted]]

