多个图例的标题与ggplot2中的position =“ bottom”不对齐

Question

请考虑以下情节：

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

图例的标题未对齐。当我添加指南时，会发生这种情况：

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

现在标题对齐了，但是填充注解的连续性质丢失了。

我该怎么办？

Answer 1

您可以添加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")