Hi,
I am using ggplot2 and arrange differnet plots into
one viewport by dividing it into rows and columns:
pushViewport(viewport(layout = grid.layout(nrow=2,ncol=2,widths = unit(c(50,
50), "mm"),heights = unit(c(50, 50), "mm"))))
with following function I can extract the legend of a previously defined
plot (ggplot2-plot) as a grob:
legend <- function(plot){
tmp <- ggplot_gtable(ggplot_build(plot))
leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
legend <- tmp$grobs[[leg]]
}
The plot themselves are sent to the viewport with:
vplayout <- function(x, y)
viewport(layout.pos.row = x, layout.pos.col = y)
print(p1, vp = vplayout(1, 1))
But, how can I put the legend into the viewport (e.g. colum=1,row=2)...
I tried with draw.grob() which works, but then I can define the posiiton...
This grid-arraning-viewport stuff is very confusing to me, so maybe someone can
help out here...
/johannes
--
Jetzt informieren: http://mobile.1und1.de/?ac=OM.PW.PW003K20328T7073a
______________________________________________
R-help@r-project.org 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.
