Légende ggplot2 en bas et à l'horizontale

Comment puis-je déplacer une légende ggplot2 vers le bas du graphique et la tourner horizontalement?

Exemple de code:

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

Résultat souhaité (approximatif):

Si vous souhaitez déplacer la position de la légende, veuillez utiliser le code suivant:

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

Cela devrait vous donner le résultat souhaité.

Voici comment créer le résultat souhaité:

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

^{Créé le 2019-12-07 par le package reprex (v0.3.0)}

Edit: plus besoin de ces options imparfaites, mais je les laisse ici pour référence.

Deux options imparfaites qui ne vous donnent pas exactement ce que vous vouliez, mais assez proches (vont au moins rassembler les couleurs).

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

^{Créé le 2019-02-28 par le package reprex (v0.2.1)}