Plot shrank or expanded when activating or deactivating legend keys

Basically, when I double-clicked on the legend keys to activate or deactive them, the plot shrank or expanded. I posted the issue on StackOverflow and the user mnist found that it was the empty string that caused the problem.

Here is the reprex

p <- ggplot(mpg, aes(x = displ, y = hwy, color = factor(cyl), shape = class)) +
geom_point(size = 3) +
    scale_color_manual(values = c("4" = "#abd9e9",
                                  "5" = "#2c7bb6",
                                  "6" = "#ff7f00",
                                  "8" = "#d7191c")) +
    scale_shape_manual(values = c(2, 5, 16, 17, 18, 19, 25)) +
    guides(color = guide_legend(title = "Cyl", order = 1),
           shape = guide_legend(title = "", order = 2)) +
    theme_classic(base_size = 16)
p

ggplotly(p) %>%
    layout(xaxis = list(autorange = "reversed",
                        tickvals = c(2, 3, 5, 6),                        
                        ticktext = c("2", "", "5", "6"))) 

Commencez par exécuter le R reprex fourni avec ggplotly et reproduisez le redimensionnement du graphique lorsque les éléments de légende font l’objet d’un double-clic. Suivez la manière dont les legend titles ou labels vides sont gérés lors de l’activation de la légende, puis vérifiez que l’activation ou la désactivation des éléments ne modifie plus les dimensions du graphique.