Feedback Visualisation in R


Here is the R code I used to create the visualisation:

library(reshape)
library(ggplot2)
library(grid)

data<-read.csv(‘Feedback_from_students_2014_2015.csv’,row.names=1)
data$id=row.names(data)
meltData<-melt(data)
res<-ggplot(meltData,aes(id,value))+geom_boxplot(aes(fill = factor(id)))+xlab(“Questions”)+ylab(“Answers”)+
theme(axis.text.x = element_text(angle = 0, hjust = 1,size=30,face=”bold”),axis.text.y = element_text(angle = 0, hjust = 1,size=30,face=”bold”),axis.title.x=element_text(size=40,face=”bold”,vjust=-0.6),axis.title.y=element_text(size=40,face=”bold”,vjust=2))+
scale_x_discrete(labels=c(“A.”,”B.”,”C.”,”D.”, “E.”, “F.”,”G.”,”H.”,”I.”,”J.”,”K.”,”L.”,”M.”,”N.”,”O.”,”P”))+
scale_y_continuous(breaks=0:9)+
theme(legend.title=element_text(size=40,face=”bold”),legend.text=element_text(size=30),legend.key.height=unit(3,”line”))+
scale_fill_discrete(name=quote(“Questions (Sample Size N=32)”))
print(res)
ggsave(filename=”Feedback_Analysis.png”, plot=res,width=20, height=12)

Here is the file with the (anonymous) scores of the feedback (you might find useful having a look at the format of the data in the file!):

Download ‘Feedback_from_students_2014_2015.csv’

Feel free to use it for your own visualisations! And let me know if you have further ideas on novel ways of presenting the feedback you receive!