, EPS .
PDF, :
ggplot(data = data, aes(x=X1, y=X2)) +
geom_point(alpha=0.4) +
stat_smooth(se=T, method="lm")
dev.copy2pdf(file="plot.pdf",out.type="cairo", width=10, height=7.5)
PDF , EPS pdftops, Inkscape Adobe Illustrator.
PNG , , , ...
Powerpoint, export ( ReporteRs), :
library(export)
library(ggplot2)
data=data.frame(replicate(2,rnorm(1000)))
ggplot(data = data, aes(x=X1, y=X2)) +
geom_point(alpha=0.4) +
stat_smooth(se=T, method="lm")
graph2ppt(file="plot.pptx", width=8, height=6)

: EPS, , cairo_ps(), , . cairo_ps() fallback_resolution , ( ). , :
cairo_ps(file = "test.eps", onefile = FALSE, fallback_resolution = 600)
qplot(Sepal.Length, Petal.Length, data = iris, color = Species, size = Petal.Width, alpha = I(0.7))
dev.off()
, export:
graph2eps(file="plot.pptx", width=8, height=6, cairo=TRUE, fallback_resolution=600)