February 16, 2017

Presentation

Created on 2017-02-16.

Data Prep Code

data(USArrests)


USArrests$State <- row.names(USArrests)
USArrests$StateAbb <- state.abb[match(USArrests$State, state.name)]
USArrests$Hover <- with(USArrests, paste(State, 
  '<br>Urban Pop:', UrbanPop, 
  '%<br>Murder:', Murder, 
  '<br>Assault:', Assault, 
  '<br>Rape:', Rape))

Murder Rate per 100,000 in 1973

Relating Crime rate to % Urban Population