Warm tip: This article is reproduced from stackoverflow.com, please click
ggplot2 plot r egg

Aligning multiple plot in egg::ggarrange

发布于 2020-04-16 12:34:59

I'm making a multiplot with egg::ggarrange for 5 figures. I'm wondering how can I aligning plot area of b,d and c,e in vertical position?

PS: Figure b and c have to be in different decimal in y axis.

    library(egg)
    library(ggplot2)

    data("ToothGrowth")
    data("mtcars")

    P1 <- ggplot(mtcars, aes(x = wt, y = mpg, color=cyl))+
          geom_point()       # Add correlation coefficient

    P2 <- ggboxplot(ToothGrowth, x = "dose", y = "len",
             color = "dose", palette = "jco")+
             scale_y_continuous(breaks=c(10.5, 20.5, 30.5))

    P3 <- ggdotplot(ToothGrowth, x = "dose", y = "len",
             color = "dose", palette = "jco", binwidth = 1)


    ggarrange(P1,
        ggarrange(P2, P2, ncol = 2, labels = c("b", "d"), align = "h",widths = c(1.5,2)), 
        ggarrange(P3, P3, ncol = 2, labels = c("c", "e"), align = "h",widths = c(1.5,2)), 
      nrow = 3, 
      heights = c(1.5, 1, 1),
      labels = "a" 
      )

enter image description here

Questioner
Jellz
Viewed
10
分享
Allan Cameron 2020-02-04 20:51

You could just make the y scales equal, or at least have the same number of decimal points:

    library(egg)
    library(ggplot2)
    library(ggpubr)

    data("ToothGrowth")
    data("mtcars")

    P1 <- ggplot(mtcars, aes(x = wt, y = mpg, color=cyl))+
          geom_point()       # Add correlation coefficient

    P2 <- ggboxplot(ToothGrowth, x = "dose", y = "len",
             color = "dose", palette = "jco")+
             scale_y_continuous(breaks=c(10.5, 20.5, 30.5))

    P3 <- ggdotplot(ToothGrowth, x = "dose", y = "len",
             color = "dose", palette = "jco", binwidth = 1) +
      scale_y_continuous(breaks=c(10.5, 20.5, 30.5))


    ggarrange(P1,
        ggarrange(P2, P2, ncol = 2, labels = c("b", "d"), align = "h",widths = c(1.5,2)), 
        ggarrange(P3, P3, ncol = 2, labels = c("c", "e"), align = "h",widths = c(1.5,2)), 
      nrow = 3, 
      heights = c(1.5, 1, 1),
      labels = "a" 
      )

enter image description here

Jellz 2020-02-05 08:33:33

Dear Allan, thank you very much. the figure listed is only a sample. In my case, the problem is just because of the different decimal in y axis. If it has to be different decimal, do you have a solution for this problem? Thank you.

Allan Cameron 2020-02-05 08:38:50

@Jellz you could rotate the numbers on the y axis 90 degrees, or round them to a specific number of decimal places perhaps?

Allan Cameron 2020-02-05 08:43:52

@Jeliz or specify the labels as character strings and pad the short ones with spaces?

Allan Cameron 2020-02-05 15:59:33

@Jeliz or use coord_fixed

Jellz 2020-02-05 19:50:04

@Dear Allan, it is a really good idea to specify the lables as stings. Thank you very much!!!

Related issues

1
Filter in rows of all columns with specific conditions
2
ggplot2 both axis labels inside plot area
3
Error: could not find function ... in R
4
Create loading messages that will change based on loading time of plot in a shiny app
5
cut.default error in heatmap generation R
6
Problem with apply function in r: it's applied only in the first column
7
R to create a tally of previous events within a sliding window time period
8
combine many columns from one dataframe into another dataframe using setDT
9
Display download button in a tab based on actions in other tabs of a shiny dashboard
10
Parsing dates in R with weird format