# Sample data
sample_data <- data.frame(TEAM = c("KENYA", "NEW ZEALAND", "FIJI"),
POINTS_LEG1 = c(22, 19, 17),
POINTS_LEG2 = c(17, 22, 19),
POINTS_LEG3 = c(17, 19, 22))
# View sample data
head(sample_data)
#> TEAM POINTS_LEG1 POINTS_LEG2 POINTS_LEG3
#> 1 KENYA 22 17 17
#> 2 NEW ZEALAND 19 22 19
#> 3 FIJI 17 19 22
datapasta::df_paste(head(sample_data))
#> data.frame(
#> stringsAsFactors = FALSE,
#> TEAM = c("KENYA", "NEW ZEALAND", "FIJI"),
#> POINTS_LEG1 = c(22, 19, 17),
#> POINTS_LEG2 = c(17, 22, 19),
#> POINTS_LEG3 = c(17, 19, 22)
#> )
# Upload the packages
pacman::p_load(tidyverse, gt, emo, emoji)
# Runnable code
out <- sample_data %>%
gt() %>%
text_transform(
locations = cells_body(columns = POINTS_LEG1:POINTS_LEG3),
fn = function(x) {
paste0(x, " ",
dplyr::case_when(
x == 22 ~ emo::ji_glue(medal("Gold")),
x == 19 ~ emo::ji_glue(medal("Silver")),
x == 17 ~ emo::ji_glue(medal("Bronze"))))
}
)
gtsave(out, "sample_Emojis.png")
Created on 2022-06-15 by the reprex package (v2.0.1)