R-графика: Добавить ярлыки в штабелированную гистограмму

Question

Я ищу способ добавления меток, то есть абсолютных значений, в сложную гистограмму, используя основные функции графика R. Этикетки должны быть внутри штабелированных баров.

Спасибо!

Answer 1

barplot вернет середине х позиций баров, так что вы могли бы сделать

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")) 

EDIT: перечитывая свой вопрос, я думаю, что это то, что вы хотите (или, может быть, и нет, но я буду писать в любом случае: 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) 

Answer 2

Как насчет простой функции text()?

Вы можете просто добавить строку, в которой когда-либо вы хотите, например:

text (x = ..., y = ..., labels = c("foo bar 1000")) 

Answer 3

Может быть, вы можете использовать или Осмотреть barp функцию plotrix пакета