Как добавить символ звездочки в математическое выражение?

Я пытаюсь аннотировать сюжет с использованием значения и значения значения R², но я не могу передать * как символ, а не как оператор сопоставления.

Я пробовал ?plot.math, вот что я пробовал

plot(1:10,1:10)
text(6,4,expression(R^2==8))
text(6,4,expression(R^2==8^{**}))
Error: unexpected '^' in "text(6,4,expression(R^2==8^{**"

Ответ 1

Вам нужно использовать paste внутри вашего выражения:

text(4,6,expression(paste(R^2==8^"**")))

или

text(6,4,expression(paste(R^2==8, "**")))

enter image description here