[英]How to change the font of the first word in the footer of a flextable?
我正在尝试使用flextable
构建一个 APA 样式的表,它将导出为 .docx 格式。 我需要页脚的第一个字为斜体,但不是以下(脚注等)。 我一直没能做到。
下面是一个小例子:
require(flextable)
tab <- data.frame("Variable" = c("Reference Norm", "Suject", "Cutoff"),
"Indicators"= c("Content 1", "Content 2", "Content 3"),
"Reference Norm" = c("", "Content 4", "Content 5"),
"Subject" = c("", "", "Content 6"))
tab <- flextable(tab)
tab <- add_footer_lines(tab, values = "Note.") # This is where I need italic font
tab <- footnote(tab, i= 2, j= 2:3 , part = "body", ref_symbols="a", value = as_paragraph("Method x"), inline=T)
require(flextable)
tab <- data.frame(
"Variable" = c("Reference Norm", "Suject", "Cutoff"),
"Indicators" = c("Content 1", "Content 2", "Content 3"),
"Reference Norm" = c("", "Content 4", "Content 5"),
"Subject" = c("", "", "Content 6")
)
tab <- flextable(tab)
# start with an empty line
tab <- add_footer_lines(tab, values = "")
# add "Note: "
tab <- compose(tab, i = 1, j = 1, value = as_paragraph(as_i("Note: ")), part = "footer")
# add some footnotes
tab <- footnote(tab, i = 2, j = 2:3, part = "body", ref_symbols = "a", sep = "", value = as_paragraph("Method x"), inline = T)
# add other footnotes
tab <- footnote(tab, i = 3, j = 1, part = "body", ref_symbols = "b", sep = "; ", value = as_paragraph("Method y"), inline = T)
tab <- fontsize(tab, part = "all", size = 13)
autofit(tab)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.