jailee

#Visualization 1: Income differential between white men and women in boxplot graph 

library(readr)
library(dplyr)
library(ggplot2)
library(RColorBrewer)
library(scales)

#Read in IPUMS data

jailee

#Visualization 2: The Column graph of white women by number of children and education level

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

#Read in IPUMS data;
a <- read_csv('usa_00075.csv',col_types=cols(PERWT=col_double()))

jailee

#Visualization 3: Line graph of white women in different family structure

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

#Read in IPUMS data;
a <- read_csv('usa_00067.csv',col_types=cols(HHWT=col_double(),PERWT=col_double()))

jailee

#Visualization 4: Column graph for labor division between white men and women 

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

#Read in IPUMS data
a <- read_csv('usa_00067.csv',col_types=cols(PERWT=col_double()))