Я использую R для анализа данных, ggplot для создания графиков, tikzDevice для их печати и, наконец, латекс для создания отчета. Проблема в том, что большие графики с большим количеством точек терпят неудачу из-за ограничения памяти латекса. Я нашел здесь https://github.com/yihui/tikzDevice/issues/103 решение, которое растрирует график перед печатью файла tikz, что позволяет печатать точки и текст по отдельности.
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?
В этом примере первый pdflatex
терпит неудачу. Второй преуспевает благодаря растеризации.
Как я могу применить это с помощью ggplot?
geom_rasterise
илиgeom_point(raster=T)
;-) - person Jonas   schedule 06.02.2017ggrastr
, как описано в этом ответе (от меня). - person jan-glx   schedule 13.08.2018