如何在水平堆积条形图中获取百分比

Question

我对多个变量中的类别百分比做了堆积图。在此图中的条形图中注明的每个类别的百分比： Plot With vertical bars

但是我希望条形图是水平的。这很容易做到，但是当我这样做时，除了在图表上方显示的第一个值之外，没有出现百分比。 Plot With horizontal bars

如何获得条形图中的百分比？

要绘制的数据用下面显示的数字对象xx表示。条形图中显示的百分比是此值的舍入值，在此处是对象val。

foo f; f.func1(); // calls &-qualified version
foo{}.func1();    // calls &&-qualified version

将颜色定义为堆叠的条形

>xx
>
>                       sp17    sp18    sp19    sp20    sp21 
>      Ikke i det hele tatt     2.070916    1.738211    2.275538    2.566066    4.617747 
>      I liten grad             3.148013    5.531397    7.924077    7.489834    9.008875 
>      I noen grad              12.811446   16.155406   20.531624   19.731716   21.936583 
>      I stor grad          40.624840   43.256196   40.625932   39.369298   37.161193 
>      I svært stor grad    41.344785   33.318790   28.642829   30.843086   27.275602


>val
>
>                           sp17  sp18 sp19  sp20    sp21  
>     Ikke i det hele tatt      2   2   2   3   5  
>     I liten grad              3   6   8   7   9  
>     I noen grad           13  16  21  20  22  
>     I stor grad           41  43  41  39  37  
>     I svært stor grad     41  33  29  31  27

图例中的元素

mgreen <- rgb(0,176,80,maxColorValue = 255)
lgreen <- rgb(146,208,80,maxColorValue = 255)
yel <- rgb(255,255,0,maxColorValue = 255)
lred <- rgb(255,0,0,maxColorValue = 255)
mred <- rgb(195,0,0,maxColorValue = 255)
col <- c(mred,lred,yel,lgreen,mgreen)

情节

lev <- c("I svært stor grad","I stor grad","I noen grad","I liten grad","Ikke i det hele tatt")
col.r <- c(mgreen,lgreen,yel,lred,mred)

上面两个图之间脚本的唯一区别是horiz = T / F之间的变化。