fix ggplot figure after bug fix

inbo · Mar 11, 2024 · aaf54d6 · aaf54d6
1 parent ca89f03
commit aaf54d6
Showing 1 changed file with 11 additions and 0 deletions.
diff --git 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),