From 35bf83e9f6168af66d16196bf6b455954acaa3e6 Mon Sep 17 00:00:00 2001 From: Benjamin Mako Hill Date: Wed, 9 Feb 2022 18:57:09 -0800 Subject: [PATCH] generate better imges --- assessment_and_tracking/track_participation.R | 20 +++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/assessment_and_tracking/track_participation.R b/assessment_and_tracking/track_participation.R index 4381b78..37898e7 100644 --- a/assessment_and_tracking/track_participation.R +++ b/assessment_and_tracking/track_participation.R @@ -96,7 +96,7 @@ color.gradient <- scales::seq_gradient_pal("yellow", "magenta", "Lab")(seq(0,1,l table(d$num.calls, d$absences) -## 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) + aes(x=as.factor(num.calls), fill=as.factor(absences)) + @@ -108,7 +108,7 @@ ggplot(d) + scale_fill_manual("Absences", values=color.gradient) + theme_bw() -## dev.off() +dev.off() absence.labeller <- function (df) { lapply(df, function (x) { paste("Absences:", x) }) @@ -116,12 +116,12 @@ absence.labeller <- function (df) { ## png("questions_absence_histogram_facets.png", units="px", width=600, height=400) -ggplot(d) + - aes(x=as.factor(num.calls)) + - geom_bar() + - stat_count() + - scale_x_discrete("Number of questions answered") + - scale_y_continuous("Number of students") + - theme_bw() + - facet_wrap(.~absences, ncol=5, labeller="absence.labeller") +## ggplot(d) + +## aes(x=as.factor(num.calls)) + +## geom_bar() + +## stat_count() + +## 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