Как настроить стиль шрифта тегов с plot_annotation в фигурах, собранных лоскутным шитьем?

Question

У меня есть фигура, собранная с patchwork следующим образом:

library(ggplot2)
library(patchwork)

p1 <- ggplot(mtcars) + geom_point(aes(mpg, disp))
p2 <- ggplot(mtcars) + geom_boxplot(aes(gear, disp, group = gear))

p1 + p2 + plot_annotation(tag_levels = 'a')

Как изменить начертание шрифта тегов, чтобы буквы a а также b выделяться жирным шрифтом?

Answer 1

После просмотра этой страницы я обнаружил, что теги всех подфигурок можно изменить с помощью& оператор:

p1 + p2 + plot_annotation(tag_levels = 'a') &
    theme(plot.tag = element_text(face = 'bold'))