Добавить текст с простым и курсивным шрифтом на график

Question

Как можно добавить статистику модели на графиках Каплана Мейера (например, HR: 0,79 P = 0,13 ") с числами, извлеченными из объекта, и P курсивом?

Среди многих неудачных попыток я попробовал приведенный ниже код (сюжет и цифры упрощены).

plot(1)

text(x=1, y=0.8, expression(paste("HR: ",round(runif(1),2),italic("P"),"=", round(runif(1),2))))

Ожидаемый результат: HR: 0,79 P = 0,01

Фактический результат: HR: раунд (runif (1), 2) P = раунд (runif (1), 2)

Answer 1

Этот пост дает очень хорошее решение https://r.789695.n4.nabble.com/Using-expression-for-Italics-and-object-evaluation-in-plot-title-td836686.html

plot(1)

text(x=1, y=0.8, bquote("HR:" ~ .(round(runif(1),2)) ~ italic("P") * "=" * .(round(runif(1),2))))