更改附加 Flextable Header 的大小

Question

我一直在使用add_header_lines()将 header 添加到我的弹性表中。 我希望这个 header 的文本格式与整个表格不同。 不幸的是，当我使用fontsize()时，它会为 header 和列名格式化文本。 有没有办法只更改使用add_header_lines()生成的 header 的文本格式？

这是一些示例代码：

df <- data.frame(crime = c("assault", "homicide", "burglary"),
                 Jan = c(5, 2, 7),
                 Feb = c(2, 4, 0),
                 Mar = c(1, 2, 1))

flex <- flextable(df)

flex <- add_header_lines(flex, values = "This is a header")
flex <- fontsize(flex, size = 15, part = "header")

如您所见， fontsize大小 function 会影响添加的 header 和列值。 知道如何仅更改标题文本格式吗？

Answer 1

您必须使用选择器i 。

library(flextable)

df <- data.frame(crime = c("assault", "homicide", "burglary"),
                 Jan = c(5, 2, 7),
                 Feb = c(2, 4, 0),
                 Mar = c(1, 2, 1))

flex <- flextable(df)

flex <- add_header_lines(flex, values = "This is a header")
flex <- fontsize(flex, size = 15, part = "header", i = 1)
flex <- color(flex, color = "red", part = "header", i = 1)
flex