问题描述
我一直在使用 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