set ggplot plots to have same x-axis width and same space between dot plot rows

Question

Updated question to incorporate a partial solution already answered on SO I am using `ggplot2` to create several plots and `gridExtra` to combine the plots into one figure with several panels, all in one column. My problem is that I can't get the space between the dot plot rows to be consistent in both plots. ``` library(ggplot2) # data dat1 <- data.frame(VARIABLES=c("Item 1", "Item 2 is a little longer"), est=c(.3, .5), min=c(.2, .4), max=c(.4, .7)) dat2 <- data.frame(VARIABLES=c("Item 3", "Item 4 is even longer if you can believe it", "And there is a third item", "And a fourth item"), est=c(.3, .5, .3, .5), min=c(.2, .4, .2, .4), max=c(.4, .7, .4, .7)) dat <- c("dat1", "dat2") labs <- c("Plot 1", "Plot2") # create plots count <- 1 for (i in dat) { p <- ggplot(get(i), aes(x=reorder(as.character(VARIABLES), est), y=est)) + geom_pointrange(aes(ymin=min, ymax=max), linetype="dashed") + geom_point(size=3) + ylim(-1,1) + theme_bw() + labs(title = labs[count]) + theme(legend.position="none…

Accepted Answer

```
library(gridExtra)
library(grid)

gb1 <- ggplot_build(dat1.plot)
gb2 <- ggplot_build(dat2.plot)

# work out how many y breaks for each plot
n1 <- length(gb1$layout$panel_params[[1]]$y.labels)
n2 <- length(gb2$layout$panel_params[[1]]$y.labels)

gA <- ggplot_gtable(gb1)
gB <- ggplot_gtable(gb2)

g <- rbind(gA, gB)

# locate the panels in the gtable layout
panels <- g$layout$t[grepl("panel", g$layout$name)]
# assign new (relative) heights to the panels, based on the number of breaks
g$heights[panels] <- unit(c(n1,n2),"null")

grid.newpage()
grid.draw(g)
```

set ggplot plots to have same x-axis width and same space between dot plot rows

Solution

Problem

Related problems