x <- 1:50
plot(x)

plot(x, sin(x), typ="b", col="blue", lwd=3, xlab="Lunch Time")