dot-columns-gt.R

dot-columns-gt.R

library(tidyverse)
library(gt)

circle <- '<span style="
  display: inline-block; 
  background-color: pink; 
  width: 1cm;
  height: 1cm;
  border-radius: 100%;
  border: black 1px solid;
  margin-left: 5px;">
</span>'

tibble(
  grade = c('A', 'B', 'C', 'D', 'F'),
  students = c(2, 5, 3, 1, 1),
  plot = map_chr(students, \(x) rep(circle, x) |> paste(collapse = ''))
) |> 
  gt() |> 
  fmt_markdown(columns = plot) |> 
  cols_label(grade = 'Grade', students = 'Students', plot = '') |> 
  tab_header(title = 'Fictitious exam results') |> 
  tab_options(heading.align = 'left')