Got Plot

Lines Chart

Lines Chart


 
# ======================================================== 
# Data from "Now you see it" by Stephen Few 
# ======================================================== 
# Data 
domes = c(1983, 2343, 2593, 2283, 2574, 2838,  
          2382, 2634, 2938, 2739, 2983, 3493) 
inter = c(574, 636, 673, 593, 644, 679, 593,  
          139, 599, 583, 602, 690) 
 
# Data frame of sales revenue 
SR = data.frame( 
  Domestic = domes, 
  International = inter, 
  row.names = substr(month.name, 1, 3)) 
 
 
# ======================================================== 
# Plot 
# ======================================================== 
# set graphic margins 
op = par(mar = c(3, 5, 2, 1)) 
# call new plot 
plot.new() 
# define plot window 
plot.window(xlim = c(0,14), ylim = c(0, 4500), xaxs = "i") 
# add axis 
axis(side = 1, pos = 0, at = 0:13, labels = c("", rownames(SR), ""),  
     lwd.ticks = 0, col = "gray50", cex.axis = 1) 
axis(side = 2, pos = 0, at = seq(from=0, to=4000, by=500), las = 2,  
     lwd.ticks = 0.5, col = "gray50", cex.axis = 1, line = 0.1) 
# add lines 
lines(1:12, SR$Domestic, col = "#6BAED6", lwd = 4.5) 
lines(1:12, SR$International, col = "#FEB24C", lwd = 4.5) 
# add legends 
text(12, SR$Domestic[12], labels = "Domestic", cex = 0.9, pos = 4) 
text(12, SR$International[12], labels = "International", cex = 0.9, pos = 4) 
# add y-axis legend 
mtext("USD", side = 2, at = 4450, las = 2, cex = 0.85, line = 0.5) 
mtext("(thousands)", side = 2, at = 4300, las = 2, cex = 0.8, line = 0.5) 
# add title 
mtext("Sales Revenue", side = 3, line = -1.5, font = 2) 
# turn off par 
par(op)