1. Giovanni Marco Dall'Olio
  2. leipzig_feedback_2013

Commits

Giovanni Marco Dall'Olio  committed 7312b39

COLORS: trying many different palettes

  • Participants
  • Parent commits 032e4bc
  • Branches default

Comments (0)

Files changed (2)

File results/plots/feedback_charts_2013.pdf

  • Ignore whitespace
Binary file modified.

File src/plot_evaluations.R

View file
  • Ignore whitespace
         facet_wrap(~variable, nrow=3),
         opts(axis.text.x=theme_text(angle=45, hjust=1, vjust=1 )),
 #        opts(axis.text.x=theme_text(angle=90, hjust=0.4 )),
+#        scale_fill_brewer(palette="RdPu"),
+        scale_fill_brewer(palette="Greens"),
 #        coord_polar(theta='y'),
-        scale_x_discrete("answer"),
-#        scale_fill_brewer(palette="YlGnBu")
-        scale_fill_brewer(palette="RdPu")
+        scale_x_discrete("answer")
         )
 pie_plot = list (theme_bw(),
         geom_bar(width=1),
         opts(axis.text.x=theme_text(angle=45, hjust=1, vjust=1 )),
 #        opts(axis.text.x=theme_text(angle=90, hjust=0.4 )),
 #        coord_polar(theta='y'),
-        scale_x_discrete("answer"),
+        scale_fill_brewer(type="seq", palette=2),
+        scale_x_discrete("answer")
 #        scale_fill_brewer(palette="RdPu")
-        scale_fill_brewer(palette="PuRd")
 #        coord_polar() 
+#        scale_fill_brewer(palette="PuRd")
         )
 
 
         opts(legend.position='none'),
         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(palette="PuRd"),
+        scale_fill_brewer(type="seq", palette=5),
         scale_x_discrete("Student (Timestamp of when the feedback form was filled)")
         )
 
 plot_labels = rev(c("Very Good", "Good", "Average", "Poor", "Very Poor"))
 feedback.quality.long$answer <- factor(feedback.quality.long$value, levels=plot_labels)
 qplot(answer, data=feedback.quality.long, fill=answer, main=paste(plot_title, "(Bar charts)")) + barchart_plot
-qplot(data=feedback.quality.long, x=answer, stat="bin", fill=answer, main=paste(plot_title, "(Pie charts)")) + pie_plot + coord_polar(theta="y")
+#qplot(data=feedback.quality.long, x=answer, stat="bin", fill=answer, main=paste(plot_title, "(Pie charts)")) + pie_plot + coord_polar(theta="y")
 ggplot(data=feedback.quality.long) + violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + ggtitle(paste(plot_title, "(Violin plots)"))
 ggplot(data=feedback.quality.long) + student_barchart_plot + ggtitle("Distribution of answers by student (Quality of Lectures and Talks)")
 ggplot(data=feedback.quality.long) + student_violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + ggtitle("Distribution of answers by student (Quality of Lectures and Talks)")
 #feedback.relevance.long.noIdontknow = subset(feedback.relevance.long, answer != "I don't know")
 feedback.relevance.long.noIdontknow = feedback.relevance.long
 qplot(data=feedback.relevance.long.noIdontknow, x=answer, fill=answer, main=paste(plot_title, "(Bar charts)")) + barchart_plot
-qplot(data=feedback.relevance.long.noIdontknow, stat="bin", x=answer, fill=answer, main=paste(plot_title, "(Pie charts)")) + pie_plot + coord_polar(theta="y")
+#qplot(data=feedback.relevance.long.noIdontknow, stat="bin", x=answer, fill=answer, main=paste(plot_title, "(Pie charts)")) + pie_plot + coord_polar(theta="y")
 print(summary(feedback.relevance.long.noIdontknow))
 ggplot(data=feedback.relevance.long.noIdontknow) + violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels)+ ggtitle(paste(plot_title, "(Violin plots)"))
 #ggplot(data=feedback.relevance.long.noIdontknow) + violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels))+ ggtitle(paste(plot_title, "(Violin plots)"))
 plot_labels = rev(c("Too long", "Just right", "Too short"))
 feedback.length.long$answer <- factor(feedback.length.long$value, levels=plot_labels)
 qplot(data=feedback.length.long, fill=answer, x=answer, main=paste(plot_title, "(Bar charts)")) + barchart_plot
-ggplot(data=feedback.length.long, aes(x=answer, fill=factor(answer)), main=paste(plot_title, "(Pie charts)")) + pie_plot + coord_polar(theta="y")
+#ggplot(data=feedback.length.long, aes(x=answer, fill=factor(answer)), main=paste(plot_title, "(Pie charts)")) + pie_plot + coord_polar(theta="y")
 ggplot(data=feedback.length.long) + violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + ggtitle(paste(plot_title, "(Violin plots)"))
 ggplot(data=feedback.length.long) + student_barchart_plot + ggtitle("Distribution of answers by student (Length of Lectures and Talks)")
 ggplot(data=feedback.length.long) + student_violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + ggtitle("Distribution of answers by student (Length of Lectures and Talks)")