stuvet

library(ggplot2)
library(ggtext)
library(dplyr)

.data <- tibble(
  prior = rexp(10000, 1), 
  posterior = rlnorm(10000, 0.25, 0.2)
) |> 
  tidyr::pivot_longer(cols = everything()) |>
  mutate(name = factor(name))