# AutoSales2 Example
# Draw a scatterplot of auto sales broken down by types auto, truck, SUV.  
# Create plot with smaller margins.
# Also increase the line widths, shrink the axis font size, and 
# tilt the x-axis labels by 45 degrees. 

# Create data frame of autos dataset.
autos <- read.table('autosales.txt', header=T, sep='\t')

# Define colors to be used for cars, trucks, suvs
plot_colors <- c(rgb(r=0.0,g=0.0,b=0.9), "#ff0000", "forestgreen")

# Start PDF device driver to to disk. 
pdf(file="autosales2.pdf", height=3.5, width=5)
			
# Trim off excess margin space (bottom, left, top, right)
par(mar=c(4.2, 3.8, 0.2, 0.2))
			
# Graph autos using a y axis that uses the full range of value
# in autos_data. Label axes with smaller font and use larger 
# line widths.
plot(autos$cars, type="l", col=plot_colors[1],
   ylim=range(autos[,-1]), axes=F, ann=T, xlab="Days",
   ylab="Total", cex.lab=0.8, lwd=2)

# Make x axis tick marks without labels
axis(1, lab=F)

# Plot x axis labels at default tick marks with labels at 
# 45 degautree angle
text(axTicks(1), par("usr")[3] - 2, srt=45, adj=1,
   labels=autos$day, xpd=T, cex=0.8)

# Plot y axis with smaller horizontal labels
axis(2, las=1, cex.axis=0.8)

# Create box around plot
box()

# Graph trucks with thicker red dashed line
lines(autos$trucks, type="l", lty=2, lwd=2,
   col=plot_colors[2])

# Graph suvs with thicker green dotted line
lines(autos$suvs, type="l", lty=3, lwd=2, 
   col=plot_colors[3])

# Create a legend in the top-left corner that is slightly  
# smaller and has no border
legend("topleft", names(autos), cex=0.8, col=plot_colors, 
   lty=1:3, lwd=2, bty="n");
  
# Turn off device driver (to flush output to PDF)
dev.off()

# Restore default margins
par(mar=c(5, 4, 4, 2) + 0.1)