swo

library(tidyverse)

# "faithful" is a dataset about a geyser, showing size of eruption vs. waiting
# time before the eruption
data <- as_tibble(datasets::faithful) %>%
  mutate(index = 1:n()) %>%
  head(10)

data

swo

sigfig <- function(x, n = 2) {
  formatC(signif(x, digits = n), digits = n, format = "fg", flag = "#")
}

swo

# Say I have some short-hand labels like "Ec/q",
# which actually stand for "E. coli & quinolones",
# but I want "E. coli" to be in italics

library(tidyverse)

n <- 100

tibble(
  x = rnorm(n),