R：条形图中的x轴-条形图中间的x轴和中心刻度线的宽度

我认为我的挑战与基本绘图系统的使用和cex.axis命令的操作有关。

到目前为止，我已经能够生成下面的基本条形图：

将以下代码与数据集样本一起使用：

x<-structure(c(66366L, 66307L, 54185L, 45394L, 35767L, 34995L, 33818L, 30502L, 28677L, 27043L), .Dim = 10L, .Dimnames = structure(list(c("A", "B", "C", "D", "a", "b", "c", "d", "e", "f")), .Names = ""))
windows() #running on Windows machine
barplot(x[order(x, decreasing=T)][1:10], xaxt="n", yaxt="n")
x_labels<-rownames(x)
axis(1, at=1:10, labels=x_labels,las=2)
y<-prop.table(x])
axis(1, at=1:10, labels=x_labels,las=2)

外观正朝着我想要的方向发展。我现在在这个项目中碰到了一点小麻烦。我找不到以下方面的优质文档：

1. （主要问题）使标签在x轴上变宽和居中，
2. （次要问题）生成比例背景（SUM（A：D）/ SUM（ALL）），
3. （次要问题），顶部的15％（（SUM（A：D）/ SUM（ALL））* 100）。

结果可能如下所示：