R中的上标/下标

Question

我想在情节中得到以下内容：

我正在使用此代码，但我没有得到预期的结果。

text(4.4,0.5, expression(paste(P[B6.Rag^"-/-"_NOD.Rag^"-/-"], "=2.9x10^-4")), cex = 1.3)

由于

Answer 1

这看起来如何？

plot(1:10, type="n");
text(5,5, expression(P[`B6.Rag-/-_NOD.Rag-/-`] == 2.8 %*% 10^-4), cex = 1.3)