ggplot2 chú giải xuống dưới cùng và ngang

Làm cách nào để tôi có thể di chuyển chú giải ggplot2 xuống dưới cùng của cốt truyện và xoay nó theo chiều ngang?

Mã mẫu:

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

Kết quả mong muốn (gần đúng):

Nếu bạn muốn di chuyển vị trí của chú giải, vui lòng sử dụng mã sau:

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

Điều này sẽ cung cấp cho bạn kết quả mong muốn.

Đây là cách tạo ra kết quả mong muốn:

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

^{Được tạo vào ngày 12 tháng 12 năm 2019 bởi gói reprex (v0.3.0)}

Chỉnh sửa: không cần những tùy chọn không hoàn hảo này nữa, nhưng tôi để chúng ở đây để tham khảo.

Hai tùy chọn không hoàn hảo không cung cấp cho bạn chính xác những gì bạn yêu cầu, nhưng khá gần nhau (ít nhất sẽ kết hợp các màu lại với nhau).

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

^{Được tạo vào 2019-02-28 bởi gói reprex (v0.2.1)}