Как вертикально оправдывать метки текстовых данных в R barplot вдоль оси y?

Question

Следующий код обеспечивает простую иллюстрацию вопроса:

testX = c(9, 10, 15, 100, 8) 
barX <- barplot(testX, ylim=c(0, max(testX))) 
text(x=barX, y=5, labels=round(testX), xpd=TRUE, srt=90) 
barX 

Я хотел вертикальные метки текстовых данных, чтобы быть выровнен по левому краю (вдоль оси у ... «снизу оправдана», если хотите), а не оправданное по умолчанию значение центра; (в последних двух столбцах см., как «100» начинается ниже «8» .... на большом участке с большим количеством столбцов это становится очень неприглядным):

Answer 1

Я думаю, что вам нужно добавьте в функцию text следующие функции:

text(x=barX, y= 4, labels=round(testX), xpd = T, srt=90, adj = c(0,0))