是否有R函数可将数学表达式字符串转换为Content MathML？

R语言环境下的解决方案 #

你使用的mathml包仅支持生成Presentation MathML，目前R生态中没有直接生成Content MathML的成熟包，但可以通过以下两种方式实现需求：

方式1：调用Python的SymPy库（跨语言方案） #

通过R的reticulate包调用Python的SymPy来生成Content MathML，步骤如下：

1. 安装依赖：

install.packages("reticulate")

同时在Python环境中安装SymPy：

pip install sympy

2. 编写R代码：

library(reticulate)
sympy <- import("sympy")

expr_str <- "Vmax*S/(Km+S)"
expr <- sympy$parse_expr(expr_str)
content_mathml <- sympy$mathml(expr, printer = "content")
cat(content_mathml)

执行后会输出你需要的Content MathML结构：

<apply>
  <divide/>
  <apply>
    <times/>
    <ci>Vmax</ci>
    <ci>S</ci>
  </apply>
  <apply>
    <plus/>
    <ci>Km</ci>
    <ci>S</ci>
  </apply>
</apply>

方式2：将Presentation MathML转换为Content MathML #

可以使用XSLT转换工具，将mathml包生成的Presentation MathML转为Content版本：

1. 下载W3C官方的Presentation转Content的XSLT样式表
2. 使用R的xml2和xslt包执行转换：

install.packages(c("xml2", "xslt"))
library(xml2)
library(xslt)

# 生成Presentation MathML
library(mathml)
y <- quote(Vmax*S/(Km+S))
pres_mathml <- mathml(term = y)

# 解析并转换
pres_xml <- read_xml(pres_mathml)
xslt_style <- read_xml("presentation2content.xsl", package = "xslt")
content_xml <- xml_xslt(pres_xml, xslt_style)

# 输出格式化后的Content MathML
cat(as.character(content_xml))

非R环境的直接方案 #

如果可以切换到Python环境，SymPy是最直接的工具，代码示例如下：

from sympy import parse_expr, mathml

expr = parse_expr("Vmax*S/(Km+S)")
print(mathml(expr, printer='content'))

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