在 plotmath 中使用 % 作为下标

Using % as subscript in plotmath

如何在 plotmath 表达式中使用百分比符号作为下标?

我正在使用以下脚本:

text(4.2,0.45, expression(paste(P[Con_30%Fat], "=0.611")), cex = 1.3)

我收到以下错误:

Error: unexpected input in "text(4.2,0.45, expression(paste(P[Con_30%Fat], "=0.611")), cex = 1.3)"
plot.new()
text(0.5, 0.5, expression(paste(P[Con_30*"%"*Fat], "=0.611")), cex = 1.3)