NYC Pre-K Explorer

Shiny Project contributed by Amy Tzu-Yu Chen – Data Science Student in the NYC Data Science Academy Bootcamp

Motivation

In 2013, Mayor De Blasio campaigned on a promise of universal pre-kindergarten. The program makes access to free pre-kindergarten education available to all NYC families, regardless of child’s abilities and family income. Now, three years later, NYC enrolls more children in full-day pre-K than any state except Georgia, and its preschool enrollment exceeds the total number of students in San Francisco or Boston. While the statistics show a positive outlook in early child education, the program received complaints and doubts from parents. Although every city child is promised a free seat, many children were slotted for schools miles away from their home. Also, as the number of pre-K locations increases to accommodate all four-year-old children, the quality of the education is in question.

In this project, I created a Shiny app as a comprehensive guide for parents who do not understand Universal Pre-K or simply want to find the closest and most suitable pre-K for their child. This Pre-K guide gives information about each pre-K’s location, contacts, meal plans, playspace, extended day care options, and enrollment restrictions. Also, it allows the public to visualize whether there are enough seats for eligible kids in each borough.

Overview of Pre-K Explorer

Pre-K Explorer has five sections, each with helpful information about Universal Pre-K. Pre-K Map allows users to locate preschools in their neighborhood. Pre-K Catalog shows detailed contact and facility information of all pre-K’s in NYC. Pre-K Statistics helps one visualize whether the supply and demand of preschool education is balanced. About Universal Pre-K Program provides information about application and eligibility. Finally, About This Site contains data sources and selected articles about the program.

Are There Enough Seats at Pre-K? Mayor De Blasio promised that every eligible kid in NYC would get a free seat at a local preschool, but is this true? Although city officials insist that a child would never be placed in another borough, CBS New York found at least two cases where that happened. A visualization comparing available seats at preschools and estimated four-year-old kid population shows that preschools in NYC are far from ready to accommodate all eligible children. The orange and red bars show the estimated numbers of four-year-old children based on 2010 Census Report and 2014 Annual Population Estimate respectively. The real population of four-year-old children may be vastly higher than these estimates because the population growth in all NYC boroughs were faster than expected in the past two years.

Technical Details

Data Cleaning

It is important to ensure all pre-K locations have correct geographic information before mapping. I used the function, geocode(), in R package ggmap to convert all addresses into GPS coordinates. To increase accuracy, I pasted zip codes after each address. Unfortunately, while geocode()  can convert most addresses correctly, there were incorrect cases. To remedy this problem, I used the latitudes and longitudes of NYC’s geographic boundaries to filter out incorrect locations and reassign them correct geographic coordinates.

##################use address to get long/lat info################
kinder <- read.csv(url("https://github.com/amy17519/NYCPre-KGuide/blob/master/Universal_Pre-K__UPK__School_Locations.csv"), 
                   stringsAsFactors=FALSE)

######paste zipcodes to all addresses to increase accuracy of locating
kinder$address<- paste(kinder$address,kinder$zip)
geo<-geocode(kinder$address) #use geocode from ggmap package to get longtitude/latitude coordinates
geo<-geo[,c(2,1)]   #change col order of long and lat to match convention 

#Find abnormal locations using longitude/latitude boundaries of NYC
#Northernmost pt:40.916541, -73.906637
#Southernmost pt:40.525095, -74.246319
#Easternmost pt:40.722813, -73.688498
#Westernmost pt:40.510940, -74.253454
#####there are 18 suspicious locations that might not be in NYC
index<-which(geo$lat>=40.916541 | geo$lat<= 40.525095 |
             geo$lon>=-73.688498 | geo$lon<= -74.253454)

Pre-K Map – Leaflet Map

Having correct geographic coordinates ready, I proceeded to create a Leaflet(an R mapping package) map for pre-K locations. The goal was to create a user-friendly map for parents to smoothly browse preschool locations near home and visualize available seats at each location. I used clusterOptions=markerClusterOptions() to group locations so users can visualize which neighborhoods have a high density of preschools. The radius of each circle is normalized by the seat availability, hence pre-Ks with more seats are marked by larges bubbles and vice versa. Also, the colors of bubbles help visualize school types.

In order to increase efficiency, I used observe() function to draw bubbles/locations whenever the user selects new search criteria. This function prevents Leaflet from having to redraw the entire map, which enhances user experience and webpage efficiency.

mapInput <- eventReactive(input$go,{
    newkid<-kid[kid$Borough %in% input$borough & 
                kid$Type %in% input$type & 
                kid$Length %in% input$length,]
    newkid
    })
 
 output$map <- renderLeaflet({
    leaflet(kid) %>%
      addProviderTiles("CartoDB.Positron") %>%
      setView(-73.951801,40.702988, zoom = 11) %>%
      addCircleMarkers(~lon, ~lat, radius=~Seats/3, clusterOptions = markerClusterOptions(),
                        fillColor=~pal(Type),fillOpacity=0.7, stroke=FALSE,
                        popup=~paste('<b><font color="Green">',Name,'</font></b><br/>','Address:',Address,'<br/>','Seats:',Seats,'<br/>','Tel:',
                                     Phone,'<br/>','Email:',Email,'<br/>','URL: <a target="_blank" target="_blank" href=', Website, ">Offical Website</a>")) %>%
       addLegend("bottomright", pal = pal, values = ~kid$Type,
                 title = "Pre-K Type", opacity = 0.8)
      })
    
    observe({
      leafletProxy("map", data = mapInput()) %>%
      clearMarkerClusters() %>%
      addCircleMarkers(~lon, ~lat,radius=~Seats/3, clusterOptions = markerClusterOptions(),
                       fillColor=~pal(Type),fillOpacity=0.7,stroke=FALSE, 
                       popup=~paste('<b><font color="Green">',Name,'</font></b><br/>','Address:',Address,'<br/>','Seats:',Seats,'<br/>','Tel:',
                                    Phone,'<br/>','Email:',Email,'<br/>','URL: <a target="_blank" target="_blank" href=', Website, ">Offical Website</a>"))})

navbarPage("Pre-K Search in NYC", id='nav',
                       tabPanel("Pre-K Map",fluidPage(div(class="outer", 
                         leafletOutput("map",width = "100%",height=650),
                         absolutePanel(h4("Pre-K Finder"),id = "controls", class = "panel", fixed = TRUE,
                                       draggable = TRUE, top =80, left = 130, right = "auto", bottom = "auto",
                                       width = 180, height = "auto",
                                       checkboxGroupInput("borough", h5("Borough:"),
                                                          c('Bronx' = "Bronx",'Brooklyn' = "Brooklyn",
                                                            'Manhattan' = "Manhattan",'Staten Island' = "Staten Island",
                                                            'Queens' = "Queens"),selected=c('Bronx','Brooklyn',
                                                                                 'Manhattan','Staten Island',
                                                                                 'Queens')),
                                       checkboxGroupInput("type", h5("School Type:"),c('Charter'="Charter",
                                                                                       'DOE'="DOE",
                                                                                       'NYCEEC'='NYCEEC'),
                                                          selected=c("Charter","DOE","NYCEEC")),
                                       checkboxGroupInput("length", h5("Day Length:"),c("5-Hour" = "5-Hour" ,
                                                                                        "Full Day" = "Full Day",
                                                                                        "Full Day/5-Hour" = "Both Half Day and 5-Hour",
                                                                                        "Full/Half Day"= "Both Full and Half Day",
                                                                                        "Half Day/5-Hour"="Both Half Day and 5-Hour"),
                                                          selected=c("5-Hour" ,"Full Day","Both Half Day and 5-Hour",
                                                                     "Both Full and Half Day", "Both Half Day and 5-Hour")),
                                       actionButton("go", "Click to find"),
                                       helpText("Click on Pre-K Catalog on top for more detailed info")

This is how the Pre-K map looks on the Shiny App.

Pre-K Catalog – Data Table

Pre-K Catalog provides a searchable directory for parents to browse available locations. Users can simply search for criteria that are important to them and filter out the most suitable pre-K locations near home.

output$table <- renderDataTable(kidtable,
                                  options=list(aLengthMenu = c(15,25,50), 
                                               iDisplayLength = 15,
                                               columnDefs = list(list(width = '160px', targets = c(10,11)),
                                                                 list(width = '120px', targets = c(4,5)),
                                                                 list(width = '200px', targets = 3))))

barInput <- reactive({
    newboroughkid<-boroughkid[,c("Borough",input$yvar)]
    newboroughkid<-newboroughkid[newboroughkid$Borough %in% input$boroughbar,]
    newboroughkid
  })
  
  output$bar <- renderGvis({
    gvisColumnChart(barInput(),options = list(title="Are There Enough Seats at Pre-Kindergartens",hAxes="[{title:'Borough',
                                             titleTextStyle: {color:'blue'}}]"
                                              , vAxes="[{title:'Number of Eligible Kids', 
                                              titleTextStyle: {color: 'blue'}}]",
                                              width=800,height=500,gvis.editor="Customize this graph!"))

                       tabPanel("Pre-K Statistics",fluidPage(
                         sidebarPanel(width =3,
                           checkboxGroupInput("boroughbar", h4("Borough:"),
                                              c('All Boroughs'="All Boroughs",'Bronx' = "Bronx",'Brooklyn' = "Brooklyn",
                                                'Manhattan' = "Manhattan",'Staten Island' = "Staten Island",
                                                'Queens' = "Queens"),selected=c('Bronx','Brooklyn','Manhattan',
                                                                                'Staten Island','Queens')),
                           checkboxGroupInput("yvar", h4("Attribute:"),c('Total Seats Available'="Seat Avalibility",
                                                                         'Est. Number of Kids in 2014'="2014 Estimate",
                                                                         'Number of Kids 2010 Census'="2010 Census"),
                                              selected= c("Seat Avalibility","2014 Estimate","2010 Census")
                           )

The original article can be found here.

You may also explore this project via Pre-K Explorer on Shiny and R Codes on Github.