CPS Data Visualization

Loading required package: leaflet
Loading required package: maps
Loading required package: ggplot2
Loading required package: highcharter
Highcharts (www.highcharts.com) is a Highsoft software product which is
not free for commercial and Governmental use

mapCPS = leaflet(cps) %>% 
  setView(lng = -87.6298, lat = 41.8781, zoom = 12) %>%
  addTiles() %>% 
  addCircleMarkers(lng= ~Longitude,lat = ~Latitude, radius=~Safety.Score, col=~Color)
mapCPS

cps$Safety.Icon<-factor(cps$Safety.Icon, levels=c("Very Weak", "Weak", "Average", "Strong", "Very Strong", "NDA"))
hchart(cps[!is.na(cps$Safety.Score) & !is.na(cps$Environment.Score),], "scatter", hcaes(x=Safety.Score, y=Environment.Score, group=Safety.Icon)) %>%  hc_title(text="Safety Score and Environment Score grouped by Safety Icon")

cps$Average.Student.Attendance<-as.numeric(sub("%","",cps$Average.Student.Attendance))
cps$Average.Teacher.Attendance<-as.numeric(sub("%","",cps$Average.Teacher.Attendance))
cps$Average.Teacher.Attendance[cps$Average.Teacher.Attendance==0] <- NA 
hchart(cps, "scatter", hcaes(x=Average.Student.Attendance, y=Average.Teacher.Attendance))