如何在flextable中将文本行的指定部分设置为粗体？

针对你的需求，有两种实用方案可以批量将数据框中带<b>标签的文本在flextable中设置为粗体：

方案一：借助ggtext解析HTML格式（推荐，支持更多标签） #

该方法利用ggtext包的HTML解析能力，能自动识别<b>标签并转换为flextable的富文本格式，适合有多种HTML格式需求的场景：

1. 先安装并加载所需包：

install.packages(c("flextable", "dplyr", "ggtext"))
library(flextable)
library(dplyr)
library(ggtext)

2. 定义解析函数并应用到表格：

# 示例数据
df <- data.frame(col1 = "this is some text <b>that is bold</b> this is plain")

# 解析带HTML标签的文本为flextable段落
parse_html_text <- function(text) {
  as_paragraph(ggtext::parse_html(text))
}

# 生成格式化后的表格
df %>%
  flextable() %>%
  compose(j = "col1", value = as_paragraph(parse_html_text(col1)))

方案二：用正则表达式手动拆分文本（无额外依赖） #

如果仅需处理<b>标签，可直接用正则拆分文本段落，分别设置普通文本和粗体文本格式：

library(flextable)
library(dplyr)

df <- data.frame(col1 = "this is some text <b>that is bold</b> this is plain")

df %>%
  flextable() %>%
  compose(
    j = "col1",
    value = as_paragraph(
      # 提取<b>前的普通文本
      regmatches(col1, regexpr(".*?(?=<b>)", col1, perl = TRUE)),
      # 提取粗体内容并设置为粗体
      as_b(regmatches(col1, regexpr("(?<=<b>).*?(?=</b>)", col1, perl = TRUE))),
      # 提取</b>后的普通文本
      regmatches(col1, regexpr("(?<=</b>).*", col1, perl = TRUE))
    )
  )

两种方案都支持批量处理数百行数据，只需确保指定正确的目标列即可。

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