conditionally bold values in flextable

Question

Is it possible to bold/color estimate values based on tstat.

For ex - bold estimate values if tstat is more than 1.96

This is in continuation of my previous question and I have to use flextable.

library(dplyr)
library(flextable)


attribute <- c("b0", "b1", "b2", "b3", "b4", "b5")
estimate <- round(runif(n = 6, min = 0, max = 5), 2)
tstat <- round(runif(n = 6, min = 0, max = 5), 2)

# tibble
tbl <- tibble(attribute, estimate, tstat) %>%
  as_flextable()

1

@akrun sorry I have removed it – SiH Oct 30 '21 at 22:21

score 4 · Accepted Answer · answered Nov 01 '21 at 11:25

4

Another solution using flextable row selector:

library(dplyr)
library(flextable)

set.seed(4123)

attribute <- c("b0", "b1", "b2", "b3", "b4", "b5")
estimate <- round(runif(n = 6, min = 0, max = 5), 2)
tstat <- round(runif(n = 6, min = 0, max = 5), 2)

tbl <- tibble(attribute, estimate, tstat)

tbl %>%   
  flextable() %>% 
  bold(~ tstat > 1.96,2)

answered Nov 01 '21 at 11:25

David Gohel

9,180
2
16
34

tbl %>% flextable() %>% __flextable__::bold(~ tstat > 1.96,2) - that was essential in my case to specify exactly which library it is from as crayon and gt libraries were also active within the same R session and all of then had function bold() – AnnaZ Mar 18 '22 at 14:30

akrun · Answer 2 · 2021-10-30T22:28:09.617

2

We could use either ifelse or case_when to add the **<value>** for bolding

library(dplyr)
library(flextable)
tbl <- tibble( attribute, estimate, tstat) %>%
       mutate(estimate = case_when(tstat > 1.96 
            ~sprintf('**%0.2f**', estimate), 
          TRUE  ~sprintf('%0.2f', estimate))) %>%
  as_flextable() %>%
  colformat_md()
tbl

-output

edited Oct 30 '21 at 22:28

answered Oct 30 '21 at 22:24

akrun

874,273
37
540
662

okay thanks a lot, although I have to bold the estimate value based on tstat – SiH Oct 30 '21 at 22:26
@SiD that is easier, just change it to `estimate` based on the comparision on tstat'. updated – akrun Oct 30 '21 at 22:28

score 2 · Answer 3 · answered Oct 30 '21 at 23:04

Another solution:

library(dplyr)
library(flextable)

set.seed(4123)

attribute <- c("b0", "b1", "b2", "b3", "b4", "b5")
estimate <- round(runif(n = 6, min = 0, max = 5), 2)
tstat <- round(runif(n = 6, min = 0, max = 5), 2)

tbl <- tibble(attribute, estimate, tstat)
  
tbl %>%   
  flextable() %>% 
  bold(tbl$tstat > 1.96,2)

conditionally bold values in flextable

3 Answers3

Linked