# NOT RUN {
library(dplyr)
df_drafts <-
get_drafts(draft_years = 1983:2018, nest_data = FALSE, return_message = TRUE)
## Where do top 5 picks since 1983 come from?
df_drafts %>%
filter(numberPickOverall <= 5) %>%
count(nameOrganizationFrom, sort = T)
# }
Run the code above in your browser using DataLab