# 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.