Align x axes of box plot and line plot using ggplot

Question

Im trying to align the x-axes of a bar plot and line plot in one window frame using ggplot. Here is the fake data I'm trying to do it with.

library(ggplot2)
library(gridExtra)
m <- as.data.frame(matrix(0, ncol = 2, nrow = 27))
colnames(m) <- c("x", "y")
for( i in 1:nrow(m))
{
  m$x[i] <- i
  m$y[i] <- ((i*2) + 3)
}

My_plot <- (ggplot(data = m, aes(x = x, y = y)) + theme_bw())
Line_plot <- My_plot + geom_line()
Bar_plot <- My_plot + geom_bar(stat = "identity")

grid.arrange(Line_plot, Bar_plot)

Thank you for your help.

score 7 · Accepted Answer · answered May 22 '15 at 18:30

7

@eipi10 answers this particular case, but in general you also need to equalize the plot widths. If, for example, the y labels on one of the plots take up more space than on the other, even if you use the same axis on each plot, they will not line up when passed to grid.arrange:

axis <- scale_x_continuous(limits=range(m$x))

Line_plot <- ggplot(data = m, aes(x = x, y = y)) + theme_bw() + axis + geom_line()

m2 <- within(m, y <- y * 1e7)
Bar_plot <- ggplot(data = m2, aes(x = x, y = y)) + theme_bw() + axis + geom_bar(stat = "identity")

grid.arrange(Line_plot, Bar_plot)

enter image description here

In this case, you have to equalize the plot widths:

Line_plot <- ggplot_gtable(ggplot_build(Line_plot))
Bar_plot <- ggplot_gtable(ggplot_build(Bar_plot))

Bar_plot$widths <-Line_plot$widths 

grid.arrange(Line_plot, Bar_plot)

enter image description here

answered May 22 '15 at 18:30

Matthew Plourde

43,932
7
96
113

Does this method also work for lining up the y-axes of each plot using the heights? – JakeC May 27 '15 at 11:50
I imagine. Try it out? – Matthew Plourde May 27 '15 at 12:29
@JakeConway Yes, it does. But see this answer for a more concise approach: http://stackoverflow.com/questions/30492434/show-ggplot2-title-without-reserving-space-for-it/30492601#30492601 – Matthew Plourde May 28 '15 at 13:54

eipi10 · Answer 2 · 2015-05-22T17:58:17.497

1

The gridlines on the x axes will be aligned if you use scale_x_continuous to force ggplot to use limits you specify.

My_plot <- ggplot(data = m, aes(x = x, y = y)) + theme_bw() + 
              scale_x_continuous(limits=range(m$x))

Now, when you add the layers, the axes will share the common scaling.

edited May 22 '15 at 17:58

answered May 22 '15 at 17:52

eipi10

91,525
24
209
285

Align x axes of box plot and line plot using ggplot

2 Answers2

Linked