ggplot2 göstergesini aşağı ve yatay

Bir ggplot2 lejantını arsanın altına nasıl taşıyabilir ve yatay olarak döndürebilirim?

Basit kod:

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

İstenen (yaklaşık) sonuç:

Göstergenin konumunu taşımak istiyorsanız, lütfen aşağıdaki kodu kullanın:

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

Bu size istenen sonucu vermelidir.

İstenilen sonucun nasıl oluşturulacağı aşağıda açıklanmıştır:

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 tarihinde reprex paketi (v0.3.0) tarafından oluşturuldu}

Düzenleme: artık bu kusurlu seçeneklere gerek yok, ancak bunları referans için burada bırakıyorum.

Size tam olarak istediğiniz şeyi vermeyen, ancak oldukça yakın olan (en azından renkleri bir araya getirecek olan) iki kusurlu seçenek.

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 paketi (v0.2.1) tarafından 2019-02-28 tarihinde oluşturuldu}