ggplot2 Legende nach unten und horizontal

Question

Wie kann ich eine ggplot2-Legende an das Ende der Handlung verschieben und horizontal drehen?

Beispielcode:

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

Gewünschte (ungefähr) Ergebnis:

Answer 1

Wenn Sie die Position der Legende bitte den folgenden Code verwenden verschieben möchten:

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

Dies sollte Ihnen das DES geben Ergebnis.

Answer 2

Dies gibt Ihnen nicht genau, was Sie wurden gefragt, aber zumindest die Farben zusammen:

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