collective/coldcallbot
17
0
Fork 0
Code

clean up the plots being generated

Browse Source
This commit is contained in:
Benjamin Mako Hill 2022-01-24 18:53:04 -08:00
parent a59b6b86ff
commit 0738f9791a
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
assessment_and_tracking/track_participation.R
View File

@ -96,17 +96,13 @@ color.gradient <- scales::seq_gradient_pal("yellow", "magenta", "Lab")(seq(0,1,l
table(d$num.calls, d$absences) table(d$num.calls, d$absences)
ggplot(data=d) +
aes(x=as.factor(num.calls), y=absences) +
geom_violin()
## png("questions_absence_histogram_combined.png", units="px", width=600, height=400) ## png("questions_absence_histogram_combined.png", units="px", width=600, height=400)
ggplot(d) + ggplot(d) +
aes(x=as.factor(num.calls), fill=as.factor(absences)) + aes(x=as.factor(num.calls), fill=as.factor(absences)) +
geom_bar(color="black") + geom_bar(color="black") +
stat_count() + stat_count() +
scale_x_discrete("Number of questions asked") + scale_x_discrete("Number of questions answered") +
scale_y_continuous("Number of students") + scale_y_continuous("Number of students") +
##scale_fill_brewer("Absences", palette="Blues") + ##scale_fill_brewer("Absences", palette="Blues") +
scale_fill_manual("Absences", values=color.gradient) + scale_fill_manual("Absences", values=color.gradient) +
@ -124,7 +120,7 @@ ggplot(d) +
aes(x=as.factor(num.calls)) + aes(x=as.factor(num.calls)) +
geom_bar() + geom_bar() +
stat_count() + stat_count() +
scale_x_discrete("Number of questions asked as of 2020-02-12") + scale_x_discrete("Number of questions answered") +
scale_y_continuous("Number of students") + scale_y_continuous("Number of students") +
theme_bw() + theme_bw() +
facet_wrap(.~absences, ncol=5, labeller="absence.labeller") facet_wrap(.~absences, ncol=5, labeller="absence.labeller")