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

Я пытаюсь аннотировать сюжет с использованием значения и значения значения 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^{**"