如何在 flextable 标题中使用多种字体大小？答案

【问题标题】：How to have multiple font sizes in flextable header?如何在 flextable 标题中使用多种字体大小？
【发布时间】：2021-09-04 18:03:39
【问题描述】：

我有一个 flextable()，我想让标题有两种字体大小。主文本使用一种大小（例如，20 pt 字体），括号文本使用较小的尺寸（12 pt 字体）。这是使整个标题为 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 中制作了这个目标表。它在很多方面都与原始版本不同，因为我没有格式化原始版本。我试图复制的唯一区别是 (median) 和 (mean) 小于 Score 以及它们在同一个标题单元格中。

【问题讨论】：

如果您创建一个小的可重现示例以及预期的输出，这将更容易提供帮助。阅读how to give a reproducible example。
@RonakShah，谢谢，我在要求的截图中添加了

标签： r header font-size flextable

【解决方案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)
    )
  )
)

【讨论】：