plotly

Week 3

Peer-graded assigment: R Markdown Presentation & Plotly

Read car and truck values from tab-delimited autos.dat

autos_data <- read.table(“C:/R/autos.dat”, header=T, sep=“”)

Compute the largest y value used in the data (or we could

just use range again)

max_y <- max(autos_data)

Define colors to be used for cars, trucks, suvs

plot_colors <- c(“blue”,“red”,“forestgreen”)

Start PNG device driver to save output to figure.png

png(filename=“C:/R/figure.png”, height=295, width=300, bg=“white”)

Graph autos using y axis that ranges from 0 to max_y.

Turn off axes and annotations (axis labels) so we can

specify them ourself

plot(autos_data$cars, type=“o”, col=plot_colors[1], ylim=c(0,max_y), axes=FALSE, ann=FALSE)

Make x axis using Mon-Fri labels

axis(1, at=1:5, lab=c(“Mon”, “Tue”, “Wed”, “Thu”, “Fri”))

Make y axis with horizontal labels that display ticks at

every 4 marks. 40:max_y is equivalent to c(0,4,8,12). axis(2, las=1, at=40:max_y)

Create box around plot

box()

Graph trucks with red dashed line and square points

lines(autos_data$trucks, type=“o”, pch=22, lty=2, col=plot_colors[2])

Graph suvs with green dotted line and diamond points

lines(autos_data$suvs, type=“o”, pch=23, lty=3, col=plot_colors[3])

Create a title with a red, bold/italic font

title(main=“Autos”, col.main=“red”, font.main=4)

Label the x and y axes with dark green text

title(xlab= “Days”, col.lab=rgb(0,0.5,0)) title(ylab= “Total”, col.lab=rgb(0,0.5,0))

Create a legend at (1, max_y) that is slightly smaller

(cex) and uses the same line colors and points used by

the actual plots

legend(1, max_y, names(autos_data), cex=0.8, col=plot_colors, pch=21:23, lty=1:3);

Turn off device driver (to flush output to png)

dev.off() Graph plotting data from autos.dat