-
Notifications
You must be signed in to change notification settings - Fork 2
/
degrees_by_institution.Rmd
118 lines (89 loc) · 2.88 KB
/
degrees_by_institution.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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
---
title: Degrees awarded by institution
output:
html_document:
includes:
in_header: GA_Script.html
---
Note that this can only show a finite set of elements; smaller ones may be dropped.
```{r, echo=FALSE, message=FALSE, warning=FALSE, eval=TRUE}
source("_packages.R")
source("R/functions.R")
all_colleges <- data.frame()
try(load("all_colleges.rda"), silent=TRUE)
if(nrow(all_colleges)>0) {
all_colleges$Name <- rownames(all_colleges)
all_colleges_filtered <- all_colleges[, c("Name", "Associates degrees awarded", "Bachelors degrees awarded", "Masters degrees awarded", "Doctorates awarded")]
for (col_index in sequence(ncol(all_colleges_filtered))) {
if(grepl("awarded", colnames(all_colleges_filtered)[col_index])) {
all_colleges_filtered[,col_index] <- as.numeric(gsub(',', '', all_colleges_filtered[,col_index]))
all_colleges_filtered[is.na(all_colleges_filtered[,col_index]),col_index] <- 0
}
}
all_colleges_filtered$Parent <- ""
}
```
### Associates degrees
```{r, echo=FALSE, message=FALSE, warning=FALSE, eval=TRUE}
if(nrow(all_colleges)>0) {
all_colleges_filtered <- all_colleges_filtered[order(all_colleges_filtered$'Associates degrees awarded', decreasing=TRUE),]
fig <- plot_ly(
type='treemap',
ids=all_colleges_filtered$Name,
labels=all_colleges_filtered$Name,
parents=all_colleges_filtered$Parent,
domain=list(column=0),
values=all_colleges_filtered$'Associates degrees awarded',
maxdepth=2
)
fig
}
```
### Bachelor's degrees
```{r, echo=FALSE, message=FALSE, warning=FALSE, eval=TRUE}
if(nrow(all_colleges)>0) {
all_colleges_filtered <- all_colleges_filtered[order(all_colleges_filtered$'Bachelors degrees awarded', decreasing=TRUE),]
fig <- plot_ly(
type='treemap',
ids=all_colleges_filtered$Name,
labels=all_colleges_filtered$Name,
parents=all_colleges_filtered$Parent,
domain=list(column=0),
values=all_colleges_filtered$'Bachelors degrees awarded',
maxdepth=2
)
fig
}
```
### Masters' degrees
```{r, echo=FALSE, message=FALSE, warning=FALSE, eval=TRUE}
if(nrow(all_colleges)>0) {
all_colleges_filtered <- all_colleges_filtered[order(all_colleges_filtered$'Masters degrees awarded', decreasing=TRUE),]
fig <- plot_ly(
type='treemap',
ids=all_colleges_filtered$Name,
labels=all_colleges_filtered$Name,
parents=all_colleges_filtered$Parent,
domain=list(column=0),
values=all_colleges_filtered$'Masters degrees awarded',
maxdepth=2
)
fig
}
```
### Doctorates
```{r, echo=FALSE, message=FALSE, warning=FALSE, eval=TRUE}
if(nrow(all_colleges)>0) {
all_colleges_filtered <- all_colleges_filtered[order(all_colleges_filtered$'Doctorates awarded', decreasing=TRUE),]
fig <- plot_ly(
type='treemap',
ids=all_colleges_filtered$Name,
labels=all_colleges_filtered$Name,
parents=all_colleges_filtered$Parent,
domain=list(column=0),
values=all_colleges_filtered$'Doctorates awarded',
maxdepth=1
)
fig
}
```