Superscript and Subscript character in R

Could you show me how to wrap