title: Diverging Stacked Bar Charts With Grouping and a Percent Label for each Category/Bar
body: <p>I have tried visualizing a diverging stacked bar chart with the <code>HH</code> package of R, but could not find a way to plot percentage labels. So I moved to the new <code>likert</code> package, which is apparently capable of doing that. Running: </p>
  
  <pre><code>require(likert)
  require(reshape)
  data(pisaitems)
  
  items24 &lt;- pisaitems[,substr(names(pisaitems), 1,5) == 'ST24Q']
  plot(l24, plot.percents=TRUE)
  </code></pre>
  
  <p>Gives the following plot:
  <img src="https://i.stack.imgur.com/wpAep.png" alt="Diverging Stacked Bar Chart with Percentage Labels"></p>
  
  <p>Now I tried plotting the same, grouped by category:</p>
  
  <pre><code>l24g &lt;- likert(items24, grouping=pisaitems$CNT)
  plot(l24g, plot.percents=TRUE)
  </code></pre>
  
  <p>Giving the following plot:
  <img src="https://i.stack.imgur.com/WO0pJ.png" alt="enter image description here">
  Here, however, percentages are NOT shown for each bar/category.
  Any idea of how I can somehow plot such a chart with percentage labels for each bar AND group by another factor? If this is not possible, ideas regarding any alternative method of visualizing the data are highly welcome! </p>