fix legend justification for fixed aspect ratio plots

[ilia-kats]

On the current master branch, legend justification for fixed aspect ratio plots is broken:

library(ggplot2)
library(patchwork)
p1 <- ggplot(mtcars, aes(cyl, qsec, color=as.factor(vs))) +
    geom_point()
p2 <- p1 + labs(color="a very looooooong legend title")
p1 + p2 + plot_layout(ncol=1) & theme(legend.justification = "left", aspect.ratio=1)

^{Created on 2019-12-08 by the reprex package (v0.3.0)}

This patch fixes this issue:

library(ggplot2)
library(patchwork)
p1 <- ggplot(mtcars, aes(cyl, qsec, color=as.factor(vs))) +
    geom_point()
p2 <- p1 + labs(color="a very looooooong legend title")
p1 + p2 + plot_layout(ncol=1) & theme(legend.justification = "left", aspect.ratio=1)

^{Created on 2019-12-08 by the reprex package (v0.3.0)}

[thomasp85]

Thanks !

[thomasp85]

hmm... it appears the fix in this pr no longer works... I'll have a look