更改附加 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