Reproduzcamos el ejemplo con el que estamos trabajando:

chol <- read.table(url("http://assets.datacamp.com/blog_assets/chol.txt"), header = TRUE)

Ahora estamos representando dos histogramas de ggplot:

library(ggplot2)
plot1 <- ggplot(data=chol, aes(chol$AGE)) + 
geom_histogram(breaks=seq(20, 50, by = 2), 
               col="red", 
               fill="green", 
               alpha = .2) + 
labs(title="Histogram for Age") +
labs(x="Age", y="Count") + 
xlim(c(18,52)) + 
ylim(c(0,100))

plot2 <- ggplot(data=chol, aes(WEIGHT)) + 
    geom_histogram() + 
    labs(title="Histogram for Weigth") +
    labs(x="Weigth", y="Count") +
    ylim(0,50)

Estos son los dos histogramas, primeroplot1 y segundoplot2.

Me gustaría fusionar ambos, representandoplot1 en el eje X yplot2 en el eje Y de la nueva trama. El resultado podría ser similar a esto:

¿Cómo puedo lograr este objetivo?