gt-color-other-column.R

library(gt)
library(gtExtras)

library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

dat <- tibble(
  group = c("a","b","c"),
  success = c(0, 25, 50),
  attempts = c(50, 50, 50)
) %>% 
  mutate(
    percentage = success / attempts,
    proportion = paste(success, attempts, sep = "/")
  ) %>%
  gt()

out_tab <- dat %>%
  text_transform(
    cells_body(proportion),
    fn = function(x){
      vals <- gt_index(dat, percentage)
      col_vals <- scales::col_numeric(c("white", "red"), domain = c(0,1))(vals)
      glue::glue('<span style=\"display: inline-block; direction: ltr; border-radius: 4px; padding-right: 2px; background-color: {col_vals}; width: 100%\"> {x} </span>')
    }
  ) %>%
  cols_align("center", proportion) %>%
  gtsave_extra("out-tab.png", selector = "table")

magick::image_read("out-tab.png")

#' ![](goofy-coney_reprex_files/figure-gfm/unnamed-chunk-2-1.png)

# Gist URL https://gist.github.com/8e3e616e5bdbe078bd4a85abf9bb7fc3

# Code image at: ![](https://i.imgur.com/zMnqycn.png)