如何在flextable中显示含分数的多行数学公式

目标是在导出Word的RMarkdown文档中，让flextable单元格显示如下格式的内容：
$$n = \frac{8}{d^{2}}$$
where $$d = \frac{\mu_2 - \mu_1}{\sigma}$$

即同时实现多行文本换行和堆叠分数公式渲染，以下是两种可行的解决方案：

方案一：flextable原生API实现（推荐） #

通过compose()结合as_paragraph()、as_equation()和linebreak()，直接渲染LaTeX格式的堆叠分数并插入换行，完美兼容Word导出。

knitr::opts_chunk$set(echo = FALSE)

library(dplyr)
library(flextable)
library(officer)
library(stringr)

set_flextable_defaults(font.family="Times New Roman", hansi.family="Times New Roman")

# 构造数据：用分号分隔主公式与说明文本
FractionTable <- data.frame(
  EqnColumn = c(
    "n = \\frac{8}{d^{2}};\\textrm{where } d = \\frac{\\mu_2 - \\mu_1}{\\sigma}",
    "n = \\frac{8}{2};\\textrm{where } d = \\frac{\\mu_2 - \\mu_1}{\\sigma}",
    ""
  )
)

FractionTable %>% 
  flextable() %>%
  width(j=1, width=3) %>% 
  # 为非空单元格渲染多行公式
  compose(
    j = "EqnColumn",
    i = ~ EqnColumn != "",
    value = as_paragraph(
      as_equation(str_split(EqnColumn, ";")[[1]][1]),
      linebreak(),
      as_equation(str_split(EqnColumn, ";")[[1]][2])
    )
  ) %>%
  # 处理空单元格避免报错
  compose(
    j = "EqnColumn",
    i = ~ EqnColumn == "",
    value = as_paragraph("")
  )

关键细节 #

• 用分号作为分隔符拆分公式与说明文本，便于分别渲染
• linebreak()实现单元格内换行，适配Word的格式要求
• as_equation()支持完整LaTeX语法，可正常渲染\\frac{}{}格式的堆叠分数

方案二：结合ftExtra的Markdown渲染 #

如果偏好Markdown语法，可使用ftExtra::colformat_md()，通过HTML换行标签<br>实现多行，块级公式$$...$$渲染堆叠分数：

library(ftExtra)

FractionTable <- data.frame(
  MarkdownColumn = c(
    "$$n = \\frac{8}{d^{2}}$$<br>where $$d = \\frac{\\mu_2 - \\mu_1}{\\sigma}$$",
    "$$n = \\frac{8}{2}$$<br>where $$d = \\frac{\\mu_2 - \\mu_1}{\\sigma}$$",
    "$n = 8/d^{2}$<br>where $$d = \\frac{2}{3}$$"
  )
)

FractionTable %>% 
  flextable() %>%
  width(j=1, width=3) %>% 
  colformat_md(j=1)

注：部分Word版本需确保对Markdown块级公式的兼容性，若出现渲染异常，优先使用方案一。

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