I have a two part legend with different widths:
library(dplyr) library(ggplot2) mtcars %>% mutate(qsec = factor(qsec))
