Mean_vs_Wealth&Education

INTRO STUFF

library(tidyverse)

## -- Attaching packages ----------------------------------------------------------------------------------------------- tidyverse 1.3.0 --

## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.1     v dplyr   1.0.0
## v tidyr   1.1.0     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0

## -- Conflicts -------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(dplyr)
library(ggplot2)
lcn_fpf_co_names <-read.csv("lcn_fpf_co_names.csv")
lcn_fpf_co_names <-group_by(lcn_fpf_co_names, Svy_Year, Educ)
lcn_fpf_co_names_educ_summ <- summarize(lcn_fpf_co_names, MEASURE=mean(MEASURE))

## `summarise()` regrouping output by 'Svy_Year' (override with `.groups` argument)

summary(lcn_fpf_co_names_educ_summ)

##     Svy_Year         Educ        MEASURE     
##  Min.   :2007   Min.   :0.0   Min.   :36.60  
##  1st Qu.:2007   1st Qu.:1.0   1st Qu.:39.18  
##  Median :2010   Median :2.5   Median :48.19  
##  Mean   :2010   Mean   :2.5   Mean   :46.30  
##  3rd Qu.:2013   3rd Qu.:4.0   3rd Qu.:51.51  
##  Max.   :2013   Max.   :5.0   Max.   :58.87

write.csv(lcn_fpf_co_names_educ_summ, file = "lcn_fpf_co_names_educ_summ.csv")

lcn_fpf_co_names <- ungroup(lcn_fpf_co_names)

lcn_fpf_co_names <-group_by(lcn_fpf_co_names, Svy_Year, Wealth)
lcn_fpf_co_names_wealth_summ <- summarize(lcn_fpf_co_names, MEASURE=mean(MEASURE))

## `summarise()` regrouping output by 'Svy_Year' (override with `.groups` argument)

summary(lcn_fpf_co_names_wealth_summ)

##     Svy_Year        Wealth     MEASURE     
##  Min.   :2007   Min.   :1   Min.   :37.34  
##  1st Qu.:2007   1st Qu.:2   1st Qu.:38.15  
##  Median :2010   Median :3   Median :44.91  
##  Mean   :2010   Mean   :3   Mean   :44.45  
##  3rd Qu.:2013   3rd Qu.:4   3rd Qu.:49.05  
##  Max.   :2013   Max.   :5   Max.   :54.39

write.csv(lcn_fpf_co_names_wealth_summ, file = "lcn_fpf_co_names_wealth_summ.csv")

Print Bar Charts

lcn_fpf_co_names_educ_summ$Educ<-as.factor(lcn_fpf_co_names_educ_summ$Educ)
levels(lcn_fpf_co_names_educ_summ$Educ)<- c("No Education", "Incomplete Primary", "Primary", "Incomplete Secondary", "Secondary", "Higher Education")
plot<-ggplot(lcn_fpf_co_names_educ_summ, aes(fill=as.factor(Educ), y=MEASURE, x=as.factor(Svy_Year))) + 
  geom_bar(position="dodge", stat="identity")+
labs(y="Mean Person Measure",x= "Survey Year")
print(plot)

Wealth

lcn_fpf_co_names_wealth_summ$Wealth<-as.factor(lcn_fpf_co_names_wealth_summ$Wealth)
levels(lcn_fpf_co_names_wealth_summ$Wealth)<- c("Poorest", "Poorer", "Middle", "Richer", "Richest")
plot<-ggplot(lcn_fpf_co_names_wealth_summ, aes(fill=as.factor(Wealth), y=MEASURE, x=as.factor(Svy_Year))) + 
  geom_bar(position="dodge", stat="identity")+
labs(y="Mean Person Measure",x= "Survey Year")
print(plot)

labs(y="Mean Person Measure",x= "Survey Year")

## $y
## [1] "Mean Person Measure"
## 
## $x
## [1] "Survey Year"
## 
## attr(,"class")
## [1] "labels"

print(plot)