legenda ggplot2 in basso e in orizzontale

Come posso spostare una legenda ggplot2 in fondo alla trama e ruotarla orizzontalmente?

Codice di esempio:

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())

Risultato desiderato (approssimativo):

Se vuoi spostare la posizione della legenda usa il seguente codice:

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")

Questo dovrebbe darti il ​​risultato desiderato.

Ecco come creare il risultato desiderato:

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"))

^{Creato il 07/12/2019 dal pacchetto reprex (v0.3.0)}

Modifica: non sono più necessarie queste opzioni imperfette, ma le lascio qui come riferimento.

Due opzioni imperfette che non ti danno esattamente quello che stavi chiedendo, ma piuttosto vicine (almeno metteranno insieme i colori).

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")

^{Creato il 28/02/2019 dal pacchetto reprex (v0.2.1)}