mat <- matrix(c(9,22,25,27,18, 13,21,33,17,14, 10,19,13,18,15, 20,11,17,7,11, 17,9,15,12,13),nrow=5,byrow=T)
par(mfrow=c(2,3))
barplot(mat[,3],names.arg=c("1","2","3","4","5"),main="Likert resp for Ap. Science",ylim=c(0,30))
barplot(mat[,1],names.arg=c("1","2","3","4","5"),main="Likert resp for Arts",ylim=c(0,30))
barplot(mat[,4],names.arg=c("1","2","3","4","5"),main="Likert resp for Business",ylim=c(0,30))
barplot(mat[,2],names.arg=c("1","2","3","4","5"),main="Likert resp for Education",ylim=c(0,30))
barplot(mat[,5],names.arg=c("1","2","3","4","5"),main="Likert resp for Science",ylim=c(0,30))