margins change when adding element_marquee to plot titles

[davidhodge931]

library(tidyverse)
library(palmerpenguins)
library(marquee)

p1 <- penguins |>
  ggplot() +
  geom_histogram(aes(x = bill_depth_mm)) +
  labs(
    title = "Pygoscelis penguin bill depths",
    subtitle = "Adelie, Chinstrap, and Gentoo species",
  ) 

p2 <- p1 + 
  theme(plot.title = marquee::element_marquee()) +
  theme(plot.subtitle = marquee::element_marquee())

p1

p2

[thomasp85]

I think this is fixed in dev. I did some tweaks to the margin collapsing based on similar feedback

[davidhodge931]

Thanks! Dev version margins look really good :)