R语言使用text()函数为水平条形图添加占比标签的问题

问题现象 #

使用R基础绘图功能绘制训练/专业分布水平条形图时，响应占比标签无法正确对齐条形末端，出现挤压错位问题。原有实现代码如下：

#Training/Specialty Barplot
trainbarplot <- barplot(table(PSR$training), horiz = TRUE,
main="Respondent Distribution of Training", cex.main = 1.1, font.main = 2,
cex.lab = 0.8, cex.names = 0.4, font.axis = 4, las = 2,
xlab="Response Frequency", xlim=c(0, 40), cex.axis = 0.8,
border="black",
col=rgb (0.1, 0.1, 0.4, 0.5, 0.6),
density=c(50,40,30) , angle=c(9,11,36)
)

text(trainbarplot, table(PSR$training) - 3,
     labels=paste(round(proportions(table(PSR$training))*100, 0), "%"))

代码运行后的错位效果如下：

错误原因 #

问题完全出在text()函数的参数设置，共有两处错漏：

• 坐标参数顺序颠倒：text()函数的默认参数顺序为text(x, y, labels = ...)，即第一个参数对应x轴位置，第二个参数对应y轴位置。当设置horiz = TRUE绘制水平条形图时，barplot()返回的trainbarplot对象存储的是每个条形在y轴上的中心坐标，应该传入text()的y参数位；而代表条形长度的频数统计值，才是计算标签x轴位置的参考依据，原有代码完全调换了二者的传入位置，直接导致标签坐标整体错乱。
• 偏移逻辑不匹配：原有代码使用table(PSR$training) - 3计算位置，即使参数顺序正确，也会让标签落在条形内部偏左区域，无法对齐条形末端，且偏移量没有预留足够的显示空间，容易出现标签和条形边框、填充纹理重叠挤压的问题。

修正方案 #

调整text()函数的参数顺序，将条形长度加1个单位的小偏移作为x坐标（预留间隙避免标签和条形边框重叠），将trainbarplot作为y坐标传入即可。优化后的代码如下：

# 提前存储统计结果，避免重复计算
train_count <- table(PSR$training)
train_pct <- paste0(round(proportions(train_count)*100, 0), "%")

trainbarplot <- barplot(train_count, horiz = TRUE,
main="Respondent Distribution of Training", cex.main = 1.1, font.main = 2,
cex.lab = 0.8, cex.names = 0.4, font.axis = 4, las = 2,
xlab="Response Frequency", xlim=c(0, 40), cex.axis = 0.8,
border="black",
col=rgb (0.1, 0.1, 0.4, 0.5, 0.6),
density=c(50,40,30) , angle=c(9,11,36)
)

# 传入正确的坐标参数，可通过cex调整标签大小适配显示
text(x = train_count + 1, y = trainbarplot, labels = train_pct, cex = 0.7)

如果需要将百分比标签放在条形内部，只需要把x参数改为train_count - 2，同时可设置col = "white"提升标签可读性。

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