Аннотирующая ось в ggplot2

Question

Я ищу способ аннотации оси в ggplot2. Пример проблемы можно найти здесь: http://learnr.wordpress.com/2009/09/24/ggplot2-back-to-back-bar-charts.

Ось y диаграммы (пример графика в ссылке) содержит аннотацию: (млн. Евро). Есть ли способ создать такие типы аннотаций в ggplot2? Глядя на документацию, нет очевидного пути, поскольку ggplot явно не позволяет помещать объекты за пределы области печати. Но может быть, есть обходное решение?

Один из возможных способов решения, я думал о использует весы:

data=data.frame(x=1:10,y=1:10) 
qplot(x=x,y=y,data=data)+scale_y_continuous(breaks=10.1,label="Millions") 

Но тогда, как удалить клеща? И кажется, что, поскольку ggplot не поддерживает несколько шкал, мне нужно будет захватить вывод scale_y_continuous, когда он автоматически вычисляет весы, а затем добавляет мой пользовательский разрыв и метку вручную. Может быть, есть лучший способ?

Answer 1

Может быть grid.text():

grid.text("label", x = unit(xpos, "npc"), y = unit(ypos, "npc")) 

с соответствующими значениями для xpos и ypos.