如何在 flextable header 中有多个字体大小？

Question

我有一个 flextable()，我想让 header 有两种字体大小。一种大小用于正文（例如 20 pt 字体），一种较小的用于括号文本（12 pt 字体）。这是使整个 header 20 pt.

的代码

注意：在最终的解决方案中，我不希望将括号内的文本作为一个全新的行，除非它可以像下面的示例所示那样接近原始文本。

library(flextable)
library(dplyr)

set_flextable_defaults(font.size = 20) #Works but makes all header size 20

flextable(test) %>%
  set_header_labels(values = list(name = "Name", med_score = "Score (Median)", mean_score = "Score (Mean)")) %>%
  align(align = "center", part = "header")

编辑：已添加图片

这是目前的样子：

这就是我想要的样子：

注意：我在 PowerPoint 中实现了这个目标 table。它在很多方面看起来与原始版本不同，因为我没有格式化原始版本。我试图复制的唯一区别是 (median) 和 (mean) 小于 Score 以及它们在同一个 header 单元格中。

Answer 1

您可以使用 compose、as_paragraph 和 as_chunk 来实现它。

供参考：https://ardata-fr.github.io/flextable-book/cell-content-1.html#multi-content

library(flextable)

ft <- flextable(airquality[ sample.int(10),])

compose(
  ft,
  j = "Ozone",
  part = "header",
  value = as_paragraph(
    "Ozone ",
    as_chunk(
      " (Median)",
      props = fp_text_default(color = "#006699", font.size = 5)
    )
  )
)

如何在 flextable header 中有多个字体大小？

How to have multiple font sizes in flextable header?

r

header

font-size

flextable