azadag
3/18/2016 - 12:57 AM

divergent likert bar From http://stackoverflow.com/questions/19572411/diverging-stacked-bar-charts-with-grouping-and-a-percent-label-for-eac

require(likert)
require(reshape)
data(pisaitems)

items24 <- pisaitems[,substr(names(pisaitems), 1,5) == 'ST24Q']
plot(l24, plot.percents=TRUE)