ggplot2 ke bawah dan horizontal

Bagaimana cara memindahkan legenda ggplot2 ke dasar plot dan memutarnya secara horizontal?

Kode sampel:

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

Hasil yang diinginkan (perkiraan):

Jika ingin memindahkan posisi legenda silahkan gunakan kode berikut:

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

Ini akan memberi Anda hasil yang diinginkan.

Berikut adalah cara membuat hasil yang diinginkan:

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

^{Dibuat pada 2019-12-07 oleh paket reprex (v0.3.0)}

Sunting: tidak perlu lagi opsi yang tidak sempurna ini, tetapi saya meninggalkannya di sini untuk referensi.

Dua opsi tidak sempurna yang tidak memberikan apa yang Anda minta, tetapi cukup dekat (setidaknya akan menyatukan warna).

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

^{Dibuat pada 2019-02-28 oleh paket reprex (v0.2.1)}