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