R eps esportazione e l'importazione in Word 2010

Question

Ho problemi con l'esportazione dei file EPS da R e l'importazione in Word 2010.

sto usando ggplot2 trame, ad esempio

library(ggplot2) 
p <- qplot(disp,hp,data=mtcars) + stat_smooth() 
p 

anche dopo aver chiamato setEPS() nessuno dei seguenti file produce file che possono essere importati con successo.

ggsave("plot.eps") 

postscript("plot.eps") 
print(p) 
dev.off() 

La cosa strana è che se io produco la trama usando File ->Save As ->Postscript dal menu nella GUI, può essere importato in modo corretto. Tuttavia, quando il documento di Word viene successivamente esportato in formato pdf, i caratteri nell'immagine sono un po 'frastagliati.

Quindi le mie domande sono:

• Che combinazione di impostazioni (ggsave/postscript) mi permette di produrre file EPS che possono essere importati in Word 2010?
• Come posso garantire che i font rimangono chiaro quando il documento di Word viene esportato in formato PDF?

Aggiornamento

Dopo ulteriori indagini ho avuto più fortuna con cairo_ps per produrre le trame. Tuttavia, non viene visualizzato alcun testo quando viene importato in Word.

Inoltre, dopo aver controllato le varie uscite EPS (cairo_ps, salvare dalla GUI, ggsave) in un documento lattice, sembra che il filtro di importazione EPS in Word piuttosto scarsa come la stampa/output PDF non corrisponde alla qualità del documento in lattice. La versione ggsave (che utilizza postscript) ha avuto alcuni problemi con i colori che gli altri due metodi non hanno avuto però.

La conclusione è che questo è un problema di Word e quindi fortune(109) non si applica. Sarei felice di essere a prova contraria, ma io attribuisco la risposta e la grazia a chiunque in grado di fornire i comandi che possono replicare l'uscita dalla GUI in forma di comando.

Answer 1

questo ha funzionato per me ... seguendo i consigli nella pagina postscript aiuto:

postscript("RPlot.eps", height = 4, width = 4, horizontal = FALSE, onefile = FALSE, 
      paper = "special") 
library(ggplot2) 
p <- qplot(disp,hp,data=mtcars) + stat_smooth() 
p 
#geom_smooth: method="auto" and size of largest group is <1000, so using loess. Use 'method = x' to #change the smoothing method. 
#Warning message: 
#In grid.Call.graphics(L_polygon, x$x, x$y, index) : 
# semi-transparency is not supported on this device: reported only once per page 
dev.off() 
#quartz 
#  2 

La roba divertente alla fine si mette sull'avviso che questa è solo una soluzione per Mac-testato, finora comunque.

Modifica: l'ho appena testato con la versione R 2.15.1 (2012-06-22) - "Marshmallows arrostiti": Piattaforma: i386-pc-mingw32/i386 (32-bit) e MS Word 2007 in Win XP e ha funzionato. I comandi erano Insert/Picture .../select eps format/select file.

Edit2: V'è un altro metodo per il salvataggio inoltre direttamente utilizzando il dispositivo PostScript. Il metodo savePlot con una modalità "eps" è disponibile in Windows (ma non nel Mac). Sono d'accordo sul fatto che i caratteri non sono così fluidi come appaiono su un Mac, ma non posso distinguere alcuna differenza di qualità tra il salvataggio con savePlot e l'utilizzo del salvataggio come da una finestra interattiva.

savePlot(filename = "Rplot2", type = "eps", device = dev.cur(), restoreConsole = TRUE) 

savePlot chiamate (.External(CsavePlot, device, filename, type, restoreConsole))

Answer 2

si sono probabilmente meglio di utilizzare wmf come un formato che è possibile creare su Windows.

Answer 3

È possibile utilizzare R in studio a lavorare a maglia file html con tutti i tuoi trame e file HTML poi aprire con Word.

knitr tutorial

Answer 4

ho risolto il problema con l'esportazione di file .eps da R e l'importazione in Word 2010 su Windows 7 utilizzando l'opzione colormodel="rgb" (il default è "srgb") del comando postscript.

postscript("RPlot.eps", height = 4, width = 4, horizontal = FALSE, 
     paper = "special", colormodel = "rgb") 
library(ggplot2) 
p <- qplot(disp,hp,data=mtcars) + stat_smooth(se=FALSE, method="loess") 
p 
dev.off() 

Answer 5

Word infatti non supporta molto bene l'EPS. Il best solution I've seen so far per fare grafici R (trame di base R, trame reticolari o ggplots) lavorano insieme con Office (Word, Powerpoint) è quello di esportare direttamente ad un Powerpoint utilizzando il pacchetto ReporteRs, come in

library(ReporteRs) 
require(ggplot2) 
mydoc = pptx() 
mydoc = addSlide(mydoc, slide.layout = "Title and Content") 
mydoc = addTitle(mydoc, "Plot examples") 
myplot = qplot(Sepal.Length, Petal.Length 
       , data = iris, color = Species 
       , size = Petal.Width, alpha = I(0.7) 
) 
mydoc = addPlot(mydoc, function() print(myplot), vector.graphic=TRUE) 
writeDoc(mydoc, file = "test plot.pptx") 

Questo si traduce in un completamente modificabili, di alta qualità grafico in formato Powerpoint DrawingML a base di vettore nativo di Office, che si può anche facilmente copiare & incolla come metafile avanzato, se ti piace (utilizzando Copia Incolla speciale ... ... Enhanced metafile), e che a differenza dei campi elettromagnetici esportati da R supporta pienamente la trasparenza. Per la produzione finale è anche possibile stamparlo facilmente in PDF da Powerpoint, se necessario, e rimarrà bene in formato vettoriale quindi di buona qualità.

Per una trama di base R la sintassi sarebbe:

library(ReporteRs) 
mydoc = pptx() 
mydoc = addSlide(mydoc, slide.layout = "Title and Content") 
mydoc = addTitle(mydoc, "") 
myplot = function() {return(plot(c(1:100), c(1:100), pch=20))} 
mydoc = addPlot(mydoc, fun=myplot, vector.graphic=TRUE, offx=0,offy=0,width=12, height=8, fontname="Calibri", pointsize=20) 
writeDoc(mydoc, file = "test plot2.pptx")