更改附加灵活表标题的大小

Question

我一直在使用 add_header_lines() 向我的 flextable 添加标题。我希望此标题具有与整个表格不同的文本格式。不幸的是，当我使用fontsize() 时，它会为标题和列名设置文本格式。有没有办法仅更改使用add_header_lines() 生成的标题的文本格式？

这里是一些示例代码：

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 函数会影响添加的标题和列值。知道如何仅更改标题文本格式吗？

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