leyenda ggplot2 hacia abajo y horizontal

¿Cómo puedo mover una leyenda de ggplot2 a la parte inferior del gráfico y girarla horizontalmente?

Código de muestra:

library(reshape2) # for melt
df <- melt(outer(1:4, 1:4), varnames = c("X1", "X2"))
p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value))
p1 + scale_fill_continuous(guide = guide_legend())

Resultado deseado (aproximado):

Si desea mover la posición de la leyenda, utilice el siguiente código:

library(reshape2) # for melt
df <- melt(outer(1:4, 1:4), varnames = c("X1", "X2"))
p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value))
p1 + scale_fill_continuous(guide = guide_legend()) +
    theme(legend.position="bottom")

Esto debería darle el resultado deseado.

A continuación, se explica cómo crear el resultado deseado:

library(reshape2); library(tidyverse)
melt(outer(1:4, 1:4), varnames = c("X1", "X2")) %>%
ggplot() + 
  geom_tile(aes(X1, X2, fill = value)) + 
  scale_fill_continuous(guide = guide_legend()) +
  theme(legend.position="bottom",
        legend.spacing.x = unit(0, 'cm'))+
  guides(fill = guide_legend(label.position = "bottom"))

^{Creado el 2019-12-07 por el paquete reprex (v0.3.0)}

Editar: ya no hay necesidad de estas opciones imperfectas, pero las dejo aquí como referencia.

Dos opciones imperfectas que no te dan exactamente lo que estabas pidiendo, pero bastante cercanas (al menos unirán los colores).

library(reshape2); library(tidyverse)
df <- melt(outer(1:4, 1:4), varnames = c("X1", "X2"))
p1 <- ggplot(df, aes(X1, X2)) + geom_tile(aes(fill = value))
p1 + scale_fill_continuous(guide = guide_legend()) +
 theme(legend.position="bottom", legend.direction="vertical")

p1 + scale_fill_continuous(guide = "colorbar") + theme(legend.position="bottom")

^{Creado el 28/02/2019 por el paquete reprex (v0.2.1)}