jmcinerney14

#load packages
library(ggplot2)
library(RColorBrewer)
library(readr)
library(dplyr)
library(ggplot2)
library(scales)
#Import data
data<- read_csv("usa_00022.csv")
#Remove data from Alaska and Hawaii before 1960

jmcinerney14

#load packages
library(ggplot2)
library(RColorBrewer)
library(readr)
library(dplyr)
library(ggplot2)
library(scales)
#Import data
raw_data <- read.csv("usa_00016.csv")
#Remove data from Alaska and Hawaii before 1960, Only people over 18, Only Women, Only people in the workforce

jmcinerney14

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

#Read data
a <- read.csv('Mexican2.csv')

jmcinerney14

#load packages
library(ggplot2)
library(RColorBrewer)
library(readr)
library(dplyr)
library(ggplot2)
library(scales)
#Read in IPUMS data
a <- read_csv('Asian4.csv')
raced<-read_csv("RACED.csv")