-
Notifications
You must be signed in to change notification settings - Fork 0
/
presentation_visualization.R
112 lines (98 loc) · 3.88 KB
/
presentation_visualization.R
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
library(tidyverse)
library(scales)
library(extrafont)
loadfonts()
theme_bgs <- function(){
theme_bw() +
theme(text = element_text(family = 'Segoe UI'),
plot.title = element_text(face = 'plain', size = 14),
plot.subtitle = element_text(family = 'Segoe UI Semibold'),
panel.border = element_rect(colour = 'grey85'),
panel.grid.minor = element_line(colour = "grey98", size = 0.25),
axis.title = element_text(family = 'Segoe UI Semibold', size = 12),
axis.text = element_text(size = 12),
axis.ticks = element_blank(),
legend.justification = 'top',
legend.title = element_text(family = 'Segoe UI Semibold'),
strip.background = element_rect(fill = 'grey92'),
strip.text = element_text(family = 'Segoe UI Semibold'))
}
theme_set(theme_bgs())
dd <- tibble(
section = c('Background',
'Large\nDonor\nDisruption',
'Unsupervised\nLearning',
'Clustering',
'WFAA Example',
'Wrapping Up'),
time = c(1,
1.8,
3,
4,
5,
6),
level = c(1,
1.5,
2.25,
3.5,
2.5,
1)
)
p1 <- dd %>%
ggplot(aes(time, level, label = section))+
geom_label(family = 'Segoe UI', size = 9,
fill = 'dodgerblue3',alpha = 0.3,
label.padding = unit(0.15, "lines"))+
scale_y_continuous(limits = c(0,4.5), breaks = c(0.5, 2.5, 4),
labels = c('low', 'medium', 'high'),
name = 'Techinical Level')+
scale_x_continuous(limits = c(0, 7),
breaks = c(0.5, 3.5, 6.5),
labels = c('Beginning', 'Middle', 'End'),
name = 'Presentation Order')+
theme(axis.text = element_text(size = 22),
axis.title = element_text(size = 26),
plot.title = element_text(size = 28))+
ggtitle('A Visualization of this Presentation')
p_list <- c('Background',
'Large\nDonor\nDisruption',
'Unsupervised\nLearning',
'Clustering',
'WFAA Example',
'Wrapping Up') %>%
map(~ dd %>%
ggplot(aes(time, level, label = section, fill = section == .x))+
geom_label(family = 'Segoe UI', size = 9,alpha = 0.3,
label.padding = unit(0.15, "lines"))+
scale_y_continuous(limits = c(0,4.5), breaks = c(0.5, 2.5, 4),
labels = c('low', 'medium', 'high'),
name = 'Techinical Level')+
scale_x_continuous(limits = c(0, 7),
breaks = c(0.5, 3.5, 6.5),
labels = c('Beginning', 'Middle', 'End'),
name = 'Presentation Order')+
theme(axis.text = element_text(size = 22),
axis.title = element_text(size = 26),
plot.title = element_text(size = 28),
legend.position = 'none')+
ggtitle('A Visualization of this Presentation')+
scale_fill_manual(values = c("TRUE" = "dodgerblue3", "FALSE" = "grey90")))
sections <- c('Background',
'Large\nDonor\nDisruption',
'Unsupervised\nLearning',
'Clustering',
'WFAA Example',
'Wrapping Up')
sections <- gsub(pattern = ".",
replacement = "_",
x = make.names(sections),
fixed = TRUE)
mapply(x = sections,
y = p_list,
FUN = function(x,y) ggsave(paste0('pres_', x, '.png'),
plot = y, units = 'in',
width = 2.5 * 4.6,
height = 2.5 * 3.9,
dpi = 800))
ggsave("presentation_vis.png", plot = p1, units = 'in',
width = 2.5 * 4.6, height = 2.5 * 3.9, dpi = 800)