I have a data set like this


ID=c("A","A","A","A","A","A","A","B","B","B","B","B","B","B")
s=c(1.1,2.2,1.3,1.1,3.1,4.1,4.2,1.1,2.2,1.3,1.1,3.1,4.1,4.2)
d=c(1,2,3,4,5,6,7,1,2,3,4,5,6,7)
t=c(-3,-2,-1,0,1,2,3,-3,-2,-1,0,1,2,3)

mydata<-data.frame(cbind(as.character(ID),as.numeric(s),as.integer(d),as.numeric(t)))
colnames(mydata)=c("ID","S","d","t")

I want to use xyplot in lattice to draw a plot using the following code:

attach(mydata)
library(lattice)

xyplot(S~t|ID,type="b")

Now I want to label the line from  -3  to  -1 with one type( for example,
red with "*") , the line from 0 to 3 with another type(blue with"o"),
and give text label says: red "*"="FDP", blue"o"="FDL"

Does anyone know how to do this?

thanks,

jlfmssm

	[[alternative HTML version deleted]]


