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에 생성됨}

편집 : 더 이상 이러한 불완전한 옵션이 필요하지 않지만 참조를 위해 여기에 남겨 둡니다.

당신이 요구 한 것을 정확히 제공하지는 못하지만 매우 근접한 두 가지 불완전한 옵션 (적어도 색상을 합칠 것임).

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)로 생성됨}