R语言科学计数法格式化需求：生成a×10ᵇ标准格式

可以通过自定义函数实现将数值转换为a×10ᵇ格式，以下是具体实现：

自定义格式化函数 #

format_sci_journal <- function(x, digits = 3) {
  # 将数值转为科学计数法字符串，拆分系数和指数
  sci_str <- formatC(x, format = "e", digits = digits)
  parts <- strsplit(sci_str, "e")[[1]]
  coeff <- parts[1]
  exp <- as.integer(parts[2])
  
  # 定义Unicode上标字符映射
  sup_chars <- c(
    "0" = "⁰", "1" = "¹", "2" = "²", "3" = "³", "4" = "⁴",
    "5" = "⁵", "6" = "⁶", "7" = "⁷", "8" = "⁸", "9" = "⁹", "-" = "⁻"
  )
  
  # 处理指数的正负号和数字，转为上标
  exp_str <- strsplit(as.character(exp), "")[[1]]
  exp_sup <- paste(sup_chars[exp_str], collapse = "")
  
  # 拼接最终格式
  paste0(coeff, "×10", exp_sup)
}

示例用法 #

测试你的原始变量 #

var <- 0.00000000000000000000000000000031267781238
formatted_var <- format_sci_journal(var)
# 输出："3.127×10⁻³¹"

# 用于图表标题
plot(1, main = formatted_var)

测试正指数情况 #

var_pos <- 123456789012345
formatted_pos <- format_sci_journal(var_pos, digits = 2)
# 输出："1.23×10¹⁴"

plot(1, main = formatted_pos)

说明 #

• 函数参数digits可以控制系数保留的小数位数，按需调整
• 支持正负指数的自动转换，上标字符使用Unicode编码，兼容绝大多数绘图设备和期刊排版

内容的提问来源于stack exchange，提问作者Thrawn