R 添加带有普通和斜体字体的文本以进行打印

在Kaplan-Meier图上，如何将模型统计数据（例如“HR:0.79 p=0.13”）与从对象中提取的数字和斜体中的p相加

在许多不成功的事情中，我尝试了下面的代码（简化了绘图和数字）

预期结果：HR:0.79 p=0.01

---

实际结果：HR:round（runif（1），2）p=round（runif（1），2）

这篇文章给出了一个很好的解决方案

plot(1)

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

plot(1)

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