From aaf54d61b2ab46795cc62710482a1d928c4a2f86 Mon Sep 17 00:00:00 2001 From: wlangera Date: Mon, 11 Mar 2024 17:59:27 +0100 Subject: [PATCH] fix ggplot figure after bug fix --- source/markdown/exploratie_duinen_weidestreek.Rmd | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/source/markdown/exploratie_duinen_weidestreek.Rmd b/source/markdown/exploratie_duinen_weidestreek.Rmd index 80c35cd8..98fa35f0 100644 --- a/source/markdown/exploratie_duinen_weidestreek.Rmd +++ b/source/markdown/exploratie_duinen_weidestreek.Rmd @@ -1403,6 +1403,17 @@ chi_squared_df <- do.call(rbind.data.frame, out_list) ``` ```{r} +ggplot(chi_squared_df, aes(x = steekproef_grootte, y = chisq)) + + geom_point(aes(fill = finale_grootte), shape = 21, size = 3) + + geom_text(aes(label = finale_grootte), + position = position_nudge(x = -0.3, y = 0.1)) + + scale_x_continuous(minor_breaks = sizes, + breaks = seq(min(sizes), max(sizes), 5)) + + scale_fill_gradientn(colours = c("firebrick", "yellow2", "green")) + + labs(x = "Initiële steekproefgrootte", + y = "Chi-kwadraattoetsingsgrootheid", + fill = "Finale\nsteekproef-\ngrootte") + ggplot(chi_squared_df, aes(x = steekproef_grootte, y = chisq)) + geom_point(aes(fill = finale_grootte), shape = 21, size = 3) + geom_text(aes(label = finale_grootte),