Pontifications

From The joy of no more violin plots:

library(ggjoy)
dat %>% mutate(group = reorder(group, value, median)) %>%
  ggplot(aes(x=value, y=group, height=..density..)) +
  geom_joy(scale=0.85)