mat <- matrix(c(1,4,3,4,4, 2,4,3,4,4, 0,3,4,2,4, 4,0,0,0,0, 3,0,0,1,0),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,4))
barplot(mat[,1],names.arg=c("1","2","3","4","5"),main="Likert resp for Arts",ylim=c(0,4))
barplot(mat[,4],names.arg=c("1","2","3","4","5"),main="Likert resp for Business",ylim=c(0,4))
barplot(mat[,2],names.arg=c("1","2","3","4","5"),main="Likert resp for Education",ylim=c(0,4))
barplot(mat[,5],names.arg=c("1","2","3","4","5"),main="Likert resp for Science",ylim=c(0,4))