sophiefrey

#spine graph

#loading packages
library(dplyr)
library(readr)
library(ggplot2)
library(RColorBrewer)
library(scales)

#reading in data

sophiefrey

#percentages of population
#load packages
library(dplyr)
library(readr)
library(ggplot2)
library(RColorBrewer)

#read in IPUMS data; limit to male veteran (just black or white)
a <- read_csv('final.csv') %>% 
  filter(SEX==1 & VETSTAT==2 & !(RACE>2))

sophiefrey

#Population of educated white veterans by state
#loading packages
library(dplyr)
library(readr)
library(ggplot2)
library(RColorBrewer)
library(ggmap)
library(maptools)
library(gtools)
rm(list=ls())

sophiefrey

#Population of educated black veterans by state
#loading packages
library(dplyr)
library(readr)
library(ggplot2)
library(RColorBrewer)
library(ggmap)
library(maptools)
library(gtools)
rm(list=ls())

sophiefrey

#Population of black veterans by state
#loading packages
library(dplyr)
library(readr)
library(ggplot2)
library(RColorBrewer)
library(ggmap)
library(maptools)
library(gtools)
rm(list=ls())

sophiefrey

#Population of white veterans by state
#loading packages
library(dplyr)
library(readr)
library(ggplot2)
library(RColorBrewer)
library(ggmap)
library(maptools)
library(gtools)
rm(list=ls())