如何基于数值大小绘制带标记线与百分比文本的堆叠柱状图

需使用给定矩阵数据集绘制4个高度均为mat.all[1,2]（数值为139.17365）的垂直柱状图，具体要求：

• 第一个柱状图标记mat.all中行值为2的所有行的数值，即mat.all[2:5,2]；
• 第二个柱状图对应行值为3的行；第三个对应行值为4的行；第四个对应行值为5的行；
• 每个柱状图内添加文本，展示基于mat.all[1,2] = 139.17365计算出的百分比降幅。

数据集 #

矩阵数据 #

mat.all=matrix(c(1,rep(2,4),rep(3,6),rep(4,4),5,139.17365,136.27613,139.01464,135.47032,98.02343,136.28064,132.31289,135.26496,96.62991, 97.49587,90.17913,132.25711,96.01838,88.87682,89.06218,87.65776),16,2,byrow=F)

mat.all
     [,1]      [,2]
 [1,]    1 139.17365
 [2,]    2 136.27613
 [3,]    2 139.01464
 [4,]    2 135.47032
 [5,]    2  98.02343
 [6,]    3 136.28064
 [7,]    3 132.31289
 [8,]    3 135.26496
 [9,]    3  96.62991
[10,]    3  97.49587
[11,]    3  90.17913
[12,]    4 132.25711
[13,]    4  96.01838
[14,]    4  88.87682
[15,]    4  89.06218
[16,]    5  87.65776

百分比降幅数据 #

perc.all=round(((mat.all[1,2]-mat.all[1:16,2])*100/mat.all[1,2]),1)
> perc.all
 [1]  0.0  2.1  0.1  2.7 29.6  2.1  4.9  2.8 30.6 29.9 35.2  5.0 31.0 36.1
[15] 36.0 37.0

预期样式 #

内容的提问来源于stack exchange，提问作者user22130474