r - 带有分组和每个类别/条形的百分比标签的发散堆积条形图

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)

给出以下图表： 但是，此处未显示每个条形/类别的百分比。知道如何以某种方式为每个条形图绘制带有百分比标签的图表并按另一个因素分组吗？如果这是不可能的，我们非常欢迎有关任何可视化数据的替代方法的想法！