Timon/SmartCane
1
1
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

minor visualistion chagnes

Browse source
This commit is contained in:
Timon 2025-06-25 11:01:37 +02:00
parent ea6842af48
commit a6aa002d33
1 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
r_app/CI_report_dashboard_planet.Rmd
View file

@ -324,7 +324,6 @@ This automated report provides weekly analysis of sugarcane crop health using sa
\newpage
# Explanation of the Report # Explanation of the Report
This report provides a detailed analysis of your sugarcane fields based on satellite imagery, helping you monitor crop health and development throughout the growing season. The data is processed weekly to give you timely insights for optimal farm management decisions. This report provides a detailed analysis of your sugarcane fields based on satellite imagery, helping you monitor crop health and development throughout the growing season. The data is processed weekly to give you timely insights for optimal farm management decisions.
@ -440,8 +439,6 @@ tryCatch({
}) })
``` ```
\newpage
# Chlorophyll Index (CI) Overview Map - Current Week # Chlorophyll Index (CI) Overview Map - Current Week
```{r render_ci_overview_map, echo=FALSE, fig.height=7, fig.width=10, message=FALSE, warning=FALSE} ```{r render_ci_overview_map, echo=FALSE, fig.height=7, fig.width=10, message=FALSE, warning=FALSE}
# Create overview chlorophyll index map # Create overview chlorophyll index map
@ -469,8 +466,6 @@ tryCatch({ # Base shape
``` ```
\newpage
# Weekly Chlorophyll Index Difference Map # Weekly Chlorophyll Index Difference Map
```{r render_ci_difference_map, echo=FALSE, fig.height=7, fig.width=10, message=FALSE, warning=FALSE} ```{r render_ci_difference_map, echo=FALSE, fig.height=7, fig.width=10, message=FALSE, warning=FALSE}
# Create chlorophyll index difference map # Create chlorophyll index difference map
@ -509,7 +504,7 @@ tryCatch({
dplyr::summarise(.groups = 'drop') dplyr::summarise(.groups = 'drop')
# Generate plots for each field # Generate plots for each field
for(i in seq_along(AllPivots_merged$field[1:3])) { for(i in seq_along(AllPivots_merged$field)) {
field_name <- AllPivots_merged$field[i] field_name <- AllPivots_merged$field[i]
tryCatch({ tryCatch({