r - 如何将希腊字母 delta (∆) 插入到 flextable 对象的标题中？

Question

我正在使用 RMarkdown 创建一个 word 文档(我需要输出为 .docx 格式)。

我想用 柔性 (或任何其他包)正确格式化我的标题。

我正在尝试获取 希腊符号 delta (∆) 正确显示......这似乎是可能的，因为在此处的帮助页面( https://davidgohel.github.io/flextable/articles/format.html#display-function )中，作者成功地使用\u03BC 插入了“μ”符号(如果我使用下面的代码，我也可以)，但我可以使用 不能让它为 delta 工作\u2206 或 \u0394 ，如果我用下面的任一代码替换\u03BC。我使用的代码生成了这个表，但我想用增量替换突出显示的位。



这是我尝试时得到的，例如，\u2206 .



有什么建议？

library(flextable)
if( require("xtable") ){
  mat <- round(matrix(c(0.9, 0.89, 200, 0.045, 2.0), c(1, 5)), 4)
  mat <- xtable(mat)
  ft <- xtable_to_flextable(x = mat, NA.string = "-")
  print(ft$col_keys)
  ft <- flextable::display(ft, i = 1, col_key = "X1", 
    pattern = "{{val}}{{pow}}", part = "header",
    formatters = list(val ~ as.character("R"), pow ~ as.character("2") ),
    fprops = list(pow = fp_text(vertical.align = "superscript", font.size = 8))
    )
  ft <- flextable::display(ft, i = 1, col_key = "X2", 
    pattern = "{{val}}{{pow}}", part = "header",
    formatters = list(val ~ as.character("\u03BC"), pow ~ as.character("x") ),
    fprops = list(pow = fp_text(vertical.align = "superscript", font.size = 8))
    )
  ft <- flextable::display(ft, i = 1, col_key = "rowname", 
    pattern = "{{val}}{{pow}}", part = "body",
    formatters = list(val ~ as.character("y"), pow ~ as.character("t-1") ),
    fprops = list(pow = fp_text(vertical.align = "subscript", font.size = 8))
    )
  ft <- set_header_labels(ft, X3 = "F-stat", X4 = "S.E.E", X5 = "DW", rowname = "")
  ft <- autofit(ft)
  ft
}

更新

由于大卫的有用建议，我越来越接近，但是(对 flextable 不是很熟悉)当我尝试按照建议的方式修改标题时，我得到了奇怪的行为:

library(magrittr)
library(flextable)
library(officer)
AICtable <- data.frame(Model = "test", Parameters = 9, AICc = 4000, dAICc = 0, w = 1)
v.epi.aic <- flextable(AICtable) %>% 
font(fontname = "Times New Roman", part = "all") %>% 
flextable::display(col_key = "dAICc", part = "header",
                                pattern = "{{D}}{{A}}{{cbit}}", 
                                formatters = list(D ~ as.character("D"),
                                                  A ~ as.character("AIC"),
                                cbit ~ as.character("c") ),
                                fprops = list(D = fp_text(font.family = "Symbol"),
                                              A = fp_text(font.family = "Times New Roman"),
                                cbit = fp_text(vertical.align = "subscript")))

v.epi.aic

请注意，列标题现在是重复的，并且“AIC”出现在“Δ”之前。列名应该是:

模型、参数、AICc、ΔAICc、w(ΔAICc 中的“c”应为下标)。

Answer 1

请使用“\u394”而不是“\u0394”来生成大写增量符号