多条折线图

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)

参考内容：小马颠颠的博客

http://blog.sina.cn/dpool/blog/s/blog_7cffd1400101f50v.html?type=4