# NOT RUN {
require("dplyr")
# How many different schools are listed in each state?
table(Schools$state)
# How many different schools are listed in each country?
table(Schools$country)
# Top 20 schools
schoolInfo <- Schools %>% select(-country)
schoolCount <- CollegePlaying %>%
group_by(schoolID) %>%
summarise(players = length(schoolID)) %>%
left_join(schoolInfo, by = "schoolID") %>%
arrange(desc(players))
head(schoolCount, 20)
# sum counts by state
schoolStates <- schoolCount %>%
group_by(state) %>%
summarise(players = sum(players),
schools = length(state))
str(schoolStates)
summary(schoolStates)
# }
Run the code above in your browser using DataCamp Workspace