在R语言中将特殊字符分数转换为数值的技术问询

我之前正好碰到过一模一样的问题！这种用特殊Unicode字符表示的分数，直接用as.numeric()转肯定会失败，不过有几个实用的方法能解决，给你分享下：

这是最直观的方式，适合处理日常常见的分数字符：

• 先建一个映射向量，把特殊分数字符对应成文本形式的分数（比如½对应"1/2"）：

fraction_map <- c(
  "½" = "1/2", "¾" = "3/4", "¼" = "1/4",
  "⅓" = "1/3", "⅔" = "2/3", "⅕" = "1/5",
  "⅖" = "2/5", "⅗" = "3/5", "⅘" = "4/5",
  "⅙" = "1/6", "⅚" = "5/6", "⅐" = "1/7",
  "⅛" = "1/8", "⅜" = "3/8", "⅝" = "5/8",
  "⅞" = "7/8", "⅑" = "1/9", "⅒" = "1/10"
)

• 接着用stringr包的替换函数把特殊字符转成文本分数：

library(stringr)
# 假设你的原始字符向量是score_chars
score_chars <- c("½", "¾", "¼", "⅔")
score_text <- str_replace_all(score_chars, fraction_map)

• 最后把文本分数转成数值，用purrr的映射函数配合解析就行：

library(purrr)
score_numeric <- map_dbl(score_text, ~ eval(parse(text = .x)))
# 输出结果：[1] 0.50 0.75 0.25 0.67

如果你的分数字符特别多，或者有一些不常见的，手动建映射太麻烦，就用stringi包来分解Unicode字符自动提取分子分母：

• 先安装加载stringi：

install.packages("stringi")
library(stringi)

• 分解字符并提取数字计算数值：

# 把特殊分数分解成Unicode组件
decomposed <- stri_trans_nfd(score_chars)
# 提取所有数字部分
nums <- stri_extract_all_regex(decomposed, "\\d", simplify = TRUE)
# 分子除以分母得到数值
score_numeric <- as.numeric(nums[,1]) / as.numeric(nums[,2])

这个方法能自动处理所有符合Unicode规范的分数字符，不用手动维护映射表。

utf8包有个专门的函数能直接识别这类特殊字符并转成数值，简直是懒人福音：

install.packages("utf8")
library(utf8)
# 直接转换
score_numeric <- utf8_num(score_chars)

它不仅能处理纯分数，连带整数的混合分数（比如1½）也能直接识别转换成1.5，超级方便！

如果你的数据里还有带整数的分数，比如1½，也可以用正则先拆分整数和分数部分，分别处理后相加就行，比如：

mixed_chars <- c("1½", "2¾")
# 提取整数部分
integers <- as.numeric(str_extract(mixed_chars, "\\d+"))
# 提取分数部分转数值
fractions <- utf8_num(str_extract(mixed_chars, "[½¾¼⅓⅔⅕⅖⅗⅘⅙⅚⅐⅛⅜⅝⅞⅑⅒]"))
# 相加得到结果
result <- integers + fractions
# 输出：[1] 1.5 2.75

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