# Louisiana is the one outlier
plot(MurderRate ~ stateNumber, uscrime,
axes = FALSE, type = "h", col = 1:6,
main = "USA murder rates in 2009 (per 100,000 population)")
axis(1, with(uscrime, abbrev), at = with(uscrime, stateNumber),
col = 1:6, col.tick = 1:6, cex.lab = 0.5)
axis(2)
tail(uscrime[ sort.list(with(uscrime, MurderRate)), ])
Run the code above in your browser using DataLab