Regional Variation in Law Enforcement Deaths – Part B
[This article was first published on Mathew Analytics LLC » R, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.
I would like to thank Tal Galili for establishing and maintaining the blog aggregator at R-bloggers. This site has been added to their directory and new posts which are tagged with R will now appear on their feed.
http://www.r-bloggers.com/
In part a, I presented a series of barplots which showed that the plurality of police officer killings from 1998 to 2007 occured in the southern region of the United States. Using the same data, I will examine whether there were any significant differences in the yearly number of officers killed in all four regions.
gplot(totnec, aes(Year, Value)) +
geom_bar(fill="#336699", colour="black") +
ylim(c(0,10)) + opts(title="Number of Police Officers Killed in the Northeast (1998-2007)") +
opts(axis.text.y=theme_text(family="sans", face="bold")) +
opts(axis.text.x=theme_text(family="sans", face="bold")) +
opts(plot.title = theme_text(size=15, face="bold")) +
xlab("") + ylab("")
ggplot(totmidc, aes(Year, Value)) + geom_bar() +
geom_bar(fill="#336699", colour="black") +
ylim(c(0,20)) + opts(title="Number of Police Officers Killed in the Midwest (1998-2007)") +
opts(axis.text.y=theme_text(family="sans", face="bold")) +
opts(axis.text.x=theme_text(family="sans", face="bold")) +
opts(plot.title = theme_text(size=15, face="bold")) +
xlab("") + ylab("")
ggplot(totsoc, aes(Year, Value)) + geom_bar() +
geom_bar(fill="#336699", colour="black") +
ylim(c(0,50)) + opts(title="Number of Police Officers Killed in the South (1998-2007)") +
opts(axis.text.y=theme_text(family="sans", face="bold")) +
opts(axis.text.x=theme_text(family="sans", face="bold")) +
opts(plot.title = theme_text(size=15, face="bold")) +
xlab("") + ylab("")
ggplot(totwec, aes(Year, Value)) + geom_bar() +
geom_bar(fill="#336699", colour="black") +
ylim(c(0,30)) + opts(title="Number of Police Officers Killed in the West (1998-2007)") +
opts(axis.text.y = theme_text(family="sans", face="bold")) +
opts(axis.text.x=theme_text(family="sans", face="bold")) +
opts(plot.title = theme_text(size=15, face="bold")) +
xlab("") + ylab("")
To leave a comment for the author, please follow the link and comment on their blog: Mathew Analytics LLC » R.
R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.