/
README.Rmd
43 lines (38 loc) · 1.6 KB
/
README.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
---
title: "colleges"
output:
github_document:
html_preview: true
---
[![Travis-CI Build Status](https://travis-ci.org/beanumber/colleges.svg?branch=master)](https://travis-ci.org/beanumber/colleges)
## Data about colleges
```{r, eval=FALSE}
devtools::install_github("beanumber/colleges")
```
```{r, message=FALSE}
library(tidyverse)
library(colleges)
ncaa %>%
group_by(Year) %>%
summarize(N = n(),
num_bball_teams = sum(!is.na(bball_wins)),
num_fball_teams = sum(!is.na(fball_wins)),
num_bball_no_fball = sum(!is.na(bball_wins) & is.na(fball_wins)),
num_fball_no_bball = sum(is.na(bball_wins) & !is.na(fball_wins)),
bball_wins = sum(bball_wins, na.rm = TRUE), bball_losses = sum(bball_losses, na.rm = TRUE),
fball_wins = sum(fball_wins, na.rm = TRUE), fball_losses = sum(fball_losses, na.rm = TRUE),
bball_champs = sum(bb_champs, na.rm = TRUE), fball_champs = sum(fb_champs, na.rm = TRUE),
bb_champs = max(ifelse(bb_champs, school_name, "")),
fb_champs = max(ifelse(fb_champs, school_name, ""), na.rm = TRUE),
enrolled = sum(enrolled, na.rm = TRUE),
admitted = sum(admitted, na.rm = TRUE),
applied = sum(applied, na.rm = TRUE),
act_composite_75 = mean(act_composite_75, na.rm = TRUE),
sat_75 = mean(sat_75_avg, na.rm = TRUE)) %>%
mutate(admit_rate = admitted / applied,
yield = enrolled / admitted)
```
```{r yield, fig.width=8, warning=FALSE}
ggplot(ncaa, aes(x = Year, y = yield, group = school_name)) +
geom_point() + geom_line()
```