在R中将指数写为上标

Question

我已经在R中创建了以下函数

 fchange<-function(n) {
 if(n>=10|n<1){
  not1 <- format(n, scientific = TRUE)
  not1 <- sub("e", "*10^", not1)
  not1 <- sub("\\+0?", "", not1)
  not1 <- sub("-0?", "-", not1)
  return(not1)
  }}

这需要一个值并返回一个字符-因此100是10 ^ 2。有没有办法删除插入符号并将指数转换为上标