Flextable单元格公式右对齐问题及同行追加文本需求

基础代码与问题背景 #

我正在创建包含数学符号的flextable表格，David Gohel提供了如下基础代码支持：

library(flextable)
library(dplyr)
df <- data.frame(
  item = c("vo2", "age"),
  mean = c(30, 40)
)

flextable(df) %>%
  mk_par(i = 1, j = 1, as_paragraph(
    as_equation("\dot{V}0_{2peak}")
  ))

公式右对齐的问题现象 #

但其中的数学符号会出现右对齐现象（单元格较小时不明显），以下示例可清晰展示该问题：

示例1：autofit后右对齐 #

flextable(df) %>%
  mk_par(i = 1, j = 1, as_paragraph(
    as_equation("\dot{V}0_{2peak}")
  ))%>%autofit()

示例2：加宽单元格后右对齐 #

flextable(df) %>%
  mk_par(i = 1, j = 1, as_paragraph(
    as_equation("\dot{V}0_{2peak}")
  ))%>%width(j=1, 2)

示例3：公式与文本错位 #

flextable(df) %>%
  mk_par(i = 1, j = 1, as_paragraph(
    as_equation("\dot{V}0_{2peak}"), "some text"
  ))%>%autofit()

尝试的解决方案及问题 #

我希望将dagger符号（†）放在$\dot{V}0_{2peak}$旁并保持左对齐同行，尝试了两种方式但未解决问题：

方案1：公式与符号分开添加 #

flextable(df) %>%
  mk_par(i = 1, j = 1, as_paragraph(
    as_equation("\dot{V}0_{2peak}"), "†"
  ))%>%autofit()%>%align(j=1, align = "left")

方案2：符号嵌入公式内 #

flextable(df) %>%
  mk_par(i = 1, j = 1, as_paragraph(
    as_equation("\dot{V}0_{2peak}†")
  ))%>%autofit()%>%align(j=1, align = "left")

提问 #

1. 为何公式会在单元格内右对齐？
2. 如何实现公式后追加文本并保持同行显示？

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