moire-posterior-draws.md

library(tidyverse)

example_draws <- tribble(
  ~category, ~shapes,
  FALSE,     c(10, 10, 13),
  TRUE,      c(7, 7, 8)
) |> 
  mutate(draws = map(shapes, ~{
    withr::with_seed(1234, {
      brms::rdirichlet(n = 500, alpha = .x) |>
        data.frame() |> 
        set_names(LETTERS[1:3]) |> 
        mutate(draw = 1:n())
    })
  })) |> 
  unnest(draws) |> select(-shapes) |> 
  pivot_longer(cols = c(LETTERS[1:3]), names_to = "outcome", values_to = "prop")

plot_thing <- example_draws |> 
  ggplot(aes(x = draw, y = prop, fill = outcome)) +
  geom_col(position = position_stack(), linewidth = 0, width = 1) +
  facet_wrap(vars(category)) 
plot_thing

ggsave(
  filename = "~/Desktop/plot_with_cairo.png", 
  plot = plot_thing + labs(title = "Saved as Cairo PNG"),
  width = 7.5, height = 4,
  device = png, type = "cairo", dpi = 300
)

ggsave(
  filename = "~/Desktop/plot_with_agg.png", 
  plot = plot_thing + labs(title = "Saved as agg PNG"),
  width = 7.5, height = 4,
  device = ragg::agg_png, res = 300
)

ggsave(
  filename = "~/Desktop/plot_with_cairo.pdf", 
  plot = plot_thing + labs(title = "Saved as Cairo PDF"),
  width = 7.5, height = 4,
  device = cairo_pdf
)

plot_thing_area <- example_draws |> 
  ggplot(aes(x = draw, y = prop, fill = outcome)) +
  geom_area() +
  facet_wrap(vars(category)) 
plot_thing_area

ggsave(
  filename = "~/Desktop/area_plot_with_agg.png", 
  plot = plot_thing_area + labs(title = "Saved as agg PNG, geom_area()"),
  width = 7.5, height = 4,
  device = ragg::agg_png, res = 300
)

ggsave(
  filename = "~/Desktop/area_plot_with_cairo.pdf", 
  plot = plot_thing_area + labs(title = "Saved as Cairo PDF, geom_area()"),
  width = 7.5, height = 4,
  device = cairo_pdf
)

^{Created on 2023-12-04 with reprex v2.0.2}