Skip to content

Instantly share code, notes, and snippets.

@baptiste

baptiste/stickers.R

Last active October 16, 2018 21:54
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save baptiste/7039de3a8388adc63c673135fae8b77d to your computer and use it in GitHub Desktop.
Save baptiste/7039de3a8388adc63c673135fae8b77d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
stickers.R
fun_labels <- function(x) sprintf("<b>%s</b>", x)
ggplot() +
scale_x(breaks = c('a','b','c')) +
theme(axis.label = element_sticker(grob = fancyGrob, dictionary = fun_labels))
my_labels <- tibble(label = letters[1:3], grobs = I(lapply(1:3, fancyGrob)))
ggplot() +
scale_x(breaks = c('a','b','c'),
formatter = format_fancytext(type='html'),
dictionary = my_labels)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment