From 0738f9791a7f0ae2bc03869edf060d035b2dd0b6 Mon Sep 17 00:00:00 2001 From: Benjamin Mako Hill Date: Mon, 24 Jan 2022 18:53:04 -0800 Subject: [PATCH] clean up the plots being generated --- assessment_and_tracking/track_participation.R | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/assessment_and_tracking/track_participation.R b/assessment_and_tracking/track_participation.R index c2b1ef9..4381b78 100644 --- a/assessment_and_tracking/track_participation.R +++ b/assessment_and_tracking/track_participation.R @@ -96,17 +96,13 @@ color.gradient <- scales::seq_gradient_pal("yellow", "magenta", "Lab")(seq(0,1,l 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) ggplot(d) + aes(x=as.factor(num.calls), fill=as.factor(absences)) + geom_bar(color="black") + stat_count() + - scale_x_discrete("Number of questions asked") + + scale_x_discrete("Number of questions answered") + scale_y_continuous("Number of students") + ##scale_fill_brewer("Absences", palette="Blues") + scale_fill_manual("Absences", values=color.gradient) + @@ -124,7 +120,7 @@ ggplot(d) + aes(x=as.factor(num.calls)) + geom_bar() + 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") + theme_bw() + facet_wrap(.~absences, ncol=5, labeller="absence.labeller") -- 2.39.5