如何在flextable的页脚中修改指定文字的颜色？

要实现页脚中单个单词的颜色设置，不能直接用add_footer_lines添加纯文本，需要借助compose()函数构建富文本段落，配合color()指定文本颜色。以下是修改后的代码：

library(flextable)

# 创建基础表格
ft_1 <- flextable(head(iris))

# 添加空的页脚行作为占位
ft_1 <- add_footer_lines(ft_1, values = c("", ""))

# 配置第一行页脚：将"red"设为红色
ft_1 <- compose(
  x = ft_1,
  i = 1, # 目标页脚行索引
  j = 1, # 页脚行默认跨所有列，指定第一列即可
  part = "footer", # 指定修改的部分是页脚
  value = as_paragraph(
    "This is ",
    color("red", color = "#FF0000") # 对指定单词设置红色
  )
)

# 配置第二行页脚：将"yellow"设为黄色
ft_1 <- compose(
  x = ft_1,
  i = 2,
  j = 1,
  part = "footer",
  value = as_paragraph(
    "This is ",
    color("yellow", color = "#FFFF00") # 对指定单词设置黄色
  )
)

# 预览表格
ft_1

关键说明 #

• compose()：用于指定要修改的表格区域（页脚）和目标单元格，替换其中的内容为自定义段落。
• as_paragraph()：将多个文本片段组合成一个段落，支持混合不同样式的文本。
• color()：给指定文本片段设置颜色，颜色值可以用十六进制码或颜色名称（如"red"）。

内容的提问来源于stack exchange，提问作者Sarah