[R] legend with lines and points

[threshold]

Hi, say there are x and y given as:

level	x	y
3	0.112	0.012
2	0.432	0.111
1	0.415	0.053
3	0.38	0.005
2	0.607	0.01
1	NA	NA
3	0.572	0.01
2	0.697	0.039
1	0.377	0.006
3	NA	NA
2	0.571	0.003
1	0.646	0.014
3	0.063	0.024
2	0.115	0.017
1	0.035	0.042
3	0.426	0

I did the following plot:

plot(y ~ x, pch=c(1,2,3), col=c('red', 'green', 'blue'));
abline(lm(y ~ x), col='red');
lines(lowess.na(y,x), col='blue')
abline(lm(y~x),col='red')
legend('topright',c('Top','Middle','Bottom'), col=c('red', 'green',
'blue'),pch=c(1,2,3)) 
legend('right',c('linear','LOWESS'), col=c('red','blue'),lty=c(1,2))

where:
lowess.na <- function(x, y) {  #do lowess with missing data
    x1 <- subset(x,(!is.na(x)) &(!is.na(y)))
  y1 <- subset(y, (!is.na(x)) &(!is.na(y)))
  lowess.na <- lowess(x1~y1)
  }

I want ONE legend to involve points (empirical) and lines from linear and
lowess fit together. I guess it is simple but.....

best, robert




-- 
View this message in context: http://r.789695.n4.nabble.com/legend-with-lines-and-points-tp2125971p2125971.html
Sent from the R help mailing list archive at Nabble.com.