library(ggplot2)
yourdata<-data.frame(a=c(sort(sample(1:100,50)),sort(sample(1:100,50))),b=rep(c('s','t'),c(50,50)),d=runif(100))
qplot(a,d,data=yourdata,geom='path',colour=yourdata$b)
library(ggplot2)
yourdata<-data.frame(a=c(sort(sample(1:100,50)),sort(sample(1:100,50))),b=rep(c('s','t'),c(50,50)),d=runif(100))
qplot(a,d,data=yourdata,geom='path',colour=yourdata$b)