The titles of multiple legends do not align with position="bottom" in ggplot2

Question

Consider this plot:

library(scales)
library(ggplot2) 
df.m <- data.frame(Var1=c("A","B"), Var2=c("B", "A"), Similarity=c(97.5,92.5),
                       Rank=c("In", "Out"))

p <- ggplot(df.m, aes(Var1, Var2, fill=Similarity, col=Rank)) +
  geom_tile() +
  theme_bw()+
  theme(legend.position="bottom")+
  xlab("") +
  ylab("") +
  scale_fill_gradient2(low = muted("red"),
                       mid = "white", high = muted("blue")) +
  scale_color_manual(values=c("black", "gold"))

The titles of the legends do not align. When i add guides, this happens:

p +   guides(color=guide_legend(override.aes = list(fill="white")),
         fill=guide_legend(title.hjust=0.5))

The titles now align, but the continous-nature of the fill-legend is lost.

What can i do?

See this answer https://stackoverflow.com/a/50615868/786542 – Tung Jun 25 '18 at 16:40 — Tung, Jun 25 '18 at 16:40

score 5 · Answer 1 · answered Jun 25 '18 at 13:13

5

You can add legend.box.just = "center"

ggplot(df.m, aes(Var1, Var2, fill = Similarity, colour = Rank)) +
  geom_tile() +
  theme_bw() +
  theme(legend.position = "bottom", legend.box.just = "center")

answered Jun 25 '18 at 13:13

erc

10,113
11
57
88

1

That is already nice. Is there a way to also align the key boxes? – nouse Jun 25 '18 at 13:26
@nouse can't help with that, sorry. – erc Jun 26 '18 at 17:33

The titles of multiple legends do not align with position="bottom" in ggplot2

1 Answers1