Использование разных стилей шрифтов в аннотате (ggplot2)

Я использую приведенный ниже код для создания простой диаграммы с некоторыми аннотациями:

require(ggplot2); data(mtcars)
ggplot(mtcars, aes(x = wt, y = mpg)) + 
  geom_point() +
  annotate("text", x = 4, y = 25, label = "This should be bold\nand this not",
           colour = "red") +
  geom_vline(xintercept = 3.2, colour = "red")

На этой диаграмме я хотел бы применить жирный шрифт к первой части фразы в текстовой аннотации:

Это должно быть полужирным шрифтом

но я хочу, чтобы оставшаяся часть текста оставалась неизменной относительно лица и стиля шрифта.

Ответы

Ответ 1

Как использовать синтаксис plotmath с parse = TRUE:

ggplot(mtcars, aes(x = wt, y = mpg)) + 
    geom_point() +
    annotate("text", x = 4, y = 25, 
            label = 'atop(bold("This should be bold"),"this should not")',
            colour = "red", parse = TRUE) +
    geom_vline(xintercept = 3.2, colour = "red")

Ответ 2

Если у вас нет проблемы с разбиением на две аннотации, вы можете просто сделать:

annotate("text", x = 4, y = 25, label = "This should be bold",
       colour = "red", fontface =2)+
annotate("text", x = 4, y = 24, label = "and this not",
       colour = "red")