---
title: "Enrollment Demographics"
header-includes:
- usepackage{pdflscape}
- newcommand{blandscape}{begin{landscape}}
- newcommand{elandscape}{end{landscape}}
author: "Office of Assessment and Accreditation"
date: "June 5, 2019"
output: pdf_document

---
newpage
blandscape
newgeometry{margin=0.5in}

```{r Set up and trim, message=FALSE, warning=FALSE, include=FALSE, paged.print=FALSE}
library(readxl)
FA18_Enroll <- read_excel("AY2018-19/Fall 2018 Undergrad Enroolment report.xlsx")


# load multirace function
multi.race_fun <- function(dat,startr,endr){
dat$multi <- rowSums(dat[,startr:endr]=="Y")
return(dat)
}
#run multirace function
FA18_Enroll.MultiR <- multi.race_fun(FA18_Enroll,12,18)

# load comrace function
com_race.fun <- function(dat){
  dat$Com.Race <- ifelse(dat$`Race- Hispanic`=="Y","Hispanic",
                              ifelse(dat$`Race-Afr Amer`=="Y" & dat$multi==1, "African Am",
                                     ifelse(dat$`Race-Am Ind`=="Y" & dat$multi==1,"Native Am",
                                            ifelse(dat$`Race- Asian`=="Y" & dat$multi==1,"Asian",
                                                   ifelse(dat$`Race- Hawaiian`=="Y" & dat$multi==1, "Hawaiian",
                                                          ifelse(dat$`Race- Caucasian`=="Y" & dat$multi==1,"Caucasian",
                                                                 ifelse(dat$multi>=2,"Two or More Races","Not Reported")))))))
return(dat)
}

# run comrace function
FA18_Enroll.comR <- com_race.fun(FA18_Enroll.MultiR)

# Create trim function
trim.fun <- function (dat){
  dat <- dat[,c(2,11:18,22,24:25,36:37,41,43,45,47,49:50,89,113,114)] # update with variable names?
return(dat)
}

#run trim function
FA18_EnrollT <-  trim.fun(FA18_Enroll.comR)
FA18_EnrollT$Gender <- as.factor(FA18_EnrollT$Gender)
FA18_EnrollT$Com.Race <- as.factor(FA18_EnrollT$Com.Race)
FA18.Enroll.spt <- split(FA18_EnrollT, FA18_EnrollT$`Program Desc`)

#count the number of students by degree
countBA <- as.data.frame(length(which(FA18.Enroll.spt$`ED Early Childhood Educ`$Degree=="BA")))
row.names(countBA) <- "Fall 2018"
#load KableExtra package
library(kableExtra)
kable(countBA,"latex",booktabs=T, align="lc",col.names= "BA",row.names=T,escape=F)

early_ch <-FA18.Enroll.spt$`ED Early Childhood Educ`
library(tidyverse)
gen_race.tbl<- early_ch %>%
  group_by(Com.Race, Gender, .drop = FALSE) %>%
  summarise(count = n()) %>%
  ungroup() %>%
  mutate(perc = (count/sum(count)*100)) %>%
  gather(key, value, -Gender, -Com.Race) %>%
  unite(Com.Race, Com.Race, key) %>%
  spread(Com.Race, value)

library(kableExtra)
kable(gen_race.tbl,"latex",booktabs=T, align="lcccccccccccccccc",col.names=linebreak(c('Gender','count','\%','count','\%','count','\%','count','\%','count','\%','count','\%','count','\%','count','\%')),row.names=F,escape=F)%>%
  kable_styling(font_size = 7)%>%
  add_header_above(linebreak(c(' '=1,'Africann American'=2,'Asian'=2,'Americann Indian'=2, 'Caucasian'=2, 'Hawiian'=2, 'Hispanic'=2,'Two orn more races'=2,'Race notn Reported'=2)),align='c')