diff --git a/content/blog/2023-05-11-assessing-interrater-agreement-in-meta-analyses-what-sample-size-do-i-need/index.Rmd b/content/blog/2023-05-11-assessing-interrater-agreement-in-meta-analyses-what-sample-size-do-i-need/index.Rmd index 1238957..68d0196 100755 --- a/content/blog/2023-05-11-assessing-interrater-agreement-in-meta-analyses-what-sample-size-do-i-need/index.Rmd +++ b/content/blog/2023-05-11-assessing-interrater-agreement-in-meta-analyses-what-sample-size-do-i-need/index.Rmd @@ -196,6 +196,12 @@ p <- res_agg %>% ```{r echo=FALSE} +p <- res_agg %>% + ggplot(aes(n, Uncertainty, col = base_rate)) + + facet_wrap(~target_kappa) + + geom_point() + geom_hline(yintercept = .2, color = "red") + geom_hline(yintercept = .1, color = "red", linetype = "dashed") + + labs(y = "Uncertainty (estimate - lower bound of 90% CI)") + p ```