poner - leyenda ggplot2 en la parte inferior y horizontal

manual ggplot2

Question

¿Cómo puedo mover una leyenda de ggplot2 a la parte inferior de la gráfica y girarla horizontalmente?

Código de muestra:

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

Resultado deseado (aproximado):

Answer 1

Esto no le da exactamente lo que estaba pidiendo, pero al menos unirá los colores:

+theme(legend.position="bottom",legend.direction="vertical")

Answer 2

Si desea mover la posición de la leyenda, utilice el siguiente código:

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

Esto debería darte el resultado deseado.