标签在直方图中不适合我的bin中心

Question

我遇到了将标签放在直方图箱下正确位置的问题，如图所示。 我正在使用此代码：

![# Category names
my.names <- c("test1", "test2", "test3", "test4", "test5", "test6")

# Example data
data <- c(191,33,12,254,22,74)

# Normalize the example data as a percentage of the total
data.norm <- data / sum(data)

# Use barplot to plot the results
barplot(data.norm, beside=TRUE, col=c("grey10","grey20","grey30","grey40","grey50","grey60"))
text(1:6, par("usr")[3], labels=my.names, srt=45, pos=2, xpd=TRUE,offset=0.01)][2]

请帮忙 此致

Answer 1

x轴值不一定是整数值。 barplot函数返回绘图期间使用的x值。尝试

bp<-barplot(data.norm, beside=TRUE, col=c("grey10","grey20","grey30","grey40","grey50","grey60"))
text(bp, par("usr")[3], labels=my.names, srt=45, pos=2, xpd=TRUE,offset=0.01)

代替。