Rank <- c(31, 31, 28, 27, 29, 28, 27, 24, 17, 21, 26, 20, 24, 24, 23, 34, 44, 31, 26) # vector of ranks
plot(Rank, ylim = rev(range(Rank)), xlab="Year", main="School Ranking for HAHS", xaxt="n")
lines(Rank)
axis(1, at = 0:19, labels = sprintf("%02d", 0:19)) # Format years to last two digits