par(mfrow=c(2,1))
plot(ibm[,1], xlim=c(1954,2000), ylim=c(0,200),
ylab="Sales (billions of $)", xlab="Year", type="o")
lines(ibm[,3],col=2,type="o")
plot(ibm[,2], xlim=c(1954,2000), ylim=c(-10,30),
ylab="Profits (billions of $)", xlab="Year", type="o")
lines(ibm[,4],col=2,type="o")
Run the code above in your browser using DataCamp Workspace