更改附加 Flextable 的大小 Header

Question

我一直在使用 add_header_lines() 将 header 添加到我的 flextable。我希望此 header 具有与整个 table 不同的文本格式。不幸的是，当我使用 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 函数会影响添加的 header 和列值。知道如何仅更改 headers 文本格式吗？

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

更改附加 Flextable 的大小 Header

Change Size of Additional Flextable Header

r

flextable