Thank you Mr. Kane for your time, I finally achieve my objective with the package reshape2
n5dt<-last(dezdiff,5) n5dt <- as.data.frame(t(n5dt)) n5dt$id <- c(1:35) subm5dt<-melt(n5dt, id="id", c("2013-06-28", "2013-07-01", "2013-07-02", "2013-07-03", "2013-07-04") ) names(subm5dt) <- c("Observations", "variable","BasisPoints") ggplot(subm5dt, aes(Observations, BasisPoints, col=variable, group=2)) + geom_line() + facet_grid(variable~., scale="fixed") + geom_point() Have a nice day! -- View this message in context: http://r.789695.n4.nabble.com/ggplot2-tp4670852p4670931.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.