
data(state)
state
abbr
"MN"
).fips
pop2010
pop2000
homeownership
multiunit
income
med_income
poverty
fed_spend
land_area
smoke
murder
robbery
agg_assault
larceny
motor_theft
soc_sec
nuclear
coal
tr_deaths
tr_deaths_no_alc
unempl
pop2010
, pop2000
, homeownership
, multiunits
, income
, med_income
, poverty
, fed_spend
, land_area
), http://quickfacts.census.gov/qfd/index.html Infochimps (murder
, robbery
, agg_assault
, larcent
, motor_theft
, soc_sec
, coal
, nuclear
), http://www.infochimps.com (see linked pages and corresponding downloadable data sets for original source information) National Highway Traffic Safety Administration (tr_deaths
, tr_deaths_no_alc
), http://www-fars.nhtsa.dot.gov/ Bureau of Labor Statistics (unempl
), http://www.bls.gov/web/laus/laumstrk.htmdata(state)
mapvar(state$unempl, state$abbr, 3:1, Legend="Unemployment (%)")
mapvar(state$soc_sec, state$abbr, 1:3, Legend="Social Security (%)")
DC <- state$state == "District of Columbia"
murder <- state$murder
murder[DC] <- NA
mapvar(murder, state$abbr, c(3,2,2), Legend="Murders per 100k")
mapvar(state$nuclear, state$abbr, c(2,3,2), Legend="Nuclear Energy (%)")
Run the code above in your browser using DataLab