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.

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.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)