In terminological/ggrrr: Addressing Annoyances and Irritations

knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(ggrrr)
out = outputter(tempdir(check = TRUE),datedFile = FALSE,datedSubdirectory = FALSE)

Create a table from a tibble

This is a wrapper

summary = ggplot2::diamonds %>% filter(cut %in% c("Fair","Good")) %>% 
  group_by(cut,color,clarity) %>% 
  summarise(
    `average size (carat)` = sprintf("%1.2f [%1.2f \u2014 %1.2f]", mean(carat), mean(carat)-1.96*sd(carat), mean(carat)+1.96*sd(carat)),
    `median price` = sprintf_list("%1.0f [%1.0f \u2014 %1.0f]", quantile(price, c(0.5,0.25,0.75)))
  )

table = summary %>% hux_tidy(colGroupVars = vars(cut), rowGroupVars = vars(color, clarity))

table %>% hux_default_layout(defaultFontSize = 8) %>% hux_save_as(out("multipage_t2"), std_size$third)