Commits

Giovanni Marco Dall'Olio committed b0b7ff4

COLORS: blues for the answers by module, green for the answers by student

Comments (0)

Files changed (2)

results/plots/feedback_charts_2013.pdf

Binary file modified.

src/plot_evaluations.R

 
 
 violin_plot = list (theme_bw(),
-        geom_violin(aes(x=variable, y=as.numeric(answer), fill=1)),
+#        geom_violin(aes(x=variable, y=as.numeric(answer), fill=1), fill="#0072B2""#56B4E9"),
+        geom_violin(aes(x=variable, y=as.numeric(answer)), fill="#0072B2"),
         opts(legend.position='none'),
 #        facet_wrap(~variable, nrow=3),
         opts(axis.text.x=theme_text(angle=45, hjust=1, vjust=1 )),
 #        scale_fill_brewer(palette="RdPu"),
 #        scale_fill_brewer(palette="PuRd"),
 #        scale_fill_brewer(type="seq", palette=5),
-        scale_fill_brewer(palette="Reds"),
+        scale_fill_brewer(palette="Greens"),
         scale_x_discrete("Student (Timestamp of when the feedback form was filled)")
         )
 
 student_violin_plot = list(theme_bw(),
-        geom_violin(aes(x=Timestamp, y=as.numeric(answer), fill='#0072B2')),
+#        geom_violin(aes(x=Timestamp, y=as.numeric(answer), fill='#0072B2'), fill="#56B4E9"),
+#        geom_violin(aes(x=Timestamp, y=as.numeric(answer)), fill="#0072B2"),
+#        geom_violin(aes(x=Timestamp, y=as.numeric(answer)), fill="#009E73"), # Green009E73
+#        geom_violin(aes(x=Timestamp, y=as.numeric(answer)), fill="#018571"),
+#        geom_violin(aes(x=Timestamp, y=as.numeric(answer)), fill="#238B45"),
+#        geom_violin(aes(x=Timestamp, y=as.numeric(answer)), fill="#74C476"),
+        geom_violin(aes(x=Timestamp, y=as.numeric(answer)), fill="#31A354"),
         opts(legend.position='none'),
         opts(axis.text.x=theme_text(angle=45, hjust=1, vjust=1 )),
         scale_x_discrete("Student (Timestamp of when the feedback form was filled)")