Intro Thoughts

Status Quo

library(tidyverse)

tribble(~day, ~length, ~color,
        "Monday", 12, "blue",
        "Tuesday", 10.5, "yellow",
        "Wednesday", 8.5, "red",
        "Thursday", 7, "springgreen3",
        "Friday", 6, "mediumpurple3",
        "Saturday", 5, "orange",
        "Sunday", 4, "pink",
        "TDOTW", 3, "steelblue1") ->
xylophone

StatProp <- ggstats:::StatProp

ggplot(xylophone) + 
  aes(x = fct_inorder(day), weight = length) + 
  ggstats:::geom_diverging(complete = T) + 
  aes(fill = I(color)) + 
  geom_text(y = 0, aes(label = day), angle = 90, size = 8, color = "whitesmoke") +
  aes(label = day)

ABCDEFGHIJKLMNOPQRSTUVWXYZ

Experiment

Closing remarks, Other Relevant Work, Caveats