ggplot2 Legende nach unten und horizontal

Wie kann ich eine ggplot2-Legende an den unteren Rand des Diagramms verschieben und horizontal drehen?

Beispielcode:

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

Gewünschtes (ungefähres) Ergebnis:

Wenn Sie die Position der Legende verschieben möchten, verwenden Sie bitte den folgenden 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()) +
    theme(legend.position="bottom")

Dies sollte Ihnen das gewünschte Ergebnis liefern.

So erstellen Sie das gewünschte Ergebnis:

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

^{Erstellt am 07.12.2019 durch das reprex-Paket (v0.3.0)}

Bearbeiten: Diese unvollständigen Optionen werden nicht mehr benötigt, aber ich lasse sie hier als Referenz.

Zwei unvollständige Optionen, die Ihnen nicht genau das geben, wonach Sie gefragt haben, aber ziemlich nahe beieinander liegen (zumindest die Farben zusammenfügen).

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

^{Erstellt am 28.02.2019 durch das reprex-Paket (v0.2.1)}