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