I am currently the Co-QEP (Quality Enhancement Plan) Director for Data Collection and Analysis and an Assistant Professor of Sociology in the Department of Social Sciences at Mississippi Valley State University. Curriculum Vitae
This article analyzes a unique panel data set to assess the effect of militarism on per capita carbon dioxide emissions. We extend previous research examining the effects of military expenditures on carbon emissions by including in our analyses over 30 years of additional data. In addition, we compare our preliminary results to those obtained from other estimation procedures. Specifically, we report and visually illustrate the results of 54 cross-sectional models (one for each year) and 36 unique panel regression models on both balanced and unbalanced panels. We assess how this relationship has changed over time by testing for interactions between military spending and time and by systematically re-analyzing our data across 180 panel regressions with varying time frames. A strong and enduring association between military spending and per capita carbon emissions is indicated in cross-sectional comparisons. Our panel analyses reveal a much weaker and varying relationship that has become stronger in recent decades. Moreover, we find that the effect of military spending on per capita carbon emissions is moderated by countries’ level of economic development, with military spending of more wealthy countries having relatively larger net effects on carbon emissions. We partially confirm previous findings on the temporal stability of the environmental impacts of militarism. Our analyses show, however, that this temporal stability has emerged relatively recently, and that the relationship between military expenditures and carbon emissions is weaker prior to the 1990s.
JH Bradford, AM Stoner
Journal of World-Systems Research 23(2):298–325, 2017.
The following code downloads county-level poverty data in 2015 from the American Community Survey (ACS) via an API using the acs package. I then create an interactive Highchart map using the package highcharter.
Download ACS Poverty data via an API
library(tibble)
library(dplyr)
library(tidyr)
library(fst)
library(highcharter)
library("viridisLite")
library(acs)
api.key.install(key = "07e1aef2e1de18c0bd4ad888c8bd1295aa7400f9")
all_counties = acs::geo.make(state = "*", county = "*")
all_tracts = acs::geo.make(state = c(state.abb, "DC"), county = "*", tract = "*")
pov_total_2015 = acs::acs.
This is an attempt to collect meta-data from links to academic articles. There are several R packages for both web crawling and data extraction, including Rcrawler, rvest, and scrapeR. Among these, only RCrawler has capabilities for both data extraction and web crawling. I won’t need to make use of the latter functionality here, since I already have a list of url’s that need to be mined. Instead, I’m mostly interested in web usage mining and web content mining, the extraction of “valuable information from web content” (Khalil and Fakir 2017).
I’ve made the following county-level graphs of fatal police shooting rates by race using data from the Census and compiled from the data I’ve now made available on figshare:
Bradford, John Hamilton (2017): Fatal Police Shootings (2013-2016) & County Level Data. figshare.
Below is the graph. I. Loading Data
1. A function to retrieve state abbreviations
getState.abb <- function(x){
##remove punctuation and twim white space, convert to lower case
x <- tolower(trimws(gsub("[[:punct:]]", "", x)))
x[which(x == "washington dc")] <- "district of columbia"
states.
I’ve just published new data sets to figshare with accompaying code to RPubs. Below is the project description with links.
This is a set of csv files including a number of variables including fatal police shootings and other crime and socioeconomic covariates at different levels of geographical aggregation from 2013-2016. Five of the files use only the Washington Post data covering years 2015 and 2016, whereas the other five files utilize fatal police shootings of civilians for years 2013-2016, combining the Lott & Moody (2016) data for years 2013-2015 and Washington Post data for 2016.
A new article has just been published in the Journal of Criminal Justice, “The prevalence of fatal police shootings by U.S. police, 2015–2016: Patterns and answers from a new data set” by Shane, Lawton, and Swenson (2017) .
The authors make some good points that I mostly agree with, but I cannot make sense of their finding that the mean rate of black civilians killed by police (per 100,000) is lower than that of whites.
Figure 1. SVG
Figure 2. SVG
Above are some new county-level heat maps of police shooting data, compiled from the Lott & Moody (2016) data for years 2013-2015, and the Washington Post for 2016. Below the graphs, the R code is provided.
R Code
1. Load the Data.
(I plan to upload these data sets to figshare shortly.)
library(readr)
library(tidyr)
library(dplyr)
vars <- fst::read.fst(path = "countyVars.csv")
df_wapoLott <- dplyr::left_join(vars, readr::read_csv("killed_lott_wapo.
This is a set of csv files including a number of variables including fatal police shootings and other crime and socioeconomic covariates at different levels of geographical aggregation from 2013-2016.