ggtext создает чрезмерный пробел между субтитрами и заголовком

Question

Я создал сюжет в ggplot и я использую ggtextчтобы раскрасить определенные слова в моих субтитрах. Хотя это работает, каждый раз, когда я визуализирую график, наверху появляется слишком много белого пространства. Код, который помогает с визуализацией текста, приведен ниже, и это результат. Есть мысли о том, что мне делать?

  filter(threatened == 1,
         !is.na(year_last_seen)) %>%
  count(year_last_seen, threat_type) %>%
  pivot_wider(names_from = year_last_seen, values_from = n) %>%
  mutate_if(is.integer, as.numeric) %>% 
  mutate_all(~replace(., is.na(.), 0)) %>%
  nest(c('1900-1919', '1920-1939', '1940-1959', '1960-1979', '1980-1999', '2000-2020')) %>%
  mutate('2020_sum' = map_dbl(data, sum)) %>%
  unnest() %>%
  mutate(threat_type = fct_reorder(threat_type, `2020_sum`)) %>%
  ggplot() + 
  geom_dumbbell(aes(y = threat_type, x = `Before 1900`, xend = `2020_sum`), 
                color='#E7E3D9', size = 1.5,
                colour_x = '#1E5871', colour_xend = '#8F0700', 
                size_x = 4, size_xend = 4) + 
# This is the text that is helping me colorize particular words in the subtitle.  
labs(title = "Number of Plants Threated",
       subtitle = "Change from <b style='color:#1E5871'>< 1900</b> through <b style='color:#8F0700'>2020</b>",
       x = '',
       y = '') +
  theme(plot.subtitle = element_markdown())```