Commits

Giovanni Marco Dall'Olio committed e393bcc

MINOR: renaming title and axis in students violin plots

  • Participants
  • Parent commits 3568299

Comments (0)

Files changed (2)

File results/plots/feedback_charts.pdf

Binary file modified.

File src/plot_evaluations.R

 feedback.quality.long$answer <- factor(feedback.quality.long$value, levels=plot_labels)
 qplot(answer, data=feedback.quality.long, fill=answer, main=plot_title) + barchart_plot
 ggplot(data=feedback.quality.long) + violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + opts(title=plot_title)
-ggplot(data=feedback.quality.long) + student_violin_plot + scale_y_continuous("Distribution of answers by student", breaks=1:length(plot_labels), labels=plot_labels) + opts(title="Overall students' satisfaction on Quality of the lectures")
+ggplot(data=feedback.quality.long) + student_violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + opts(title="Distribution of answers by student (Quality of Lectures)")
 #ggplot(data=feedback.quality.long) + violin_plot
 #dev.off()
 
 qplot(answer, data=feedback.relevance.long, fill=answer, main=plot_title) + barchart_plot
 feedback.relevance.long.noIdontknow = subset(feedback.relevance.long, answer != "I don't know")
 ggplot(data=feedback.relevance.long.noIdontknow, main=plot_title) + violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + opts(title=plot_title)
-ggplot(data=feedback.relevance.long) + student_violin_plot + scale_y_continuous("Distribution of answers by student", breaks=1:length(plot_labels), labels=plot_labels) + opts(title="Overall students' satisfaction on Relevance of the lectures")
+ggplot(data=feedback.relevance.long) + student_violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + opts(title="Distribution of answers by student (Relevancy of Lectures)")
 #dev.off()
 
 #dev.off()
 feedback.length.long$answer <- factor(feedback.length.long$value, levels=plot_labels)
 qplot(answer, data=feedback.length.long, fill=answer, main=plot_title) + barchart_plot
 ggplot(data=feedback.length.long, main=plot_title) + violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + opts(title=plot_title)
-ggplot(data=feedback.length.long) + student_violin_plot + scale_y_continuous("Distribution of answers by student", breaks=1:length(plot_labels), labels=plot_labels) + opts(title="Overall students' satisfaction on Length of the lectures")
+ggplot(data=feedback.length.long) + student_violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + opts(title="Distribution of answers by studend (Length of Lectures)")
 #dev.off()
 
 dev.off()