Сделать часть легенды ggplot жирным шрифтом

Я хочу сделать часть своих надписей-легенд (которые хранятся в отдельном data.frame). Этот вопрос связан, но он проще моего случая:

library(tidyverse)
df <- data.frame(xx = c(0, 3),
                 yy = c(0, 1))

df_text <- data.frame(start = c(0, 1, 2),
                      end = c(1, 2, 3),
                      heading_bold = c("title 1", "title 2", "title 3"),
                      normal_text = c("i want this to be normal text title 1",
                                      "i want this to be normal text title 2",
                                      "i want this to be normal text title 3")) %>% 
  mutate(merged_text = paste0(heading_bold, ": ", normal_text)) #%>% 
  # perhaps I should try and make bold here?
  #mutate(merged_text = paste0("bold(", heading_bold, ")", ": ", normal_text))

ggplot(df, aes(x = xx, y = yy)) +
  geom_rect(data = df_text,
            aes(xmin = start,
                xmax = end,
                fill = merged_text,
                ymin = 0,
                ymax = 1),
            inherit.aes = FALSE) +
  scale_fill_viridis_d(option = "A", name = "Legend", limits = unique(df_text$merged_text), direction = -1) 

Я хочу, чтобы title 1, title 2 и title 3 были выделены жирным шрифтом в легенде.

Как я предложил выше в закомментированном коде, одним из возможных способов сделать это может быть обертывание текста в функцию bold:

mutate(merged_text = paste0("bold(", heading_bold, ")", ": ", normal_text))

но я не знаю, как назвать это выражение дальше.

Есть идеи?

Спасибо