Hi Paul, Thank you for your illustrative explanation and help with rewriting the code. It works now and, more importantly, I understand what is happening and why.
Best regards, Satu >-----Original Message----- >From: Paul Murrell [mailto:p...@stat.auckland.ac.nz] >Sent: 27. marraskuuta 2014 22:37 >To: Helske Satu; r-help@r-project.org >Subject: Re: [R] Using grid.layout inside grid.layout with grid package: >naming of >the viewports affects plotting > >Hi > >The essence of your problem is that seekViewport() is much more ambiguous >than downViewport(). > >Your set up involves creating a hierarchy of viewports four deep, with eight >viewport paths (vpPaths) in total ... > >vp1::A::vp2::plot1 > ::plot2 > ::B::vp3::plot1 > ::plot2 > ::C::vp4::plot1 > ::plot2 > ::D::vp5::plot1 > ::plot2 > >... and an important feature of that set of vpPaths is that the viewport name >"plot1" (and "plot2") occurs more than once. > >That is not necessarily a problem because you can distinguish between the >different instances of "plot1" with complete paths, like this ... > >downViewport("vp1::B::vp3::plot1") > >... or by navigating part way down the tree of viewports first to a point where >there is only one "plot1" viewport below it ... > >downViewport("B") >downViewport("plot1") > >However, seekViewport("plot1") does NOT do either of those things. It does ... > >upViewport(0) # go right up to the ROOT viewport >downViewport("plot1") > >... and that will just find the first "plot1" match, which is the one below >viewport >"A". > >The seekViewport() function should not therefore be relied on in >non-interactive >settings. In fact, if you are writing code for general use, you should >probably be >much more disciplined about how you navigate between your viewports and >make use of upViewport() and unambiguous >downViewport() calls so that you know which viewport you will end up in. > The code below demonstrates a more disciplined version of your viewport set >up ... > >library(grid) >stackedplot <- function(main=""){ > top.vp <- viewport( > layout=grid.layout(2, 1)) > p1 <- viewport(layout.pos.col=1, layout.pos.row=1, name="plot1") > p2 <- viewport(layout.pos.col=1, layout.pos.row=2, name="plot2") > splot <- vpTree(top.vp, vpList(p1,p2)) > pushViewport(splot) > upViewport() > downViewport("plot1") > grid.rect(width=unit(0.9, "npc"), height=unit(0.9, "npc")) > grid.text(paste(main, 1)) > upViewport() > downViewport("plot2") > grid.rect(width=unit(0.9, "npc"), height=unit(0.9, "npc")) > grid.text(paste(main, 1)) > upViewport(2) > } > >grid.newpage() >multitop.vp <- viewport(layout=grid.layout(2,2)) >pl1 <- viewport(layout.pos.col=1, layout.pos.row=1, name="A") >pl2 <- viewport(layout.pos.col=1, layout.pos.row=2, name="B") >pl3 <- viewport(layout.pos.col=2, layout.pos.row=1, name="C") >pl4 <- viewport(layout.pos.col=2, layout.pos.row=2, name="D") vpall <- >vpTree(multitop.vp, vpList(pl1,pl2,pl3,pl4)) >pushViewport(vpall) >upViewport() >downViewport("A") >stackedplot(main="A") >upViewport() >downViewport("B") >stackedplot(main="B") >upViewport() >downViewport("C") >stackedplot(main="C") >upViewport() >downViewport("D") >stackedplot(main="D") >upViewport(2) > >Hope that helps > >Paul > >On 11/27/14 00:16, Helske Satu wrote: >> R version 3.1.1 (2014-07-10) >> Platform: i386-w64-mingw32/i386 (32-bit) >> >> locale: >> [1] C >> >> attached base packages: >> [1] grid stats graphics grDevices utils datasets methods >> base >> >> loaded via a namespace (and not attached): >> [1] tools_3.1.1 >> >> >> I have a plotting function to produce plots with stacked plots (for >> simplicity, >here two rectangles). >> >> library(grid) >> stackedplot <- function(main=""){ >> top.vp <- viewport( >> layout=grid.layout(2, 1)) >> p1 <- viewport(layout.pos.col=1, layout.pos.row=1, name="plot1") >> p2 <- viewport(layout.pos.col=1, layout.pos.row=2, name="plot2") >> splot <- vpTree(top.vp, vpList(p1,p2)) >> pushViewport(splot) >> seekViewport("plot1") >> grid.rect(width=unit(0.9, "npc"), height=unit(0.9, "npc")) >> seekViewport("plot2") >> grid.rect(width=unit(0.9, "npc"), height=unit(0.9, "npc")) >> } >> >> For creating a 2x2 grid with four stacked plots I tried to use the following >> code: >> >> grid.newpage() >> multitop.vp <- viewport(layout=grid.layout(2,2)) >> pl1 <- viewport(layout.pos.col=1, layout.pos.row=1, name="A") >> pl2 <- viewport(layout.pos.col=1, layout.pos.row=2, name="B") >> pl3 <- viewport(layout.pos.col=2, layout.pos.row=1, name="C") >> pl4 <- viewport(layout.pos.col=2, layout.pos.row=2, name="D") vpall <- >> vpTree(multitop.vp, vpList(pl1,pl2,pl3,pl4)) >> pushViewport(vpall) >> seekViewport("A") >> stackedplot(main="A") >> seekViewport("B") >> stackedplot(main="B") >> seekViewport("C") >> stackedplot(main="C") >> seekViewport("D") >> stackedplot(main="D") >> >> This does not work as all the plots are plotted in the same cell of the grid >(viewport A). However, if I plot them in a reversed order, the plots arrange as >was supposed to: D to D, C to C and so on. >> >> seekViewport("D") >> stackedplot(main="D") >> seekViewport("C") >> stackedplot(main="C") >> seekViewport("B") >> stackedplot(main="B") >> seekViewport("A") >> stackedplot(main="A") >> >> I tried with different names and found out that if I plot in reversed >> alphabetical >order everything works fine. Once I try to plot in a viewport with a name >earlier >in alphabetical order, all other plots thereafter are plotted in the same >viewport. >> >> Why is this happening? >> >> Regards, >> Satu Helske >> >> [[alternative HTML version deleted]] >> >> ______________________________________________ >> 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. >> > >-- >Dr Paul Murrell >Department of Statistics >The University of Auckland >Private Bag 92019 >Auckland >New Zealand >64 9 3737599 x85392 >p...@stat.auckland.ac.nz >http://www.stat.auckland.ac.nz/~paul/ ______________________________________________ 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.
