R eps eksport i import do programu Word 2010

Question

Mam problemy z eksportowania plików EPS z R i importowanie do programu Word 2010.

Używam ggplot2 działek, np

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

Nawet po wywołaniu setEPS() żadne z poniższych nie tworzy plików, które można pomyślnie zaimportować.

ggsave("plot.eps") 

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

Najdziwniejsze jest to, że jeśli będę produkować działkę przy użyciu File ->Save As ->Postscript z menu w GUI, może być importowany poprawnie. Jednakże, gdy dokument Word jest następnie eksportowany jako plik pdf, czcionki na grafice są trochę postrzępione.

Więc moje pytania to:

• Co kombinacja (ggsave/postscript) Ustawienia pozwala mi produkować pliki EPS, które mogą być importowane do programu Word 2010?
• Jak zapewnić, że czcionki pozostaną czyste, gdy dokument Word zostanie wyeksportowany jako plik pdf?

Aktualizacja

Po więcej dochodzenia miałem więcej szczęścia z cairo_ps produkować działek. Jednak żaden tekst nie pojawia się po zaimportowaniu do programu Word.

Ponadto, po sprawdzeniu różnych wyjść eps (cairo_ps, zapisz z GUI, ggsave) w dokumencie lateksu, wygląda na to, że filtr importu eps w programie Word jest dość słaby, ponieważ wydruk/plik PDF nie pasuje do jakości dokumentu latex'd. Wersja ggsave (która używa postscript) miała pewne problemy z kolorami, które nie miały dwóch pozostałych metod.

Wniosek jest taki, że jest to problem dotyczący programu Word i dlatego nie ma zastosowania fortune(109). Byłbym szczęśliwy, gdyby udowodniono, że jest inaczej, ale nagrodzę odpowiedź i nagrodę każdemu, kto może dostarczyć polecenia, które mogą replikować dane wyjściowe z GUI w postaci polecenia.

Answer 1

Ten pracował dla mnie ... po porady na stronie postscript pomocy:

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 

Zabawne rzeczy na końcu stawia się na ogłoszeniu, że jest to tylko Mac sprawdzone rozwiązanie, tak daleko i tak.

Edycja: Właśnie testowałem to z R wersji 2.15.1 (2012-06-22) - "Palone pianki": Platforma: i386-pc-mingw32/i386 (32-bit) i MS Word 2007 w Win XP i zadziałało. Polecenia to Insert/Picture .../select eps format/select file.

Edycja2: Istnieje inna metoda zapisu oprócz bezpośredniego użycia urządzenia postscriptowego. Metoda savePlot w trybie "eps" jest dostępna w systemie Windows (ale nie na Macu). Zgadzam się, że czcionki nie są tak gładkie, jak na Macu, ale nie widzę różnicy w jakości pomiędzy zapisywaniem z savePlot i używaniem zapisu z interaktywnego okna.

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

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

Answer 2

Prawdopodobnie lepiej użyć formatu wmf jako formatu, który można utworzyć w systemie Windows.

Answer 3

Można użyć R studio na drutach pliki html ze wszystkich działek, a następnie otwartych plików HTML w programie Word.

knitr tutorial

Answer 4

I rozwiązać problem z eksportowania plików .eps z R i importowanie do programu Word 2010 na Windows 7 przy użyciu opcji colormodel="rgb" (domyślnie "srgb") dowodzenia w 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 rzeczywiście nie obsługuje bardzo dobrze EPS. best solution I've seen so far aby wykresy R (działek zasady R, działki kratowe lub ggplots) współpracować z Office (Word, PowerPoint) jest je eksportować bezpośrednio do Powerpoint przy użyciu pakietu ReporteRs, jak w

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") 

Powoduje to w pełni edytowalny, wysokiej jakości wykres Powerpoint w natywnym formacie DrawingML opartym na wektorze wektorowym, który można również z łatwością wkleić w postaci ulepszonego metapliku, jeśli chcesz (używając polecenia Kopiuj ... Wklej specjalnie ... Rozszerzony metaplik), i które w odróżnieniu od EMF wyeksportowanych z R również w pełni popiera przejrzystość. Do ostatecznej produkcji można również łatwo wydrukować go do PDF z Powerpoint, jeśli zajdzie taka potrzeba, i pozostanie ładnie w formacie wektorowym, a następnie w dobrej jakości.

Na działce baza R składnia byłoby:

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")