another experiment

Intro Thoughts

Status Quo

knitr::opts_chunk$set(dev = "ragg_png")

Experiment

# lookup <- tribble(~code, ~label,
#                   1, "disagree",
#                   2, "neutral",
#                   3, "agree") 


library(tidyverse)
  
'tibble::tribble(~ year,
                2002,
                2000,
                NA, 
                2007) |>
  dplyr::filter_out(year > 2005)' |>
  ggram::ggram_df_output(code = _,
                         title = "")

'
library(tidyverse)

tribble(~ year,
          2002,
          2000,
          NA, 
          2007) |>
  filter_out(year > 2005)' |>
  ggram::ggram_df_output(code = _,
                         title = "")

last_plot() &
  annotate(geom = "text", 
           x = I(.8), y = I(.8), 
           label = " 🎉 👋", 
           size = 12)

library(ggplot2)

ggplot() + 
  annotate(GeomText,
           label = 'tibble::tribble(~ year,
                2002,
                2000,
                NA, 
                2007) |>
  dplyr::filter_out(year > 2005)') + 
  gt::gt(tibble::tribble(~ year, 2002)) & 
  annotate("text", label = "hello",
           x = I(.5), y = I(.5) )

Closing remarks, Other Relevant Work, Caveats