Rasterizar imágenes ggplot en R para tikzdevice

Utilizo R para analizar datos, ggplot para crear gráficos, tikzDevice para imprimirlos y finalmente látex para crear un informe. El problema es que las parcelas grandes con muchos puntos fallan debido al límite de memoria del látex. Encontre aquihttps://github.com/yihui/tikzDevice/issues/103 Una solución que rasteriza la trama antes de imprimir el archivo tikz, que permite imprimir los puntos y el texto individualmente.

require(png)
require(ggplot2)
require(tikzDevice)

## generate data
n=1000000; x=rnorm(n); y=rnorm(n)

## first try primitive
tikz("test.tex",standAlone=TRUE)
plot(x,y)
dev.off()
## fails due to memory
system("pdflatex test.tex")


## rasterise points first
png("inner.png",width=8,height=6,units="in",res=300,bg="transparent")
par(mar=c(0,0,0,0))
plot.new(); plot.window(range(x), range(y))
usr <- par("usr")
points(x,y)
dev.off()
# create tikz file with rasterised points
im <- readPNG("inner.png",native=TRUE)
tikz("test.tex",7,6,standAlone=TRUE)
plot.new()
plot.window(usr[1:2],usr[3:4],xaxs="i",yaxs="i")
rasterImage(im, usr[1],usr[3],usr[2],usr[4])
axis(1); axis(2); box(); title(xlab="x",ylab="y")
dev.off()
## this works
system("pdflatex test.tex")


## now with ggplot
p <- ggplot(data.frame(x=x, y=y), aes(x=x, y=y)) + geom_point()
## what here?

En este ejemplo, el primeropdflatex falla El segundo tiene éxito debido a la rasterización.

¿Cómo puedo aplicar esto usando ggplot?