# Some detail on the last plot

**Learning R**, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

cex.lab=1.25 and cex.axis=0.75 make the axis labels 1.25 times larger than normal, and the axis value labels 0.75 times normal size. The col.lab = “#777777” makes use of R’s ability to accept hexidecimal color specifications, such as those used by web designers. It’s a very useful function.

I specified that the x-axis label say nothing, while the y-axis label be “Obama job approval (%)”. xaxt=”n”, yaxt=”n” tell R not to plot either the x or y axes.

plot (app~daten, ylim=c(40,80), xlim=c(-3,210), pch=16, col=”gray”, cex.lab=1.25,cex.axis=0.75, col.lab = “#777777”, xlab=””,ylab=”Obama job approval (%)”, xaxt=”n”, yaxt=”n”)

This yields a very sparse-looking scatterplot:

Next we add the axes:

axis(1,at=c(-3,28,56,87,117,148,178,209),lab=c(“Jan 09″,”Feb 09″,”Mar 09″,”Apr 09″,”May 09″,”Jun 09″,”Jul 09”, “Aug 09”),

col.lab=”#777777″, col.axis=”#777777″, tck=-0.02, cex.axis=0.75)

axis(2, at=c(40,50,60,70,80),

col.axis=”#777777″,

las=2, tck=-0.02,

cex.axis=0.75)

Then we add our LOWESS fit lines:

lines(lfit1, col=”red”, lwd=3)

lines(lfit2, col=”blue”, lwd=3)

**leave a comment**for the author, please follow the link and comment on their blog:

**Learning R**.

R-bloggers.com offers

**daily e-mail updates**about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.

Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.