Hi
Dieter Menne wrote: > Dear UseRs called Hadley, or Paul, > > I am trying to print an edited ggplot2/grid graphics to a metafile. With the > commented line below it works, but when I edit the plot by uncommenting the > line, it fails, because it's illegal to have 2 graphics in a metafile. It > works with pdf, but even then I get two plots, which is a nuisance. > > I found a workaround by using windows(); savePlot, but it only works in > interactive mode, not when called with something like (Windows) > > rterm --no-save < printit.r > > Any ideas? You can capture the ggplot drawing as a grid grob (gTree), edit that (no drawing occurs to this point), and then draw it ... gridggplot <- grid.grabExpr(print(ggplot(mtcars, aes(x=cyls)) + geom_bar())) modgridggplot <- editGrob(gridggplot, "xaxis::labels::label.text", just=c("center","center"), grep=TRUE, global=TRUE) win.metafile(file="bar.emf") grid.draw(modgridggplot) dev.off() Paul > Dieter > > #------ > library(ggplot2) > win.metafile(file="bar.emf") > mtcars$cyls = factor(mtcars$cyl, > labels=c("four\ncylinders","six\ncylinders","eight\ncylinders")) > ggplot(mtcars, aes(x=cyls)) + geom_bar() > #grid.gedit("xaxis::labels::label.text",just=c("center","center")) > dev.off() > > ______________________________________________ > R-help@stat.math.ethz.ch mailing list > https://stat.ethz.ch/mailman/listinfo/r-help > PLEASE do read the posting guide http://www.R-project.org/posting-guide.html > and provide commented, minimal, self-contained, reproducible code. -- Dr Paul Murrell Department of Statistics The University of Auckland Private Bag 92019 Auckland New Zealand 64 9 3737599 x85392 [EMAIL PROTECTED] http://www.stat.auckland.ac.nz/~paul/ ______________________________________________ R-help@stat.math.ethz.ch mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.