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