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

^{reprexパッケージ（v0.3.0）によって2019-12-07に作成されました}

編集：これらの不完全なオプションはもう必要ありませんが、参照のためにここに残しておきます。

あなたが求めていたものを正確に提供しないが、かなり近い2つの不完全なオプション（少なくとも色を組み合わせる）。

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

^{reprexパッケージ（v0.2.1）によって2019-02-28に作成されました}