Добавить текст в горизонтальный штрих-код в R, ось y в разных масштабах?

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

Здесь аналогичный барплот

x <- runif(10, 0,1)
y <- matrix(c(x, 1-x), nrow=2, ncol=10, byrow=TRUE)
barplot(y, horiz=TRUE, beside=FALSE, names.arg=seq(1,10,1), las=1, xlim=c(0, 1.2))

Ни одна из этих двух опций не подходит правильно, как работает масштабирование?

axis(4, at=seq(1,10,1), labels=seq(1,10,1))
text(1.1, seq(1,10,1), labels=seq(1, 10, 1))

ОТВЕТЫ

Ответ 1

Выбрав документацию barplot, вы увидите, что она имеет невидимое возвращаемое значение: середины баров. Вы можете использовать их для добавления дополнительной информации в сюжет.

x <- runif(10, 0,1) 
y <- matrix(c(x, 1-x), nrow=2, ncol=10, byrow=TRUE) 
bp <- barplot(y, horiz=TRUE, beside=FALSE, names.arg=seq(1,10,1), las=1, 
              xlim=c(0, 1.2)) 
text(x, bp, signif(x,2), pos=4)
bp