powered by
data(carparts)
plot(carparts[,2001:2010],main="Monthly car part sales",xlab="Year")
Run the code above in your browser using DataLab