library(tidyverse)
library(httr)
library(jsonlite)
library(tmap)
state <- "ga"
url_1 <- "https://api.schooldigger.com/v1.1/schools?st="
url_2 <- "&zip="
url_3 <- "&perPage=50"
# Number of schools to retrieve on a page (50 max) (optional, default: 10)
# url_4 is now shown here b/c it contains my app id and API key
zip <- 30306
url_fin <- paste0(url_1, state, url_2, zip, url_3, url_4)
# don't waste my daily query limit
# test30305 <- httr::GET(url = url_fin, user_agent("my username is yleephd - this is a test"))
# httr::content(test)
# httr::http_type(test)
# writeLines(httr::content(test, as = "text")) # converting the content of the response to a json format
test30305b <- jsonlite::fromJSON(httr::content(test30305, as = "text")) # converting contents in a json format to a list
str(test30305b, max.level = 1)
str(test30305b$schoolList, max.level = 1)
names(test30305b$schoolList)
## [1] "schoolid" "schoolName"
## [3] "phone" "url"
## [5] "urlCompare" "address"
## [7] "lowGrade" "highGrade"
## [9] "schoolLevel" "isCharterSchool"
## [11] "isMagnetSchool" "isVirtualSchool"
## [13] "isTitleISchool" "isTitleISchoolwideSchool"
## [15] "district" "county"
## [17] "rankHistory" "rankMovement"
## [19] "locationIsWithinBoundary" "schoolYearlyDetails"
## [21] "isPrivate" "privateDays"
## [23] "privateHours" "privateHasLibrary"
## [25] "privateCoed" "privateOrientation"
## [27] "hasBoundary"
test30305b$schoolList[, 2] # school names for all 7 obervations
## [1] "Atlanta Classical Academy" "Atlanta International School"
## [3] "Christ The King School" "Garden Hills Elementary School"
## [5] "Rivers Elementary School" "Sutton Middle School"
## [7] "The Cathedral Preschool"
test30305b$schoolList[5, ] # 27 variables for the fifth obs
## schoolid schoolName phone
## 5 130012000036 Rivers Elementary School (404) 802-7050
## url
## 5 https://www.schooldigger.com/go/GA/schools/0012000036/school.aspx
## urlCompare
## 5 https://www.schooldigger.com/go/GA/schools/0012000036/search.aspx
## address.latLong.latitude address.latLong.longitude
## 5 33.81951 -84.39004
## address.street address.city address.state address.stateFull
## 5 8 Peachtree Battle Ave NW Atlanta GA Georgia
## address.zip address.zip4
## 5 30305
## address.cityURL
## 5 https://www.schooldigger.com/go/GA/city/Atlanta/search.aspx
## address.zipURL
## 5 https://www.schooldigger.com/go/GA/zip/30305/search.aspx
## address.html lowGrade highGrade
## 5 8 Peachtree Battle Ave NW<br />Atlanta, GA 30305 PK 5
## schoolLevel isCharterSchool isMagnetSchool isVirtualSchool
## 5 Elementary No No No
## isTitleISchool isTitleISchoolwideSchool district.districtID
## 5 Yes No 1300120
## district.districtName
## 5 Atlanta Public Schools
## district.url
## 5 https://www.schooldigger.com/go/GA/district/00120/search.aspx
## district.rankURL
## 5 https://www.schooldigger.com/go/GA/districtrank.aspx?finddistrict=00120
## county.countyName
## 5 Fulton
## county.countyURL
## 5 https://www.schooldigger.com/go/GA/county/Fulton/search.aspx
## rankHistory
## 5 2018, 2017, 352, 311, 1209, 1205, 4, 4, Elementary, Elementary, 70.89, 74.19, 67.54827, 69.88503
## rankMovement locationIsWithinBoundary
## 5 -41 NA
## schoolYearlyDetails
## 5 2017.00, 2016.00, 795.00, 748.00, 32.20, 34.89, 25.91, 27.14, 5.41, 6.15, 20.00, 20.72, 1.38, 0.80, 0.25, 0.53, 43.77, 41.18, 3.27, 3.48, NA, NA, 53.00, 54.00, 15.00, 13.80, 206.00, 203.00, 43.00, 46.00, 159.00, 155.00, 11.00, 6.00, 2.00, 4.00, 348.00, 308.00, 26.00, 26.00, NA, NA
## isPrivate privateDays privateHours privateHasLibrary privateCoed
## 5 FALSE NA NA NA <NA>
## privateOrientation hasBoundary
## 5 <NA> TRUE
test30305b$schoolList[, map_lgl(test30305b$schoolList, is.atomic) == TRUE]
test30305b$schoolList[, map_lgl(test30305b$schoolList, is.atomic) == FALSE]
test30305b$schoolList$rankHistory
## [[1]]
## NULL
##
## [[2]]
## NULL
##
## [[3]]
## NULL
##
## [[4]]
## year rank rankOf rankStars rankLevel rankStatewidePercentage
## 1 2018 469 1209 3 Elementary 61.21
## 2 2017 555 1205 3 Elementary 53.94
## averageStandardScore
## 1 56.97765
## 2 49.76720
##
## [[5]]
## year rank rankOf rankStars rankLevel rankStatewidePercentage
## 1 2018 352 1209 4 Elementary 70.89
## 2 2017 311 1205 4 Elementary 74.19
## averageStandardScore
## 1 67.54827
## 2 69.88503
##
## [[6]]
## year rank rankOf rankStars rankLevel rankStatewidePercentage
## 1 2018 82 543 4 Middle 84.90
## 2 2017 96 539 4 Middle 82.19
## averageStandardScore
## 1 82.47762
## 2 79.49210
##
## [[7]]
## NULL
test30305b$schoolList$schoolYearlyDetails
## [[1]]
## year numberOfStudents percentFreeDiscLunch
## 1 2017 592 NA
## 2 2016 537 0.56
## percentofAfricanAmericanStudents percentofAsianStudents
## 1 8.45 2.53
## 2 8.01 1.86
## percentofHispanicStudents percentofIndianStudents
## 1 9.12 0.17
## 2 10.43 0.19
## percentofPacificIslanderStudents percentofWhiteStudents
## 1 0 77.53
## 2 0 77.65
## percentofTwoOrMoreRaceStudents percentofUnspecifiedRaceStudents
## 1 2.20 NA
## 2 1.86 NA
## teachersFulltime pupilTeacherRatio numberofAfricanAmericanStudents
## 1 46 12.8 50
## 2 40 13.4 43
## numberofAsianStudents numberofHispanicStudents numberofIndianStudents
## 1 15 54 1
## 2 10 56 1
## numberofPacificIslanderStudents numberofWhiteStudents
## 1 0 459
## 2 0 417
## numberofTwoOrMoreRaceStudents numberofUnspecifiedRaceStudents
## 1 13 NA
## 2 10 NA
##
## [[2]]
## year numberOfStudents percentFreeDiscLunch
## 1 2016 1168 NA
## 2 2014 1176 NA
## percentofAfricanAmericanStudents percentofAsianStudents
## 1 4.02 11.73
## 2 4.25 12.33
## percentofHispanicStudents percentofIndianStudents
## 1 3.60 0.09
## 2 3.74 0.09
## percentofPacificIslanderStudents percentofWhiteStudents
## 1 0 67.89
## 2 0 71.09
## percentofTwoOrMoreRaceStudents percentofUnspecifiedRaceStudents
## 1 3.00 NA
## 2 3.15 NA
## teachersFulltime pupilTeacherRatio numberofAfricanAmericanStudents
## 1 165 6.3 47
## 2 174 6.4 50
## numberofAsianStudents numberofHispanicStudents numberofIndianStudents
## 1 137 42 1
## 2 145 44 1
## numberofPacificIslanderStudents numberofWhiteStudents
## 1 0 793
## 2 0 836
## numberofTwoOrMoreRaceStudents numberofUnspecifiedRaceStudents
## 1 35 NA
## 2 37 NA
##
## [[3]]
## year numberOfStudents percentFreeDiscLunch
## 1 2016 565 NA
## 2 2014 556 NA
## percentofAfricanAmericanStudents percentofAsianStudents
## 1 1.42 2.12
## 2 1.44 1.62
## percentofHispanicStudents percentofIndianStudents
## 1 8.67 0
## 2 8.81 0
## percentofPacificIslanderStudents percentofWhiteStudents
## 1 0 84.78
## 2 0 85.97
## percentofTwoOrMoreRaceStudents percentofUnspecifiedRaceStudents
## 1 3.01 NA
## 2 2.16 NA
## teachersFulltime pupilTeacherRatio numberofAfricanAmericanStudents
## 1 36.0 15.6 8
## 2 39.5 14.0 8
## numberofAsianStudents numberofHispanicStudents numberofIndianStudents
## 1 12 49 0
## 2 9 49 0
## numberofPacificIslanderStudents numberofWhiteStudents
## 1 0 479
## 2 0 478
## numberofTwoOrMoreRaceStudents numberofUnspecifiedRaceStudents
## 1 17 NA
## 2 12 NA
##
## [[4]]
## year numberOfStudents percentFreeDiscLunch
## 1 2017 516 61.43
## 2 2016 488 64.34
## percentofAfricanAmericanStudents percentofAsianStudents
## 1 17.83 3.88
## 2 18.03 3.48
## percentofHispanicStudents percentofIndianStudents
## 1 54.26 0.19
## 2 55.94 0.00
## percentofPacificIslanderStudents percentofWhiteStudents
## 1 0 19.77
## 2 0 19.67
## percentofTwoOrMoreRaceStudents percentofUnspecifiedRaceStudents
## 1 4.07 NA
## 2 2.87 NA
## teachersFulltime pupilTeacherRatio numberofAfricanAmericanStudents
## 1 40 12.9 92
## 2 41 11.9 88
## numberofAsianStudents numberofHispanicStudents numberofIndianStudents
## 1 20 280 1
## 2 17 273 0
## numberofPacificIslanderStudents numberofWhiteStudents
## 1 0 102
## 2 0 96
## numberofTwoOrMoreRaceStudents numberofUnspecifiedRaceStudents
## 1 21 NA
## 2 14 NA
##
## [[5]]
## year numberOfStudents percentFreeDiscLunch
## 1 2017 795 32.20
## 2 2016 748 34.89
## percentofAfricanAmericanStudents percentofAsianStudents
## 1 25.91 5.41
## 2 27.14 6.15
## percentofHispanicStudents percentofIndianStudents
## 1 20.00 1.38
## 2 20.72 0.80
## percentofPacificIslanderStudents percentofWhiteStudents
## 1 0.25 43.77
## 2 0.53 41.18
## percentofTwoOrMoreRaceStudents percentofUnspecifiedRaceStudents
## 1 3.27 NA
## 2 3.48 NA
## teachersFulltime pupilTeacherRatio numberofAfricanAmericanStudents
## 1 53 15.0 206
## 2 54 13.8 203
## numberofAsianStudents numberofHispanicStudents numberofIndianStudents
## 1 43 159 11
## 2 46 155 6
## numberofPacificIslanderStudents numberofWhiteStudents
## 1 2 348
## 2 4 308
## numberofTwoOrMoreRaceStudents numberofUnspecifiedRaceStudents
## 1 26 NA
## 2 26 NA
##
## [[6]]
## year numberOfStudents percentFreeDiscLunch
## 1 2017 1530 35.69
## 2 2016 1489 40.03
## percentofAfricanAmericanStudents percentofAsianStudents
## 1 28.43 2.94
## 2 29.75 2.69
## percentofHispanicStudents percentofIndianStudents
## 1 26.21 0.39
## 2 26.46 0.13
## percentofPacificIslanderStudents percentofWhiteStudents
## 1 0.07 39.02
## 2 0.07 37.21
## percentofTwoOrMoreRaceStudents percentofUnspecifiedRaceStudents
## 1 2.94 NA
## 2 3.69 NA
## teachersFulltime pupilTeacherRatio numberofAfricanAmericanStudents
## 1 99.7 15.3 435
## 2 93.0 16.0 443
## numberofAsianStudents numberofHispanicStudents numberofIndianStudents
## 1 45 401 6
## 2 40 394 2
## numberofPacificIslanderStudents numberofWhiteStudents
## 1 1 597
## 2 1 554
## numberofTwoOrMoreRaceStudents numberofUnspecifiedRaceStudents
## 1 45 NA
## 2 55 NA
##
## [[7]]
## year numberOfStudents percentFreeDiscLunch
## 1 2016 200 NA
## 2 2014 200 NA
## percentofAfricanAmericanStudents percentofAsianStudents
## 1 0 0.5
## 2 0 0.0
## percentofHispanicStudents percentofIndianStudents
## 1 0 0
## 2 0 0
## percentofPacificIslanderStudents percentofWhiteStudents
## 1 0 12
## 2 0 12
## percentofTwoOrMoreRaceStudents percentofUnspecifiedRaceStudents
## 1 0 NA
## 2 0 NA
## teachersFulltime pupilTeacherRatio numberofAfricanAmericanStudents
## 1 5.1 4.9 0
## 2 2.5 9.6 0
## numberofAsianStudents numberofHispanicStudents numberofIndianStudents
## 1 1 0 0
## 2 0 0 0
## numberofPacificIslanderStudents numberofWhiteStudents
## 1 0 24
## 2 0 24
## numberofTwoOrMoreRaceStudents numberofUnspecifiedRaceStudents
## 1 0 NA
## 2 0 NA
zip <- 30306
url_fin <- paste0(url_1, state, url_2, zip, url_3, url_4)
# don't waste my daily query limit
# test30306 <- httr::GET(url = url_fin, user_agent("my username is yleephd - this is a test"))
test30306b <- jsonlite::fromJSON(httr::content(test30306, as = "text")) # converting contents in a json format to a list
str(test30306b, max.level = 1)
str(test30306b$schoolList, max.level = 1)
names(test30306b$schoolList)
## [1] "schoolid" "schoolName"
## [3] "phone" "url"
## [5] "urlCompare" "address"
## [7] "lowGrade" "highGrade"
## [9] "schoolLevel" "isCharterSchool"
## [11] "isMagnetSchool" "isVirtualSchool"
## [13] "isTitleISchool" "isTitleISchoolwideSchool"
## [15] "district" "county"
## [17] "rankHistory" "rankMovement"
## [19] "locationIsWithinBoundary" "schoolYearlyDetails"
## [21] "isPrivate" "privateDays"
## [23] "privateHours" "privateHasLibrary"
## [25] "privateCoed" "privateOrientation"
## [27] "hasBoundary"
test30306b$schoolList[, 2] # school names for all 6 obervations
## [1] "Hillside Conant School"
## [2] "Inman Middle School"
## [3] "Montessori In Town"
## [4] "Morningside Elementary School"
## [5] "Springdale Park Elementary School"
## [6] "Union High School of Laurel Heights"
test30306b$schoolList[4, ] # 27 variables for the fourth obs - Morningside
## schoolid schoolName phone
## 4 130012000130 Morningside Elementary School (404) 802-8950
## url
## 4 https://www.schooldigger.com/go/GA/schools/0012000130/school.aspx
## urlCompare
## 4 https://www.schooldigger.com/go/GA/schools/0012000130/search.aspx
## address.latLong.latitude address.latLong.longitude
## 4 33.79713 -84.35277
## address.street address.city address.state address.stateFull
## 4 1053 E Rock Springs Rd NE Atlanta GA Georgia
## address.zip address.zip4
## 4 30306
## address.cityURL
## 4 https://www.schooldigger.com/go/GA/city/Atlanta/search.aspx
## address.zipURL
## 4 https://www.schooldigger.com/go/GA/zip/30306/search.aspx
## address.html lowGrade highGrade
## 4 1053 E Rock Springs Rd NE<br />Atlanta, GA 30306 K 5
## schoolLevel isCharterSchool isMagnetSchool isVirtualSchool
## 4 Elementary No No No
## isTitleISchool isTitleISchoolwideSchool district.districtID
## 4 No No 1300120
## district.districtName
## 4 Atlanta Public Schools
## district.url
## 4 https://www.schooldigger.com/go/GA/district/00120/search.aspx
## district.rankURL
## 4 https://www.schooldigger.com/go/GA/districtrank.aspx?finddistrict=00120
## county.countyName
## 4 Fulton
## county.countyURL
## 4 https://www.schooldigger.com/go/GA/county/Fulton/search.aspx
## rankHistory
## 4 2018, 2017, 26, 42, 1209, 1205, 5, 5, Elementary, Elementary, 97.85, 96.51, 97.51331, 96.32543
## rankMovement locationIsWithinBoundary
## 4 16 NA
## schoolYearlyDetails
## 4 2017.00, 2016.00, 887.00, 816.00, 9.81, 9.68, 11.05, 11.27, 6.43, 5.51, 8.91, 5.15, 0.00, 0.00, 0.00, 0.00, 65.84, 70.47, 7.78, 7.60, NA, NA, 53.80, 52.00, 16.40, 15.60, 98.00, 92.00, 57.00, 45.00, 79.00, 42.00, 0.00, 0.00, 0.00, 0.00, 584.00, 575.00, 69.00, 62.00, NA, NA
## isPrivate privateDays privateHours privateHasLibrary privateCoed
## 4 FALSE NA NA NA <NA>
## privateOrientation hasBoundary
## 4 <NA> TRUE
test30306b$schoolList$rankHistory[[4]] # Morningside
## year rank rankOf rankStars rankLevel rankStatewidePercentage
## 1 2018 26 1209 5 Elementary 97.85
## 2 2017 42 1205 5 Elementary 96.51
## averageStandardScore
## 1 97.51331
## 2 96.32543
test30306b$schoolList$schoolYearlyDetails[[4]] # only the recent two years are shown
## year numberOfStudents percentFreeDiscLunch
## 1 2017 887 9.81
## 2 2016 816 9.68
## percentofAfricanAmericanStudents percentofAsianStudents
## 1 11.05 6.43
## 2 11.27 5.51
## percentofHispanicStudents percentofIndianStudents
## 1 8.91 0
## 2 5.15 0
## percentofPacificIslanderStudents percentofWhiteStudents
## 1 0 65.84
## 2 0 70.47
## percentofTwoOrMoreRaceStudents percentofUnspecifiedRaceStudents
## 1 7.78 NA
## 2 7.60 NA
## teachersFulltime pupilTeacherRatio numberofAfricanAmericanStudents
## 1 53.8 16.4 98
## 2 52.0 15.6 92
## numberofAsianStudents numberofHispanicStudents numberofIndianStudents
## 1 57 79 0
## 2 45 42 0
## numberofPacificIslanderStudents numberofWhiteStudents
## 1 0 584
## 2 0 575
## numberofTwoOrMoreRaceStudents numberofUnspecifiedRaceStudents
## 1 69 NA
## 2 62 NA
morningside_id <- test30306b$schoolList$schoolid[4] # school id of Morningside
url_1 <- "https://api.schooldigger.com/v1.1/schools/"
url_fin <- paste0(url_1, morningside_id, url_2)
# don't waste my daily query limit
morningside_get <- httr::GET(url = url_fin, user_agent("my username is yleephd - this is a test"))
morningside_r <- jsonlite::fromJSON(httr::content(morningside_get, as = "text")) # converting contents in a json format to a list
names(morningside_r)
## [1] "schoolid" "schoolName"
## [3] "phone" "url"
## [5] "urlCompare" "address"
## [7] "locale" "lowGrade"
## [9] "highGrade" "schoolLevel"
## [11] "isCharterSchool" "isMagnetSchool"
## [13] "isVirtualSchool" "isTitleISchool"
## [15] "isTitleISchoolwideSchool" "isPrivate"
## [17] "privateDays" "privateHours"
## [19] "privateHasLibrary" "privateCoed"
## [21] "privateOrientation" "boundary"
## [23] "district" "county"
## [25] "reviews" "rankHistory"
## [27] "rankMovement" "testScores"
## [29] "schoolYearlyDetails"
str(morningside_r, max.level = 1)
## List of 29
## $ schoolid : chr "130012000130"
## $ schoolName : chr "Morningside Elementary School"
## $ phone : chr "(404) 802-8950"
## $ url : chr "https://www.schooldigger.com/go/GA/schools/0012000130/school.aspx"
## $ urlCompare : chr "https://www.schooldigger.com/go/GA/schools/0012000130/search.aspx"
## $ address :List of 10
## $ locale : chr "City: Large"
## $ lowGrade : chr "K"
## $ highGrade : chr "5"
## $ schoolLevel : chr "Elementary"
## $ isCharterSchool : chr "No"
## $ isMagnetSchool : chr "No"
## $ isVirtualSchool : chr "No"
## $ isTitleISchool : chr "No"
## $ isTitleISchoolwideSchool: chr "No"
## $ isPrivate : logi FALSE
## $ privateDays : NULL
## $ privateHours : NULL
## $ privateHasLibrary : NULL
## $ privateCoed : NULL
## $ privateOrientation : NULL
## $ boundary :List of 2
## $ district :List of 4
## $ county :List of 2
## $ reviews :'data.frame': 2 obs. of 4 variables:
## $ rankHistory :'data.frame': 13 obs. of 7 variables:
## $ rankMovement : int 16
## $ testScores :'data.frame': 205 obs. of 7 variables:
## $ schoolYearlyDetails :'data.frame': 28 obs. of 21 variables:
morningside_r$rankHistory
## year rank rankOf rankStars rankLevel rankStatewidePercentage
## 1 2018 26 1209 5 Elementary 97.85
## 2 2017 42 1205 5 Elementary 96.51
## 3 2016 15 1233 5 Elementary 98.78
## 4 2015 10 1240 5 Elementary 99.19
## 5 2014 12 1231 5 Elementary 99.03
## 6 2013 14 1225 5 Elementary 98.86
## 7 2012 79 1201 5 Elementary 93.42
## 8 2011 45 1212 5 Elementary 96.29
## 9 2010 75 1183 5 Elementary 93.66
## 10 2009 59 1133 5 Elementary 94.79
## 11 2008 86 1134 5 Elementary 92.42
## 12 2007 82 1125 5 Elementary 92.71
## 13 2006 41 1101 5 Elementary 96.28
## averageStandardScore
## 1 97.51331
## 2 96.32543
## 3 98.66125
## 4 99.11533
## 5 87.61107
## 6 87.68633
## 7 85.65713
## 8 87.90273
## 9 86.96040
## 10 88.95967
## 11 86.51560
## 12 86.94073
## 13 88.62013
morningside_r$rankMovement # showing only the change in rank in the last two years
## [1] 16
str(morningside_r$testScores)
## 'data.frame': 205 obs. of 7 variables:
## $ test : chr "CRCT" "CRCT" "CRCT" "CRCT" ...
## $ subject : chr "Reading" "Reading" "Reading" "Reading" ...
## $ year : int 2006 2007 2008 2009 2010 2006 2007 2008 2009 2010 ...
## $ grade : chr "1" "1" "1" "1" ...
## $ schoolTestScore :'data.frame': 205 obs. of 7 variables:
## ..$ percentMetStandard: num 96.1 97.8 95 95.6 98.4 97.1 95.2 97.6 96.1 98.4 ...
## ..$ percentTier1 : num 3.9 2.2 5 4.4 1.6 2.8 4.8 2.4 3.9 1.6 ...
## ..$ percentTier2 : num 27.3 16.1 25 23.1 24.8 23.2 18.5 21.7 18.2 20.6 ...
## ..$ percentTier3 : num 68.8 81.7 70 72.5 73.6 73.9 76.7 75.9 77.9 77.8 ...
## ..$ studentsTested : int NA NA NA NA NA NA NA NA NA NA ...
## ..$ meanScaledScore : num NA NA NA NA NA NA NA NA NA NA ...
## ..$ percentTier4 : num NA NA NA NA NA NA NA NA NA NA ...
## $ districtTestScore:'data.frame': 205 obs. of 7 variables:
## ..$ percentMetStandard: num 86.8 89.3 88.7 90.1 89.2 84.5 88.8 89.5 89.4 86.1 ...
## ..$ percentTier1 : num 13.3 10.7 11.3 10 10.8 15.5 11.3 10.5 10.6 14 ...
## ..$ percentTier2 : num 52.7 52.8 50.8 48.6 52.3 49.2 46.4 51.7 43.6 54 ...
## ..$ percentTier3 : num 34.1 36.5 37.9 41.5 36.9 35.3 42.4 37.8 45.8 32.1 ...
## ..$ studentsTested : int NA NA NA NA NA NA NA NA NA NA ...
## ..$ meanScaledScore : num NA NA NA NA NA NA NA NA NA NA ...
## ..$ percentTier4 : num NA NA NA NA NA NA NA NA NA NA ...
## $ stateTestScore :'data.frame': 205 obs. of 7 variables:
## ..$ percentMetStandard: num 87 90.1 90.3 90.9 93 89 91.3 92 91.9 91 ...
## ..$ percentTier1 : num 12 9.9 9.7 9.1 8 11 8.7 8 8.1 9 ...
## ..$ percentTier2 : num 53 52.2 51.6 49.9 51 50 43.4 52.6 44.2 51 ...
## ..$ percentTier3 : num 34 37.9 38.7 41 42 39 47.9 39.4 47.7 40 ...
## ..$ studentsTested : int NA NA NA NA NA NA NA NA NA NA ...
## ..$ meanScaledScore : num NA NA NA NA NA NA NA NA NA NA ...
## ..$ percentTier4 : num NA NA NA NA NA NA NA NA NA NA ...
str(morningside_r$schoolYearlyDetails)
## 'data.frame': 28 obs. of 21 variables:
## $ year : int 2017 2016 2015 2014 2013 2012 2011 2010 2009 2008 ...
## $ numberOfStudents : int 887 816 827 799 806 769 743 772 972 950 ...
## $ percentFreeDiscLunch : num 9.8 9.7 8.1 7.9 7.8 8.1 9 8 14 12.3 ...
## $ percentofAfricanAmericanStudents: num 11.05 11.27 9.92 9.76 11.54 ...
## $ percentofAsianStudents : num 6.43 5.51 5.56 5.13 3.1 3.51 2.83 3.76 4.01 3.05 ...
## $ percentofHispanicStudents : num 8.91 5.15 5.56 4.13 3.72 3.25 2.29 1.81 3.7 3.89 ...
## $ percentofIndianStudents : num 0 0 0.12 0.13 0.25 0.13 0 0 0.21 0.32 ...
## $ percentofPacificIslanderStudents: num 0 0 0 0 0 0 0 0 NA NA ...
## $ percentofWhiteStudents : num 65.8 70.5 72.2 74.3 74.6 ...
## $ percentofTwoOrMoreRaceStudents : num 7.78 7.6 6.65 6.51 6.82 5.33 6.06 6.09 NA NA ...
## $ percentofUnspecifiedRaceStudents: num 0 0 0 0 0 0 0 0 6.38 6.11 ...
## $ teachersFulltime : num 53.8 52 53 52 52 50 56 63 79 79.5 ...
## $ pupilTeacherRatio : num 16.4 15.6 15.6 15.3 15.5 15.3 13.2 12.2 12.3 11.9 ...
## $ numberofAfricanAmericanStudents : int 98 92 82 78 93 99 103 107 130 129 ...
## $ numberofAsianStudents : int 57 45 46 41 25 27 21 29 39 29 ...
## $ numberofHispanicStudents : int 79 42 46 33 30 25 17 14 36 37 ...
## $ numberofIndianStudents : int 0 0 1 1 2 1 0 0 2 3 ...
## $ numberofPacificIslanderStudents : int 0 0 0 0 0 0 0 0 NA NA ...
## $ numberofWhiteStudents : int 584 575 597 594 601 576 557 575 703 694 ...
## $ numberofTwoOrMoreRaceStudents : int 69 62 55 52 55 41 45 47 NA NA ...
## $ numberofUnspecifiedRaceStudents : int 0 0 0 0 0 0 0 0 62 58 ...
morningside_r$schoolYearlyDetails$year
## [1] 2017 2016 2015 2014 2013 2012 2011 2010 2009 2008 2007 2006 2005 2004
## [15] 2003 2002 2001 2000 1999 1998 1997 1996 1995 1994 1993 1992 1991 1989
names(morningside_r$schoolYearlyDetails)
## [1] "year" "numberOfStudents"
## [3] "percentFreeDiscLunch" "percentofAfricanAmericanStudents"
## [5] "percentofAsianStudents" "percentofHispanicStudents"
## [7] "percentofIndianStudents" "percentofPacificIslanderStudents"
## [9] "percentofWhiteStudents" "percentofTwoOrMoreRaceStudents"
## [11] "percentofUnspecifiedRaceStudents" "teachersFulltime"
## [13] "pupilTeacherRatio" "numberofAfricanAmericanStudents"
## [15] "numberofAsianStudents" "numberofHispanicStudents"
## [17] "numberofIndianStudents" "numberofPacificIslanderStudents"
## [19] "numberofWhiteStudents" "numberofTwoOrMoreRaceStudents"
## [21] "numberofUnspecifiedRaceStudents"
morningside_r$schoolYearlyDetails[1:5, ]
## year numberOfStudents percentFreeDiscLunch
## 1 2017 887 9.8
## 2 2016 816 9.7
## 3 2015 827 8.1
## 4 2014 799 7.9
## 5 2013 806 7.8
## percentofAfricanAmericanStudents percentofAsianStudents
## 1 11.05 6.43
## 2 11.27 5.51
## 3 9.92 5.56
## 4 9.76 5.13
## 5 11.54 3.10
## percentofHispanicStudents percentofIndianStudents
## 1 8.91 0.00
## 2 5.15 0.00
## 3 5.56 0.12
## 4 4.13 0.13
## 5 3.72 0.25
## percentofPacificIslanderStudents percentofWhiteStudents
## 1 0 65.84
## 2 0 70.47
## 3 0 72.19
## 4 0 74.34
## 5 0 74.57
## percentofTwoOrMoreRaceStudents percentofUnspecifiedRaceStudents
## 1 7.78 0
## 2 7.60 0
## 3 6.65 0
## 4 6.51 0
## 5 6.82 0
## teachersFulltime pupilTeacherRatio numberofAfricanAmericanStudents
## 1 53.8 16.4 98
## 2 52.0 15.6 92
## 3 53.0 15.6 82
## 4 52.0 15.3 78
## 5 52.0 15.5 93
## numberofAsianStudents numberofHispanicStudents numberofIndianStudents
## 1 57 79 0
## 2 45 42 0
## 3 46 46 1
## 4 41 33 1
## 5 25 30 2
## numberofPacificIslanderStudents numberofWhiteStudents
## 1 0 584
## 2 0 575
## 3 0 597
## 4 0 594
## 5 0 601
## numberofTwoOrMoreRaceStudents numberofUnspecifiedRaceStudents
## 1 69 0
## 2 62 0
## 3 55 0
## 4 52 0
## 5 55 0