svmiller

library(tidyverse)

States <- read_csv("~/Dropbox/data/COW/states/states2011.csv")

# Create a PDF of state-years. ----------
# States data nominally end in 2011, so let's fudge that.

States %>%
  mutate(endyear = ifelse(endyear == 2011, 2015, endyear)) %>%
  rowwise() %>%

svmiller

library(tidyverse)
library(stringr)

# Freedom of the Press data ---------
# Oh god, Freedom House, why the sam hell do you do these things...

FP <- readxl::read_excel("~/Dropbox/data/freedom-house/FOTP1980-FOTP2017_Public-Data.xlsx", sheet=2) %>% 
  repair_names()

# Ugh, all right. Let's do this...

svmiller

setwd("~/Dropbox/projects/blog-posts/nato-spending")

library(WDI)
library(countrycode)
library(tidyverse)

Milit <- WDI(country="all", indicator=c("MS.MIL.XPND.GD.ZS", "MS.MIL.XPND.ZS","MS.MIL.TOTL.P1", "SP.POP.TOTL"), 
             start=1988, end=2015) %>%
  rename(milex = MS.MIL.XPND.GD.ZS, milgovexp = MS.MIL.XPND.ZS,
         milper = MS.MIL.TOTL.P1, tpop = SP.POP.TOTL) %>% tbl_df() %>%

svmiller

library(RCurl)
library(tidyverse)
library(maps)
# library(fiftystater)

theme_steve <- function() {
  theme_bw() +
    theme(panel.border = element_blank(), 
          plot.caption=element_text(hjust=1, size=9,
                                    margin=margin(t=10),

svmiller

# You won't need all of these packages. I just copied it from another,related analysis:
# https://github.com/svmiller/etjc

library(car)
library(arm)
library(countrycode)
library(data.table)
library(tidyverse)
library(sqldf)
# library(pdftools)

svmiller

library(rnoaa)
library(tidyverse)
library(stringr)
library(weathermetrics)

my_token <- "get your own here..."

theme_steve <- function() {
       theme_bw() +
  theme(panel.border = element_blank(), 

svmiller

library(tidyverse)
library(lubridate) # just in case I need to manipulate a date
library(stringr) # just in case I need to manipulated a string
library(stevemisc) # for my personal theme
library(scales) # just in case I need to fudge a y-axis to be a scale
library(knitr) # just in case I need a markdown table

# I'm going to assume you have Fariss' data downloaded somewhere. Here's what mine looks like.
LHR <- read_csv("~/Dropbox/data/latent-human-rights/HumanRightsProtectionScores_v2.04.csv")

svmiller

|￣￣￣￣￣ ￣| | DEATH | | IS | | INEVITABLE | | ＿＿＿＿＿__| (__/) || (•ㅅ•) || / 　 づ

(･_･)っ

svmiller

library(tidyverse)
library(stevemisc)

# Load data

Non <- read_csv("~/Dropbox/data/cow/wars/Non-StateWarData_v4.0.csv")
Intra <- read_csv("~/Dropbox/data/cow/wars/Intra-StateWarData_v4.1.csv")
Inter <- read_csv("~/Dropbox/data/cow/wars/Inter-StateWarData_v4.0.csv")
Extra <- read_csv("~/Dropbox/data/cow/wars/Extra-StateWarData_v4.0.csv")

svmiller

library(rvest)
library(lubridate)
library(tidyverse)

Truman <- read_html("http://www.presidency.ucsb.edu/data/popularity.php?pres=33")

Truman %>%
  html_table(fill=T) -> Truman

Truman[[11]] -> Truman