I am working with Likert scale survey data like
Q4.1 Q4.2 Q4.3 Q4.4 Q4.5 Q4.6 Q4.7 Q4.8
1 3 4 3 4 3 3 2 3
2 3 2 2 5 2 2 5 5
3 2 3 1 4 3 2 5 4
4 4 4 3 5 1 1 5 5
5 3 4 4 4 4 3 3 3
6 2 2 2 5 2 2 5 5
where each row is one participants responses to different questions on a Likert scale. I have used the following code to create a likert bar plot.
lk4 <- likert(Q4)
a <- likert.bar.plot(lk4, plot.percents = TRUE, plot.percent.high = FALSE, plot.percent.low = FALSE, ordered = TRUE)
plot(a)
which gives this plot.
This is great but because each question has differing response counts I would like to add the response count either as a total for each question on the right side of the figure, or replacing the percentages. I would also like to add summary statistics including the mean and standard deviation for each question on the left side of the figure if possible.
