crime.us | R Documentation |
Crime totals and rates, cross-classified by US state, during 2009.
data(crime.us)
A data frame with 50 observations on the following 22 variables.
State
a character vector. White spaces have been replaced by underscores.
Population
a numeric vector
ViolentCrimeTotal
a numeric vector
Murder
a numeric vector
Rape
a numeric vector
Robbery
a numeric vector
Assault
a numeric vector
PropertyCrimeTotal
a numeric vector
Burglary
a numeric vector
LarcenyTheft
a numeric vector
MotorVehicleTheft
a numeric vector
ViolentCrimeRate
a numeric vector
MurderRate
a numeric vector
RapeRate
a numeric vector
RobberyRate
a numeric vector
AssaultRate
a numeric vector
PropertyCrimeRate
a numeric vector
BurglaryRate
a numeric vector
LarcenyTheftRate
a numeric vector
MotorVehicleTheftRate
a numeric vector
stateNumber
a numeric vector, running from 1 to 50.
abbrev
State name as a character vector
Each row is a state of the United States of America. The first half of the columns tend to be totals, and the second half are crime rates per 100,000 population.
The data frame was downloaded as a .csv
file and edited.
The full column names are:
State, Population, Violent crime total, Murder and nonnegligent
Manslaughter, Forcible rape, Robbery, Aggravated assault, Property
crime total, Burglary, Larceny-theft, Motor vehicle theft, Violent
Crime rate, Murder and nonnegligent manslaughter rate, Forcible
rape rate, Robbery rate, Aggravated assault rate, Property crime
rate, Burglary rate, Larceny-theft rate, Motor vehicle theft rate,
state Number, abbreviation.
Technical details governing the data set are given in the URL.
http://www.ucrdatatool.gov
,
http://www.ucrdatatool.gov/Search/Crime/State/RunCrimeOneYearofData.cfm
## Not run: # 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)
## End(Not run)
tail(crime.us[ sort.list(with(crime.us, MurderRate)), ])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.