Аннотирование графиков ggplot2 с помощью tikzAnnotate в tikzDevice

Я хотел бы использовать tikzDevice для включения аннотированных ggplot2 графиков в документ Latex . В справке

tikzAnnotate есть пример того, как использовать его с базовой графикой, но как использовать его с пакетом построения графиков на основе сетки, таким как ggplot2 ? Проблема, кажется, заключается в размещении узла tikz.

В пакете playwith есть функция convertToDevicePixels ( http://code.google.com/p/playwith/source/browse/trunk/R/gridwork.R ), который кажется похожим на grconvertX / grconvertY, но я тоже не могу заставить это работать.

Буду признателен за любые указатели на дальнейшие действия.

Пример tikzAnnotate с использованием базовой графики

library(tikzDevice)
library(ggplot2)
options(tikzLatexPackages = c(getOption('tikzLatexPackages'),
                "\\usetikzlibrary{shapes.arrows}"))
tikz(standAlone=TRUE)

print(plot(15:20, 5:10))
#print(qplot(15:20, 5:10))

x <- grconvertX(17,,'device')
y <- grconvertY(7,,'device')
#px <- playwith::convertToDevicePixels(17, 7)
#x <- px$x
#y <- px$y

tikzAnnotate(paste('\\node[single arrow,anchor=tip,draw,fill=green] at (',
                x,',',y,') {Look over here!};'))
dev.off()