Commits

Giovanni Marco Dall'Olio  committed 145e11c

2014: splitted Generic Questions into three pages

  • Participants
  • Parent commits 2a58562

Comments (0)

Files changed (2)

File results/plots/feedback_charts_2014.pdf

Binary file modified.

File src/plot_evaluations.R

 TalksRateIndex          = c(72:75)
 TalksRelevanceIndex     = c(76:79)
 TalksLengthIndex        = c(80:83)
-GenericQuestionIndex       = c(1, 88, 89, 90, 91, 2, 3, 4, 93)
-GenericQuestion2Index      = c(1, 11, 9, 10, 85, 6, 86, 84, 87)
+GenericQuestionIndex       = c(1, 88, 89, 90, 91, 93)
+GenericQuestion2Index      = c(1, 11, 10, 9, 2, 3, 4)
+GenericQuestion3Index      = c(1, 6, 86, 85, 84, 87)
 print (GenericQuestionIndex)
 print (names(feedback)[GenericQuestionIndex])
 print (GenericQuestion2Index)
 
 
 generic_questions_plot = list (theme_bw(),
-        geom_bar(aes(x=answer)),
+        geom_bar(aes(x=answer), fill='#4d4d4d'),
         facet_wrap(~question, scales='free', nrow=3), 
         theme(axis.text.x=element_text(angle=0, hjust=0.5, vjust=1 ))
         )
 #        theme(axis.text.x=element_text(angle=45, hjust=1, vjust=1 )),
         theme(axis.text.x=element_blank( )),
         theme(axis.text.y=element_blank( )),
+#        geom_text(aes(y = answer, label=..count..), size=5), # + c(0, cumsum(factor(answer))[-length(factor(answer))]), label = percent), size=10)
         theme(axis.ticks.y=element_blank( )),
+#        scale_x_discrete("answer"),
         coord_polar(theta = "y")
 #        opts(axis.text.x=element_text(angle=90, hjust=0.4 )),
 #        scale_fill_brewer(type="seq", palette=2),
-#        scale_x_discrete("answer")
 #        scale_fill_brewer(palette="RdPu")
 #        coord_polar() 
 #        scale_fill_brewer(palette="PuRd")
     feedback.overall.long$question <- gsub( # 91
             "Were your expectations met", 
             "Were your expectations met?", feedback.overall.long$question)   
-    feedback.overall.long$question <- gsub( # 2
-            "How would you rate the overall organization of the course",
-            "How would you rate the\noverall organization of the course?", feedback.overall.long$question)
-    feedback.overall.long$question <- gsub( # 3
-            "In general.* length of the course", 
-            "In general what did you think\nabout the length of the course?", feedback.overall.long$question, perl=T)    
-    feedback.overall.long$question <- gsub( # 4
-            "What did you think of the ratio of teaching versus scientific lectures", 
-            "What did you think of the ratio\nof teaching versus scientific lectures?", feedback.overall.long$question, perl=T)    
     feedback.overall.long$question <- gsub( # 93
             "Would you recommend this course to your colleagues", 
             "Would you recommend this course\nto your colleagues?", feedback.overall.long$question)   
     print (unique(feedback.overall.long$answer))
 
     # FIX: manually fixing some answer labels
-    feedback.overall.long$answer <- gsub("^I.*needed", "I needed", feedback.overall.long$answer, perl=T)
-    feedback.overall.long$answer <- gsub("^More scientific.*", "More scientific\nlectures, please", feedback.overall.long$answer, perl=T)
-    feedback.overall.long$answer <- gsub("^More teaching.*", "More teaching\non programming", feedback.overall.long$answer, perl=T)
-    feedback.overall.long$answer <- gsub("10 years", "10\nyears", feedback.overall.long$answer, perl=T)
-#    feedback.overall.long$answer <- gsub("([\\w()']*\\s[\\w()']*)\\s", "\\1\n", feedback.overall.long$answer, perl=T)
     feedback.overall.long$answer <- gsub("\\.", " ", feedback.overall.long$answer, perl=T)
     feedback.overall.long$answer <- gsub(" $", "", feedback.overall.long$answer, perl=T)
     feedback.overall.long$answer <- gsub("^ ", "", feedback.overall.long$answer, perl=T)
+    feedback.overall.long$answer <- gsub("10 years", "10\nyears", feedback.overall.long$answer, perl=T)
+#    feedback.overall.long$answer <- gsub("([\\w()']*\\s[\\w()']*)\\s", "\\1\n", feedback.overall.long$answer, perl=T)
 
     # FIX: merging "Department bullettin", "mailing list" and "Internal Institute mail" answers together
     feedback.overall.long$answer <- gsub("^Evoldir.*", "Evoldir", feedback.overall.long$answer, perl=T)
 
     # PAGE 2 - for better visibility, I am splitting the General Questions into two pages
     cat('Second page of Generic Questions\n')
-    plot_title = "TAs, infrastructure, and project"
+    plot_title = "Infrastructure and Organization"
     print(GenericQuestion2Index)
     feedback.overall <- subset(feedback, select=c(GenericQuestion2Index))
     feedback.overall.long <- melt(feedback.overall, id.vars="Timestamp")
     feedback.overall.long$question <- gsub( # 11
             "How did you find the ratio lectures exercises",
             "How did you find\nthe ratio lectures exercises?", feedback.overall.long$question)
-
-    feedback.overall.long$question <- gsub( # 9
+    feedback.overall.long$question <- gsub( # 10
             "How would you rate the room infrastructure and layout",
             "How would you rate the\nroom infrastructure and layout?", feedback.overall.long$question)
     feedback.overall.long$question <- gsub( # 9
             "How would you rate the computer infrastructure",
             "How would you rate\nthe computer infrastructure?", feedback.overall.long$question)
-    feedback.overall.long$question <- gsub( # 85
-            "Are you happy with the guidance provided by the TA", 
-            "Are you happy with the\nguidance provided by the TA?", feedback.overall.long$question)
-    feedback.overall.long$question <- gsub( # 6
-            "In general .* teaching assistants", 
-            "In general did you get enough\nhelp/attention from the TAs?", feedback.overall.long$question, perl=T)
-    feedback.overall.long$question <- gsub( # 86
-            "Did you find the project useful in learning how to do bioinformatics", 
-            "Did you find the project useful\nin learning how to do bioinformatics?", feedback.overall.long$question)   
-    feedback.overall.long$question <- gsub( # 84
-            "How would you rate the scope and feasibility of your project", 
-            "How would you rate the scope\nand feasibility of your project?", feedback.overall.long$question)   
-    feedback.overall.long$question <- gsub( # 87
-            "Would you like to have more time for the project", 
-            "Would you like to have\nmore time for the project?", feedback.overall.long$question)   
-    feedback.overall.long$answer <- factor(feedback.overall.long$value)
+    feedback.overall.long$question <- gsub( # 2
+            "How would you rate the overall organization of the course",
+            "How would you rate the\noverall organization of the course?", feedback.overall.long$question)
+    feedback.overall.long$question <- gsub( # 3
+            "In general.* length of the course", 
+            "In general what did you think\nabout the length of the course?", feedback.overall.long$question, perl=T)    
+    feedback.overall.long$question <- gsub( # 4
+            "What did you think of the ratio of teaching versus scientific lectures", 
+            "What did you think of the ratio\nof teaching versus scientific lectures?", feedback.overall.long$question, perl=T) 
     cat('\n')
     print (unique(feedback.overall.long$question))
     cat('\n')
 
     print(levels(factor(feedback.overall.long$answer)))
     # FIX: manually fixing some answer labels
-    print(levels(factor(feedback.overall.long$answer)))
+    feedback.overall.long$answer <- factor(feedback.overall.long$value)
     feedback.overall.long$answer <- gsub("^\\s*", "", feedback.overall.long$answer, perl=T)
     feedback.overall.long$answer <- gsub("\\s*$", "", feedback.overall.long$answer, perl=T)
     feedback.overall.long$answer <- gsub("\\.", " ", feedback.overall.long$answer, perl=T)
+    feedback.overall.long$answer <- gsub("^I.*needed", "I needed", feedback.overall.long$answer, perl=T)
+    feedback.overall.long$answer <- gsub("^More scientific.*", "More scientific\nlectures, please", feedback.overall.long$answer, perl=T)
+    feedback.overall.long$answer <- gsub("^More teaching.*", "More teaching\non programming", feedback.overall.long$answer, perl=T)
     feedback.overall.long$answer <- gsub("^More scientific.*", "More scientific\nlectures, please", feedback.overall.long$answer, perl=T)
     feedback.overall.long$answer <- gsub("^More teaching.*", "More teaching\non programming", feedback.overall.long$answer, perl=T)
 #    feedback.overall.long$answer <- gsub("10 years", "10\nyears", feedback.overall.long$answer, perl=T)
         "Bad Chairs", feedback.overall.long$answer, perl=T)
     feedback.overall.long$answer <- gsub("the chairs are bad", 
         "Bad Chairs", feedback.overall.long$answer, perl=T)
+    feedback.overall.long$answer <- gsub("Not adequate", 
+        "Not\nadequate", feedback.overall.long$answer, perl=T)
     feedback.overall.long$answer <- gsub("to many people in 1 room.*", 
         "Too many people", feedback.overall.long$answer, perl=T)
     print(levels(factor(feedback.overall.long$answer)))
     p <- ggplot(data=feedback.overall.long) + generic_questions_plot + ggtitle(plot_title)
     print(p)
 
+    # PAGE 3 - for better visibility, I am splitting the General Questions into two pages
+    cat('Third page of Generic Questions\n')
+    plot_title = "TAs and Project"
+    print(GenericQuestion3Index)
+    feedback.overall <- subset(feedback, select=c(GenericQuestion3Index))
+    feedback.overall.long <- melt(feedback.overall, id.vars="Timestamp")
+    feedback.overall.long <- feedback.overall.long[complete.cases(feedback.overall.long),]
+    feedback.overall.long$question <- factor(feedback.overall.long$variable)
+#    feedback.overall.long$question <- gsub("(\\w*\\.\\w*\\.\\w*\\.\\w*\\.\\w*\\.\\w*\\.\\w*)\\.", "\\1\n", feedback.overall.long$question, perl=T)
+#    feedback.overall.long$question <- gsub("(\\w*\\.\\w*\\.\\w*\\.\\w*\\.\\w*)\\.", "\\1\n", feedback.overall.long$question, perl=T)
+    feedback.overall.long$question <- gsub("\n$", "", feedback.overall.long$question, perl=T)
+    feedback.overall.long$question <- gsub("\\.", " ", feedback.overall.long$question, perl=T)
+    # FIX: manually fixing some labels. In the end it's better to manually fix each one
+    cat('\n')
+    print (unique(feedback.overall.long$question))
+    cat('\n')
+    feedback.overall.long$question <- gsub( # 6
+            "In general .* teaching assistants", 
+            "In general did you get enough\nhelp/attention from the TAs?", feedback.overall.long$question, perl=T)
+    feedback.overall.long$question <- gsub( # 86
+            "Did you find the project useful in learning how to do bioinformatics", 
+            "Did you find the project useful\nin learning how to do bioinformatics?", feedback.overall.long$question)   
+    feedback.overall.long$question <- gsub( # 85
+            "Are you happy with the guidance provided by the TA", 
+            "Are you happy with the\nguidance provided by the TA\nduring the project?", feedback.overall.long$question)
+    feedback.overall.long$question <- gsub( # 84
+            "How would you rate the scope and feasibility of your project", 
+            "How would you rate the scope\nand feasibility of your project?", feedback.overall.long$question)   
+    feedback.overall.long$question <- gsub( # 87
+            "Would you like to have more time for the project", 
+            "Would you like to have\nmore time for the project?", feedback.overall.long$question)   
+    feedback.overall.long$answer <- factor(feedback.overall.long$value)
+    cat('\n')
+    print (unique(feedback.overall.long$question))
+    cat('\n')
+
+    print(levels(factor(feedback.overall.long$answer)))
+    # FIX: manually fixing some answer labels
+    print(levels(factor(feedback.overall.long$answer)))
+    feedback.overall.long$answer <- gsub("^\\s*", "", feedback.overall.long$answer, perl=T)
+    feedback.overall.long$answer <- gsub("\\s*$", "", feedback.overall.long$answer, perl=T)
+    feedback.overall.long$answer <- gsub("\\.", " ", feedback.overall.long$answer, perl=T)
+    feedback.overall.long$answer <- gsub("^More scientific.*", "More scientific\nlectures, please", feedback.overall.long$answer, perl=T)
+    feedback.overall.long$answer <- gsub("^More teaching.*", "More teaching\non programming", feedback.overall.long$answer, perl=T)
+#    feedback.overall.long$answer <- gsub("10 years", "10\nyears", feedback.overall.long$answer, perl=T)
+
+    print(levels(factor(feedback.overall.long$answer)))
+    print(levels(factor(subset(feedback.overall.long, question %in% "infrastructure")$answer)))
+    feedback.overall.long$answer <- gsub("([\\w()']*\\s[\\w()']*)\\s", "\\1\n", feedback.overall.long$answer, perl=T)
+    p <- ggplot(data=feedback.overall.long) + generic_questions_plot + ggtitle(plot_title)
+    print(p)
+
 }
 
 # Quality of the lecture
 
 
 generic_questions()
-#qualitylecture()
-#relevance()
-#lecture_length()
+qualitylecture()
+relevance()
+lecture_length()
 
 print("ok")