Commits

Giovanni Marco Dall'Olio  committed 3257a82

FIX: PLOTS: removed all "Relevant" and "I dont know" answers from Relevancy plots

  • Participants
  • Parent commits ca88369

Comments (0)

Files changed (2)

File results/plots/feedback_charts.pdf

Binary file modified.

File src/plot_evaluations.R

 feedback.relevance.long$answer <- gsub("Very relevant", "Very relevant/Yes", feedback.relevance.long$answer)
 feedback.relevance.long$answer <- gsub("^Yes$", "Very relevant/Yes", feedback.relevance.long$answer)
 feedback.relevance.long$answer <- gsub("^No$", "Probably not/No", feedback.relevance.long$answer)
-plot_labels = rev(c("Very relevant/Yes", "Relevant", "Probably", "Probably not/No", "I don't know"))
+#plot_labels = rev(c("Very relevant/Yes", "Relevant", "Probably", "Probably not/No", "I don't know"))
+plot_labels = rev(c("Very relevant/Yes", "Probably", "Probably not/No", "I don't know"))
 feedback.relevance.long$answer <- factor(feedback.relevance.long$answer, levels=plot_labels)
-qplot(answer, data=feedback.relevance.long, fill=answer, main=plot_title) + barchart_plot
 # FIX: "I don't know" answers should not be included in the violin plots, or at least they should be colored differently. Otherwise, it seems that a "I don't know" answer is better or worst than the other answers. 
 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("answer", breaks=1:length(plot_labels), labels=plot_labels) + opts(title="Distribution of answers by student (Relevancy of Lectures)")
+qplot(answer, data=feedback.relevance.long.noIdontknow, fill=answer, main=plot_title) + barchart_plot
+ggplot(data=feedback.relevance.long.noIdontknow) + violin_plot + scale_y_continuous("answer", breaks=1:length(plot_labels), labels=plot_labels) + opts(title=plot_title)
+ggplot(data=feedback.relevance.long.noIdontknow) + 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()
 plot_labels = rev(c("Too long", "Just right", "Too short"))
 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) + 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("answer", breaks=1:length(plot_labels), labels=plot_labels) + opts(title="Distribution of answers by studend (Length of Lectures)")
 #dev.off()