Swedish characters incorrectly shown in ggplot title about ggplot2 HOT 4 CLOSED

library(tidyverse)
df_plot <- data.frame(
  stringsAsFactors = FALSE,
  itemnr = c("who5_1", "who5_1", "who5_1", "who5_1", "who5_1"),
  category = c("Ibland",
               "Mindre än halva tiden","Mer än halva tiden","Mestadels","Hela tiden"),
  n = c(4L, 4L, 15L, 42L, 12L),
  Procent = c(5.19, 5.19, 19.48, 54.55, 15.58),
  item = c("Jag har känt mig glad och på gott humör",
           "Jag har känt mig glad och på gott humör","Jag har känt mig glad och på gott humör",
           "Jag har känt mig glad och på gott humör",
           "Jag har känt mig glad och på gott humör")
)

header <- df_plot %>% 
  filter(itemnr == "who5_1") %>% 
  slice(1) %>% 
  pull(item)

plot <- df_plot %>% 
  filter(itemnr == "who5_1") %>% 
  ggplot(aes(x = category, y = Procent, fill = category)) +
  scale_y_continuous(limits = c(0,NA)) +
  scale_x_discrete() + 
  geom_col() +
  geom_text(aes(label = n), color = "darkgrey",
            size = 2.2,
            position = position_dodge(width = 0.9),
            vjust = -0.24) +
  scale_fill_viridis_d(labels = ~ str_wrap(.x, width = 9)) +
  theme(panel.grid.major.x = element_blank(),
        panel.grid.minor.x = element_blank()) +
  labs(title = header)

tmp <- tempfile(fileext = ".png")
ggsave(tmp, plot, device = Cairo::CairoPNG, width = 700, height = 500, limitsize = FALSE, dpi = 100)
knitr::include_graphics(tmp)

tmp <- tempfile(fileext = ".png")
ggsave(tmp, plot, device = ragg::agg_png)
#> Saving 7 x 5 in image
knitr::include_graphics(tmp)

```{r, include = FALSE}
knitr::opts_chunk$set(
  dev = "ragg_png"
)
```