ci_scenarios <- tibble::tribble(
~scenario, ~lower, ~upper,
"not enough data: we know almost nothing", 0.2, 5,
"absence of evidence", 0.5, 2,
"\"trending toward significance\" (still absence of evidence)", 0.95, 2.5,
"evidence of absence", 0.97, 1.03,
"evidence of a negligible effect", 1.02, 1.1,
"uncertain whether negligible or substantial", 1.05, 1.8,
"evidence of a substantial effect", 1.7, 1.8,
"substantial, but imprecise", 1.5, 4
) |>
dplyr::mutate(scenario = factor(scenario, levels = rev(scenario)))
ci_scenarios |>
ggplot2::ggplot() +
ggplot2::aes(y = scenario, xmin = lower, xmax = upper) +
ggplot2::geom_errorbarh(height = 0.3) +
ggplot2::geom_vline(xintercept = 1, linetype = "dashed") +
ggplot2::scale_x_log10() +
ggplot2::labs(x = "Ratio estimand (log scale); null value = 1", y = NULL)