visual-inference.R

library(nullabor)
library(gganimate)
library(magrittr)

p <- mtcars %>% 
  rorschach(method = null_permute("mpg"), n = 20, true = .) %>% 
  ggplot() +
  geom_boxplot(aes(x = factor(cyl), y = mpg, fill = factor(cyl))) +
  theme(legend.position = 'none', aspect.ratio = 1) +
  xlab("cyl")

in_space <- p +facet_wrap(~.sample)

# ggsave("rorsach.png", in_space)

in_time <- p + transition_states(.sample, 3, 1)

animate(in_time, fps=8, width=400, height=400)
# anim_save(filename = "hop.gif")

For more info about visual inference see
http://rsta.royalsocietypublishing.org/content/367/1906/4361

For more info about hypothetical outcome plots see https://medium.com/hci-design-at-uw/hypothetical-outcomes-plots-experiencing-the-uncertain-b9ea60d7c740