如何为R语言barplot函数绘制的单根条形柱添加数值标签？

你可以通过捕获barplot()函数的返回值（即每个条形柱中心的x轴坐标），配合text()函数实现数值标签添加，调整后的完整代码如下：

# 统计各位置的样本数量
loc_count <- table(Location)
# 绘制条形图，同时存储每个条形中心的x坐标
bp <- barplot(loc_count, 
        ylim = c(0, 550), # 小幅提高y轴上限，避免顶部标签被截断
        names.arg = c("Immunology check", "Pool-Box", "Sample box", "Sample box immunology", "Trash"),
        xlab = "Box", 
        ylab = "Count",
        main = "Location of the samples", 
        col= rainbow(5)
        )
# 为每个条形添加数值标签
text(x = bp, y = loc_count, labels = loc_count, pos = 3, cex = 0.9)

参数说明：

• pos = 3代表标签显示在对应坐标点的正上方，如果你希望标签显示在条形内部靠上的位置，可以把参数改为pos = 1
• cex = 0.9用来调整标签字体大小，可根据实际显示效果调整数值
• 原代码的ylim从0-500调整为0-550，是为了给顶部的标签预留显示空间，避免最高的条形的标签超出绘图区域被裁切

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