[R] Arranging ggplot2 objects with ggplotGrob()

[H]

On 07/24/2020 05:56 PM, Rui Barradas wrote:
> Hello,
>
> I've just tried it.
>
> library(ggplot2)
> #library(grid)
> library(cowplot)
>
> s <- ggplot(data = subset(iris, Species == 'virginica'), aes(Sepal.Length, Sepal.Width)) + geom_point()
> v <- ggplot(data = subset(iris, Species == 'setosa'), aes(Sepal.Length, Sepal.Width)) + geom_point()
>
> #g2 <- ggplotGrob(s)
> #g3 <- ggplotGrob(v)
> #g <- rbind(g2, g3, size = "first")
>
> cowplot::plot_grid(s, v, align = "h", nrow = 2, rel_heights = 2:1)
>
>
> Hope this helps,
>
> Rui Barradas
>
> Às 19:57 de 24/07/2020, Felipe Carrillo via R-help escreveu:
>> What about cowplot?
>> https://cran.r-project.org/web/packages/cowplot/vignettes/introduction.html
>>
>>      On Friday, July 24, 2020, 11:51:17 AM PDT, H <agents using meddatainc.com> wrote:
>>     On 07/24/2020 02:03 PM, Jeff Newmiller wrote:
>>> The set of people interested in helping when you supply a minimal reproducible example is rather larger than the set of people willing to read the documentation for you (hint) and guess what aspect of alignment you are having trouble with.
>>>
>>> On July 24, 2020 10:46:57 AM PDT, H <agents using meddatainc.com> wrote:
>>>> On 07/24/2020 01:14 PM, John Kane wrote:
>>>>> <i>Well, I am not looking for help debugging my code but for
>>>> information to better understand arranging plots vertically. The code
>>>> above aligns them horizontally as expected.</i>
>>>>> Sigh, we know the code works but we do not know what the plots are
>>>> and we cannot play around with them to see if we can help you if we
>>>> have nothing to work with.
>>>>> On Fri, 24 Jul 2020 at 12:12, H <agents using meddatainc.com
>>>> <mailto:agents using meddatainc.com>> wrote:
>>>>>      On 07/24/2020 05:29 AM, Erich Subscriptions wrote:
>>>>>      > Hav a look at the packages cowplot and patchwork
>>>>>      >
>>>>>      >> On 24.07.2020, at 02:36, H <agents using meddatainc.com
>>>> <mailto:agents using meddatainc.com>> wrote:
>>>>>      >>
>>>>>      >> I am trying to arrange two plots vertically, ie plot 2 below
>>>> plot 1, where I want the plots to align columnwise but have a height
>>>> ratio of eg 3:1.
>>>>>      >>
>>>>>      >> My attempts so far after consulting various webpages is that
>>>> the following code aligns them columnwise correctly but I have, so far,
>>>> failed in setting the relative heights...
>>>>>      >>
>>>>>      >> g2<-ggplotGrob(s)
>>>>>      >> g3<-ggplotGrob(v)
>>>>>      >> g<-rbind(g2, g3, size = "first")
>>>>>      >> g$widths<-unit.pmax(g2$widths, g3$widths)
>>>>>      >>
>>>>>      >> what would the appropriate statement for the relative heights
>>>> to add here be?
>>>>>      >>
>>>>>      >> grid.newpage()
>>>>>      >> grid.draw(g)
>>>>>      >>
>>>>>      >> Thank you!
>>>>>      >>
>>>>>      >> ______________________________________________
>>>>>      >> R-help using r-project.org <mailto:R-help using r-project.org> mailing
>>>> list -- To UNSUBSCRIBE and more, see
>>>>>      >> 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.
>>>>>      So this is not possible without using one of those two packages?
>>>> I got the impression I should be able to use grid.arrange to do so but
>>>> was not able to get it to work without disturbing the width alignment
>>>> above...
>>>>>      ______________________________________________
>>>>>      R-help using r-project.org <mailto:R-help using r-project.org> mailing list
>>>> -- To UNSUBSCRIBE and more, see
>>>>>      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.
>>>>>
>>>>> -- 
>>>>> John Kane
>>>>> Kingston ON Canada
>>>> No need to play around with anything. I am simply looking for
>>>> assistance on how to use eg arrangeGrob to not only align two plots
>>>> columnwise but also adjust their heights relative to each other rather
>>>> than 1:1.
>>>>
>>>> Can arrangeGrob() be used for that?
>>>>
>>>>
>>>>      [[alternative HTML version deleted]]
>>>>
>>>> ______________________________________________
>>>> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>>>> 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.
>> Look at https://cran.r-project.org/web/packages/egg/vignettes/Ecosystem.html where there are two mpg charts, one above the other. What would I need to add to:
>>
>> |library(gtable) g2 <-ggplotGrob(p2) g3 <-ggplotGrob(p3) g <-rbind(g2, g3, size = "first") g$widths <-unit.pmax(g2$widths, g3$widths) grid.newpage() grid.draw(g) |
>>
>> |to make the second chart 1/2 the size of the top one?|
>>
>> ||
>>
>>
>>      [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> 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.
>>        [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> R-help using r-project.org mailing list -- To UNSUBSCRIBE and more, see
>> 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.
>
>
Thank you for your example. However, this does not align the plot areas horizontally. It happens to do so in this example because the y-axis labels are the same length etc but when this is not the case, it fails.