легенда 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())

нужные (приблизительные) итоги:

2 80
javascript ggplot2

2 ответа:

Если вы хотите, чтобы переместить позицию легенды, пожалуйста, используйте следующий код: 

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

Это должно дать вам желаемого результата. Legend at bottom

101

Это не дает вам именно то, что вы просили, но по крайней мере, собрать цвета:

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