]> code.communitydata.science - coldcallbot-discord.git/commitdiff
clean up the plots being generated
authorBenjamin Mako Hill <mako@atdot.cc>
Tue, 25 Jan 2022 02:53:04 +0000 (18:53 -0800)
committerBenjamin Mako Hill <mako@atdot.cc>
Sat, 28 Sep 2024 23:12:19 +0000 (16:12 -0700)
assessment_and_tracking/track_participation.R

index c2b1ef9c4f7aed9c67dfce60f554c4f6e8797817..4381b7859308756ce4440c206cd637d7bdd37661 100644 (file)
@@ -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")

Community Data Science Collective || Want to submit a patch?