Комбинирование курсивом, полужирным шрифтом и значением объекта l oop в тексте графика

Question

Я пытаюсь создать текст в рамке, чтобы показать значимость. Я бы хотел, чтобы «P» было выделено курсивом и жирным шрифтом, а затем, например, «= 1.23e-02» использовалось только жирное начертание. Я делаю это внутри al oop, так что значение должно исходить от значения объекта. Попытка построить 8 фигур в формате PDF, чтобы на каждом графике значение было разным и, таким образом, находилось в объекте / векторе. Я пробовал, например:

text(x=2.8, y=maxy+(((maxy-miny)/5)/5)*1.1, bolditalic(P)~bold("=")~bold(format(tp12[i])), cex = 2.8)

Но по какой-то причине это возвращает не значение объекта (значимость), а просто строку внутри него. Я также безуспешно пробовал несколько разных решений с bquote и заменой.

Есть идеи, как заставить эту комбинацию работать?

Answer 1

Вот простой воспроизводимый пример:

tp12 <- 1.23e-02
plot(1, 1)
text(1, 1, bquote(bolditalic(P)~bold("=")~bold(.(tp12[1]))), cex = 2.8, pos=3)

Пример цитаты