分散条形图与分组和每个类别/条的百分比标签

Question

我尝试使用R的HH包来显示分散的堆积条形图，但无法找到绘制百分比标签的方法。所以我转移到新的likert包，显然能够做到这一点。跑步：

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

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

给出以下情节：

现在我尝试绘制相同的内容，按类别分组：

l24g <- likert(items24, grouping=pisaitems$CNT)
plot(l24g, plot.percents=TRUE)

给出以下情节： 但是，这里没有显示每个条/类别的百分比。 任何想法我怎么能用另一个因素以某种方式用每个条形和组的百分比标签绘制这样的图表？如果无法做到这一点，我们非常欢迎有关任何可视化数据的替代方法的想法！