# A high quality plot

[This article was first published on

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

**The Practical 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.

I’ll keep this post short and sweet. Here’s some code to get a really nice looking plot in R. It has a high pixel count to produce a high resolution output that can be used in a word document. Because of this, the size of everything in the plot (axes, points, text, axis labels, etc) has to be increased. I have skipped my normal commentary and instead left comments in the code. If you have any questions, leave a comment. Hope this helps!!

##First let's grab a dataset from the R library nottem #if we look at the data type typeof(nottem) class(nottem) #We need to convert from a "time series" object to a "matrix" to plot it temp = as.matrix(nottem) data = matrix(temp, ncol=12, byrow = TRUE) colnames(data) = c("jan", "feb", "mar", "apr", "may", "jun", "jul", "aug", "sep", "oct", "nov", "dec") #This tells you where you data is stored #This is important because we will store our plot here getwd() #Calculate the monthly means monthlymean<-apply(data, 2, FUN=mean) #Make boxplots of the observed monthly data png("nice-plot.png",width=2400,height=1600) par(mfrow=c(1,1),mar=c(8,9,10,9)) boxplot(data,col="cornflowerblue", xaxt='n', xlab="", ylab="", main="", cex.main=2, cex.lab=3, cex.axis=3, outcex=2) points(monthlymean, pch=24, col="black", bg="red", cex=4) axis(side=1, at=1:12, labels=FALSE, tick=TRUE, cex.axis=3, tck=-0.01) mtext(c("Jan","Feb","Mar","Apr","May","Jun","Jul", "Aug","Sep","Oct","Nov","Dec"),at=1:12,side=1,line=3,cex=3) mtext("Temperature (Fahrenheit)",side=2,las=0,cex=3.5,line=4.5) legend("topleft",pch=c(24), c("Mean Observed Precipitation"), col=c("black"),pt.bg=c("red"), cex=3) mtext("Average Monthly Temperatures at Nottingham", side=3, line=4.5, cex=4) mtext("1920-1939", side=3, line=0.6, cex=3.5) box(which="outer",col="black",lwd=1) dev.off()

To

**leave a comment**for the author, please follow the link and comment on their blog:**The Practical 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.