diff --git a/r_app/CI_report_dashboard_planet.Rmd b/r_app/CI_report_dashboard_planet.Rmd index ec6ad6e..3e5812c 100644 --- a/r_app/CI_report_dashboard_planet.Rmd +++ b/r_app/CI_report_dashboard_planet.Rmd @@ -333,7 +333,7 @@ pred_rf_current_season <- prepare_predictions(predict(model_ffs_rf, newdata = pr ``` ```{r yield_plaatjes, echo=FALSE } -ggplot(pred_ffs_rf, aes(y = predicted_Tcha, x = tonnage_ha, col = sub_area)) + +ggplot(pred_ffs_rf, aes(y = predicted_Tcha, x = tonnage_ha)) + geom_point(size = 2, alpha = 0.6) + # Adjust point size and transparency geom_abline(intercept = 0, slope = 1, linetype = "dashed", color = "red") + # Reference line scale_x_continuous(limits = c(0, 200)) + diff --git a/r_app/Rplots.pdf b/r_app/Rplots.pdf index 88ecdb7..a70ea84 100644 Binary files a/r_app/Rplots.pdf and b/r_app/Rplots.pdf differ