knitr::opts_chunk$set(echo = TRUE)

library(ggplot2)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(tidyr)
library(tidyverse)
## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --
## v tibble  3.0.4     v stringr 1.4.0
## v readr   1.4.0     v forcats 0.5.0
## v purrr   0.3.4
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(knitr)

#reading in merged Algebra I  File -- with only the columns needed

fileAlgI <- "Algebra I-cali.csv"

algI.sch <- read.csv(fileAlgI)

### How to set your working directory 
## In quotation marks, ("C: /Users/BlaiseSevier/Desktop/R Work")

setwd("C:/Users/BlaiseSevier/Desktop/R Work")


#this is in the US

els.k12 <- 5296851
nonel.k12 <- 45625438

#this is in california
fileCA <- "CA.csv"
CA<- read.csv(fileCA)

CA.T <- sum(CA$Total)
CA.T
## [1] 1642370
### There are 1,642,370 High School students in CA????

CA.LEP <- sum(CA$LEP)
CA.LEP
## [1] 182799
##Number of NON-ELs in California G9-12

non.el.ca <- CA.T - CA.LEP

## Changing negative numbers to 0s.

algI.sch[algI.sch==-8]<-0
algI.sch[algI.sch==-9]<-0
algI.sch[algI.sch==-8]<-0
algI.sch[algI.sch==-6]<-0
algI.sch[algI.sch==-5]<-0
algI.sch[algI.sch==-3]<-0

CRDC Survey Information

For more information about the school form see: https://www2.ed.gov/about/offices/list/ocr/docs/2017-18-crdc-school-form.pdf.

TOT_ALGENR_G08_M Student Enrollment in Algebra I (Grade 8, UG Middle School Age): Calculated Male Total TOT_ALGENR_G08_F Student Enrollment in Algebra I (Grade 8, UG Middle School Age): Calculated Female Total SCH_ALGENR_G08_LEP_M Student Enrollment in Algebra I (Grade 8, UG Middle School Age): LEP Male SCH_ALGENR_G08_LEP_F Student Enrollment in Algebra I (Grade 8, UG Middle School Age): LEP Female

TOT_ALGENR_GS0910_M Student Enrollment in Algebra I (Grades 9-10): Calculated Male Total TOT_ALGENR_GS0910_F Student Enrollment in Algebra I (Grades 9-10): Calculated Female Total SCH_ALGENR_GS0910_LEP_M Student Enrollment in Algebra I (Grades 9-10): LEP Male SCH_ALGENR_GS0910_LEP_F Student Enrollment in Algebra I (Grades 9-10): LEP Female

TOT_ALGENR_GS1112_M Student Enrollment in Algebra I (Grades 11-12): Calculated Male Total TOT_ALGENR_GS1112_F Student Enrollment in Algebra I (Grades 11-12): Calculated Female Total SCH_ALGENR_GS1112_LEP_M Student Enrollment in Algebra I (Grades 11-12): LEP Male SCH_ALGENR_GS1112_LEP_F Student Enrollment in Algebra I (Grades 11-12): LEP Female

Grade 8 Algebra I

Non-English Learner Male Students Enrolled in Algebra I Courses Grade 8

#Computes the total number of a non-English Learner male students in Algebra I courses

#dat$NonELM<- (dat$TOT_ENR_M - dat$TOT_LEPENR_M)

algI.sch$NonELM <- (algI.sch$TOT_ALGENR_G08_M - algI.sch$SCH_ALGENR_G08_LEP_M)

sum(algI.sch$NonELM)
## [1] 36622
#There are 451949 Non-English Learner Male Students Enrolled in Algebra I G8 

# There are 36,622 Non-English Learner Male Students Enrolled in Algebra I G8 in California

Non-English Learner Female Students in Algebra I Grade 8

#Total female non-EL 
#dat$NonELF <-dat$TOT_ENR_F-dat$TOT_LEPENR_F

algI.sch$NonELF <- (algI.sch$TOT_ALGENR_G08_F - algI.sch$SCH_ALGENR_G08_LEP_F)

sum(algI.sch$NonELF)
## [1] 38480
#There are 480594 Non-English Learner Females Enrolled in Algebra I Grade 8 courses.

# 38,480 Non-English Learner Females Enrolled in Algebra I Grade 8 courses in California

Total Non ELs in Algebra I Grade 8

#total non EL
#dat$NonEL<-dat$NonELF + dat$NonELM

algI.sch$NonEL <- algI.sch$NonELF + algI.sch$NonELM

non.el.AlgebraG08 <- sum(algI.sch$NonEL)
non.el.AlgebraG08
## [1] 75102
#There are 932,543 Non-English Learners Enrolled in Algebra I 

#There are 75,102 Non-English Learners Enrolled in Algebra I in California

English Learners in Algebra I in Grade 8

English Learner Males in Algebra I

#Total Lep Male in Algebra I 

#dat$ELMGT <- dat$SCH_GTENR_LEP_M

algI.sch$ELM.AIG8 <- algI.sch$SCH_ALGENR_G08_LEP_M

sum(algI.sch$SCH_ALGENR_G08_LEP_M)
## [1] 2008
sum(algI.sch$ELM.AIG8)
## [1] 2008
## There is 13,375 English Learner Males in Algebra I Grade 8 

#There are 2,008  English Learner Males in Algebra I Grade 8 in California

English Learner Females in Algebra I Grade 8

#Total LEP Female in GT
#dat$ELFGT <- dat$SCH_GTENR_LEP_F

algI.sch$ELF.AIG8 <- algI.sch$SCH_ALGENR_G08_LEP_F

sum(algI.sch$ELF.AIG8)
## [1] 1513
## There are 10,907 EL Females in Algebra I Grade 8 Classes 

# 1,513 EL Females in Algebra I Grade 8 Classes in California

Total English Learners in Algebra I in Grade 8

#dat$ELEnrol <- dat$TOT_LEPENR_M + dat$TOT_LEPENR_F

algI.sch$ELEnrolAIG8 <- algI.sch$ELM.AIG8 + algI.sch$ELF.AIG8

els.AIG8 <- sum(algI.sch$ELEnrolAIG8)

sum(els.AIG8)
## [1] 3521
## There is 24,282 English learners in Algebra I Grade 8  

# There are 3,521 English learners in Algebra I Grade 8 in California

Percentage of ELs and Non ELs in Algebra I Grade 8 Courses

#Percentage of ELs in Algebra 8 Grade 8

#round(els.AIG8/tot_lep_hs*100,2)

#round(els.AIG8/els.k12*100,2)


#round(non.el.AlgebraG08/non.el.hs*100,2)

#round(non.el.AlgebraG08/nonel.k12*100,2)

Grade 9-10 Algebra I

Non-English Learner Male Students Enrolled in Algebra I Courses Grade 9-10

#Computes the total number of a non-English Learner male students in Algebra I courses

#dat$NonELM<- (dat$TOT_ENR_M - dat$TOT_LEPENR_M)

algI.sch$NonELM.GS0910 <- (algI.sch$TOT_ALGENR_GS0910_M - algI.sch$SCH_ALGENR_GS0910_LEP_M)

sum(algI.sch$NonELM.GS0910)
## [1] 183884
#There are 1,388,378 Non-English Learner Male Students Enrolled in Algebra I G9-10

# There are 183,884 Non-English Learner Male Students Enrolled in Algebra I G9-10 in California

Non-English Learner Female Students in Algebra I Grade 9-10

#Total female non-EL 
#dat$NonELF <-dat$TOT_ENR_F-dat$TOT_LEPENR_F

algI.sch$NonELF.GS0910 <- (algI.sch$TOT_ALGENR_GS0910_F - algI.sch$SCH_ALGENR_GS0910_LEP_F)

sum(algI.sch$NonELF.GS0910)
## [1] 174888
#There are 1,275,470 Non-English Learner Females Enrolled in Algebra I Grade 9-10 courses.

#There are 174,888 Non-English Learner Females Enrolled in Algebra I Grade 9-10 courses in California

Total Non ELs in Algebra I Grade 9-10

#total non EL
#dat$NonEL<-dat$NonELF + dat$NonELM

algI.sch$NonEL.GS0910 <- algI.sch$NonELF.GS0910 + algI.sch$NonELM.GS0910

non.el.AlgebraGS0910 <- sum(algI.sch$NonEL.GS0910)
non.el.AlgebraGS0910
## [1] 358772
#There are 2,663,848 Non-English Learners Enrolled in Algebra I G9-10

#There are 358,772 Non-English Learners Enrolled in Algebra I G9-10 in California

English Learners in Algebra I in Grade 9-10

English Learner Males in Algebra I

#Total Lep Male in Algebra I 

#dat$ELMGT <- dat$SCH_GTENR_LEP_M

algI.sch$ELM.AIGS0910 <- algI.sch$SCH_ALGENR_GS0910_LEP_M

sum(algI.sch$SCH_ALGENR_GS0910_LEP_M)
## [1] 33992
sum(algI.sch$ELM.AIGS0910)
## [1] 33992
## There is 152,844 English Learner Males in Algebra I Grade 9-10 

#There are 33,992  English Learner Males in Algebra I Grade 9-10 in California

English Learner Females in Algebra I Grade 9-10

#Total LEP Female in GT
#dat$ELFGT <- dat$SCH_GTENR_LEP_F

algI.sch$ELF.AIGS0910 <- algI.sch$SCH_ALGENR_GS0910_LEP_F

sum(algI.sch$ELF.AIGS0910)
## [1] 23574
## There are 112,581 EL Females in Algebra I Grade 9-10 Classes 

## There 23,574 EL Females in Algebra I Grade 9-10 Classes in California

Total English Learners in Algebra I 9-10

#dat$ELEnrol <- dat$TOT_LEPENR_M + dat$TOT_LEPENR_F

algI.sch$ELEnrolAIGS0910 <- algI.sch$ELM.AIGS0910 + algI.sch$ELF.AIGS0910

els.AIGS0910 <- sum(algI.sch$ELEnrolAIGS0910)

sum(els.AIGS0910)
## [1] 57566
## There is 265,425 English learners in Algebra I Grade 9-10

## There ar 57,566 English learners in Algebra I Grade 9-10 in California.

Percentage of ELs and Non ELs in Algebra I Grade 9-10 Courses

###Percentage of ELs out of Total LEP HS
# round(els.AIGS0910/tot_lep_hs*100,2)
# 
# 
# round(els.AIGS0910/els.k12*100,2)
# 
# ##Non-EL 
# 
# round(non.el.AlgebraGS0910/non.el.hs*100,2)
# 
# round(non.el.AlgebraGS0910/nonel.k12*100,2)

Grade 11-12 Algebra I

Non-English Learner Male Students Enrolled in Algebra I Courses Grade 11-12

#Computes the total number of a non-English Learner male students in Algebra I courses

#dat$NonELM<- (dat$TOT_ENR_M - dat$TOT_LEPENR_M)

algI.sch$NonELM.GS1112 <- (algI.sch$TOT_ALGENR_GS1112_M - algI.sch$SCH_ALGENR_GS1112_LEP_M)

sum(algI.sch$NonELM.GS1112)
## [1] 25727
#There are 116,502 Non-English Learner Male Students Enrolled in Algebra I Grade 11-12 courses.

# There are 25,727 Non-English Learner Male Students Enrolled in Algebra I Grade 11-12 courses in California.

Non-English Learner Female Students in Algebra I Grade 11-12

#Total female non-EL 
#dat$NonELF <-dat$TOT_ENR_F-dat$TOT_LEPENR_F

algI.sch$NonELF.GS1112 <- (algI.sch$TOT_ALGENR_GS1112_F - algI.sch$SCH_ALGENR_GS1112_LEP_F)

sum(algI.sch$NonELF.GS1112)
## [1] 19046
#There are 87,404 Non-English Learner Females Enrolled in Algebra I Grade 11-12 courses.

#There are 19,046 Non-English Learner Females Enrolled in Algebra I Grade 11-12 courses in California.

Total Non ELs in Algebra I Grade 11-12

#total non EL
#dat$NonEL<-dat$NonELF + dat$NonELM

algI.sch$NonEL.GS1112 <- algI.sch$NonELF.GS1112 + algI.sch$NonELM.GS1112

non.el.AlgebraGS1112 <- sum(algI.sch$NonEL.GS1112)
non.el.AlgebraGS1112
## [1] 44773
#There are 203,906 Non-English Learners Enrolled in Algebra I Grade 11-12 courses

#There are 44,773 Non-English Learners Enrolled in Algebra I Grade 11-12 courses in California

English Learners in Algebra I in Grade 11-12

English Learner Males in Algebra I

#Total Lep Male in Algebra I 

#dat$ELMGT <- dat$SCH_GTENR_LEP_M

algI.sch$ELM.AIGS1112 <- algI.sch$SCH_ALGENR_GS1112_LEP_M

sum(algI.sch$SCH_ALGENR_GS1112_LEP_M)
## [1] 8187
sum(algI.sch$ELM.AIGS1112)
## [1] 8187
## There is 21,569 English Learner Males in Algebra I Grade 11-12 

#there is 8,187 English Learner Males in Algebra I Grade 11-12 in California

English Learner Females in Algebra I Grade 11-12

#Total LEP Female in GT
#dat$ELFGT <- dat$SCH_GTENR_LEP_F

algI.sch$ELF.AIGS1112 <- algI.sch$SCH_ALGENR_GS1112_LEP_F

sum(algI.sch$ELF.AIGS1112)
## [1] 5009
## There are 15,084 EL Females in Algebra I Grade 11-12 Classes 

## There are 5,009 EL Females in Algebra I Grade 11-12 Classes in California

Total English Learners in Algebra I 11-12

#dat$ELEnrol <- dat$TOT_LEPENR_M + dat$TOT_LEPENR_F

algI.sch$ELEnrolAIGS1112 <- algI.sch$ELM.AIGS1112 + algI.sch$ELF.AIGS1112

els.AIGS1112 <- sum(algI.sch$ELEnrolAIGS1112)

sum(els.AIGS1112)
## [1] 13196
## There is 36,653 English learners in Algebra I Grade 11-12  

## Theere are 13,196 English learners in Algebra I Grade 11-12  in California

Percentage of ELs and Non ELs in Algebra I Grade 11-12 Courses

#Out of HS population

# round(els.AIGS1112/tot_lep_hs*100,2)
# 
# round(els.AIGS1112/els.k12*100,2)
# 
# round(non.el.AlgebraGS1112/non.el.hs*100,2)
# #
# round(non.el.AlgebraGS1112/nonel.k12*100,2)

Percentage of ELs in Grades 9-12 in Algebra I in California

##

sum(els.AIGS0910 + els.AIGS1112)
## [1] 70762
## There are  70,762 ELs in Grade 9-12 in Algebra I in California 

## Percentage of Els in Algebra I 9-12

# There are  70,762 ELs in Grade 9-12 in Algebra I in California. There are 182,799 ELs in HS 9-12 in California.

sum(els.AIGS0910 + els.AIGS1112)/CA.LEP*100
## [1] 38.71028
#38.71% of ELs are in Algebra I 9-12

Percentage of NON- ELs in Grades 9-12 in Algebra I in California

#Percentage of Non-Els in Algebra 9-12

sum(non.el.AlgebraGS0910 + non.el.AlgebraGS1112) 
## [1] 403545
# There are 403,535 non ELs in California in Algebra I. There are 1,459,571 non-ELs in HS 912.

(non.el.AlgebraGS0910 + non.el.AlgebraGS1112) / non.el.ca*100
## [1] 27.64819
##27.64% of non Els are in Algebra I 912.