如何基于隐藏列cross_zero对flextable数值单元格进行条件加粗

通过tabulator对象创建flextable后，需要实现两个需求：

• 依据原数据框的cross_zero列，当cross_zero == FALSE时，将表格中由estimate、conf.low、conf.high组成的coeff单元格设置为加粗
• 隐藏cross_zero列

尝试用tabulator_colnames()调用隐藏列执行bold()函数，但没有效果。

问题核心是条件筛选的逻辑错误：cross_zero是逻辑型变量，不能和字符串"FALSE"做对比，需直接匹配逻辑值FALSE；同时原数据行与生成的flextable行顺序完全对应，可直接基于原数据的逻辑条件筛选目标行。

修改后的完整代码如下：

library(flextable)
library(tibble)

data <- tibble::tribble(
                  ~component,    ~term_type,       ~term,       ~class, ~estimate, ~conf.low, ~conf.high, ~cross_zero,
                      "cond", "categorical", "intercept", "Old-Growth",     -0.67,     -0.82,      -0.51,       FALSE,
                      "cond",   "covariate", "elevation", "Old-Growth",      0.02,     -0.07,       0.11,        TRUE,
                      "cond", "categorical", "intercept", "Transition",     -0.66,     -0.78,      -0.53,       FALSE,
                      "cond",   "covariate", "elevation", "Transition",      0.14,      0.04,       0.24,       FALSE
                  )

# 创建tabulator对象
tab <- tabulator(x=data, 
                 rows = c('component', 'term_type', 'term'), 
                 columns = c('class'),
                 coeff = as_paragraph(estimate, " ", as_bracket(conf.low, conf.high)))

# 转换为flextable
ft <- as_flextable(tab)

# 获取需要加粗的目标列
bold_columns <- tabulator_colnames(tab, 
                                   type = 'columns',
                                   columns = 'coeff')

# 执行条件加粗：cross_zero为FALSE的行，对应coeff列单元格加粗
ft <- bold(ft, i = ~cross_zero == FALSE, j = bold_columns)

# 输出最终表格
ft

• 因为tabulator未将cross_zero纳入显示列（rows/columns/coeff参数均未包含该列），生成的flextable默认不会显示cross_zero列，无需额外隐藏操作
• 条件筛选使用~cross_zero == FALSE（或简化为~!cross_zero），直接匹配逻辑型变量的取值，避免了字符串与逻辑值的错误对比
• 用tabulator_colnames()准确获取coeff对应的表格列，确保加粗操作精准作用在目标单元格上

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