更改附加 Flextable 标题的大小

如何解决更改附加 Flextable 标题的大小

我一直在使用 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,1))

flex <- flextable(df)

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

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

解决方法

您必须使用选择器 i。

library(flextable)

df <- data.frame(crime = c("assault","homicide","burglary"),Jan = c(5,2,7),Feb = c(2,4,0),Mar = c(1,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",i = 1)
flex