Chi Hack Night March 22

ReportCardData.R

# This script examines school report card data 2014-2015
# Data downloaded from https://github.com/dailyherald/SchoolReportCards
setwd(dir = "~/Desktop/")
me <- read.csv(file = "me2015.csv")
dem <- read.csv(file="rc2015dem.csv")
# head(me) #query headers
# summary(me) #query summary
# str(dem) #query structure
colnames(me)
together <- merge(x=me,
                  y=dem,
                  by="schid")
# View(together)
summary(together$me2015school)
hist(together$me2015school)
mecats <- cut(x=together$me2015school,5)
table(mecats) # /!\ Investigate negative number ## Investigate regex. for ...
together$mecats <- cut(x = together$me2015school, 5)
colnames(together)

if (!require(ggplot2)) {
  install.packages("ggplot2") # only needed once
}
library(ggplot2)
ggplot(data=together, aes(x=me2015school))+geom_bar()
ggplot(data=together,aes(x=mecats))+geom_bar()
#Filter NA cat
valid <- subset(together,  subset = !is.na(me2015school))
ggplot(data = valid, aes(x= cut(me2015school, seq(0, 100, by = 20)))) + geom_bar()
#Filter all except NA
notvalid <- subset(valid, subset = is.na(mecats))

install.packages("reshape2")
library(reshape2)
plotdata <- subset(valid, select = c(schid,me2015school,me2015schAPP))
head(plotdata)
plotdata_long <- melt (data = plotdata, 
                     id.vars = "schid", 
                     variable.name = "ach_type", 
                     value.name = "pct")
head(plotdata_long)
table(plotdata_long$ach_type)

ggplot(data=plotdata_long,aes(x=pct,fill=ach_type))+geom_bar(binwidth = 10)
ggsave("ach_type.png")