flextable：`fontsize(size = 4, part = "all")` 不适用于脚注

Question

我曾预计 fontsize(size = 4, part = "all") 会在 table 的所有部分应用 size = 4。它没有。

head(iris) %>%
  flextable() %>%
  fontsize(size = 4, part = "all") %>%
  footnote( i = 1, j = 1:2,
               value = as_paragraph(
                c("This is footnote one",
                   "This is footnote two")
               ),
               ref_symbols = c("a", "b"),
               part = "header") %>%
  footnote(i = 1, j = 3:4,
               value = as_paragraph(
                 c("This is footnote three",
                   "This is footnote four")
               ),
               ref_symbols = c("c","d"),
               part = "header")

Answer 1

顺序很重要 - 将 fontsize() 移动到创建脚注之后：

head(iris) %>%
  flextable() %>%
  footnote( i = 1, j = 1:2,
            value = as_paragraph(
              c("This is footnote one",
                "This is footnote two")
            ),
            ref_symbols = c("a", "b"),
            part = "header") %>%
  footnote(i = 1, j = 3:4,
           value = as_paragraph(
             c("This is footnote three",
               "This is footnote four")
           ),
           ref_symbols = c("c","d"),
           part = "header") %>%
  fontsize(size = 4, part = "all")

flextable：`fontsize(size = 4, part = "all")` 不适用于脚注

flextable: `fontsize(size = 4, part = "all")` does not apply to the footnote

r

fonts

flextable