gridextra

I want to obtained an unbalanced grid of plots such as require(ggplot2) require(gridExtra) df <- data.frame(value1 = rnorm(200), value2 = rnorm(200), value3 = rnorm(200), value4 = rnorm(200)) p1 <- ggplot(df) + geom_density(aes(x=value1)) p2 <- ggplot(df) + geom_density(aes(x=value2)) p3 <- ggplot(df) + geom_density(aes(x=value3)) p4 <- ggplot(df) + geom_density(aes(x=value4)) grid.arrange(p1, arrangeGrob(p2,p3,p4, ncol=3), heights=c(2.5/4, 1.5/4), ncol=1) but using a function myplot <- function(i){ p <- ggplot(df) + geom_density(aes_string(x=i)) return(p) } and an lapply call p <- lapply(c(

I am producing four plots using xyplot (lattice) and further combine them with grid.arrange (gridExtra). I would like to obtain a graph with a common global legend. The closest that I have reached is the following. They have to be in a matrix layout, otherwise an option would be to put them in a column and include only a legend for the top or bottom one. # Load packages require(lattice) require(gridExtra) # Generate some values x1<-rnorm(100,10,4) x2<-rnorm(100,10,4) x3<-rnorm(100,10,4) x4<-rnorm(100,10,4) y<-rnorm(100,10,1) cond<-rbinom(100,1,0.5) groups<-sample(c(0:10),100,replace=TRUE)

Problem: I create a table using the gridExtra package: require("gridExtra") # Prepare data frame col1 = c(rep("A", 3), rep("B", 2), rep("C", 5)) col2 = c(rep("1", 4), rep("2", 3), rep("3", 3)) col3 = c(1:10) df = data.frame(col1, col2, col3) # Create table grid.arrange(tableGrob(df, show.rownames=F)) The output: Question: I would like to get rid of the repeating row entries and achieve spanning entries which look like this (this image is a mockup made with Photoshop): Any ideas how to achieve this programmatically in R? I would use gtable, and take advantage of its more flexible framework,