R图形:向堆积条形图添加标签

Question

我正在寻找一种方法,使用R的基本绘图功能将标签(即绝对值)添加到堆积条形图中.标签应位于堆叠条形图内.

谢谢!

Answer 1

barplot 将返回条形的中间x位置,所以你可以这样做

mydata <- matrix(c(10, 21, 22, 33, 45, 23, 22, 43, 33), nrow=3)

# b will contain the x midpoints of the bars
b <- barplot(mydata)

# This will write labels in the middle of the bars, horizontally and vertically
text(b, colMeans(mydata), c("Label1", "Label2", "Label3"))

# This will write labels in the middle of the middle block
text(b, mydata[1,]+mydata[2,]/2, c("LabelA", "LabelB", "LabelC"))

编辑:重新阅读你的问题,我认为这是你想要的(或者可能不是,但我还是会写的:D)

# Find the top y position of each block 
ypos <- apply(mydata, 2, cumsum)
# Move it downwards half the size of each block
ypos <- ypos - mydata/2
ypos <- t(ypos)

text(b, ypos, mydata)