ggplot2 легенда до низу та горизонталі

Як я можу перемістити легенду про ggplot2 до нижньої частини сюжету та повернути її по горизонталі?

Приклад коду:

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

Бажаний (приблизний) результат:

Якщо ви хочете перемістити позицію легенди, будь ласка, використовуйте наступний код:

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

Це має дати бажаний результат.

Ось як створити бажаний результат:

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

^{Створено 2019-12-07 пакетом reprex (v0.3.0)}

Редагувати: більше не потрібні ці недосконалі варіанти, але я залишаю їх тут для довідки.

Два недосконалі варіанти, які не дають тобі саме того, про що ви просили, але досить близькі (принаймні поєднають кольори разом).

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

^{Створено 2019-02-28 пакетом reprex (v0.2.1)}