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

Question

我认为，我的挑战与使用基本绘图系统和操作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）。

结果可能如下所示：

Answer 1

考虑将您的问题分解为三个或至少展示您在后两个问题中尝试过的问题。要排列标记，您只需更改at即可使用生成的条形图：

bp <- barplot(x[order(x, decreasing=T)][1:10], xaxt="n", yaxt="n")
axis(1, at=bp, labels=x_labels, las=2)