Как я могу переместить легенду 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")
Это даст вам желаемый результат.
Это не дает вам именно то, о чем вы просите, но по крайней мере поместите цвета вместе:
+theme(legend.position="bottom",legend.direction="vertical")