RAPPORT DE DIAGNOSTIC INDIVIDUEL IDEA 4

In IDEATools: Individual and Group Farm Sustainability Assessments using the IDEA4 Method

knitr::opts_chunk$set(echo = FALSE, out.width = "100%", fig.align = "center", dpi = params$dpi)

library(IDEATools)
IDEA_plots <- params$data
IDEA_data <- IDEA_plots$data

nom_files <- IDEA_data$metadata$MTD_01
date <- IDEA_data$metadata$MTD_13

---

author: "r nom_files" subtitle: r paste0("Analyse du"," ",format(Sys.Date(),'%d/%m/%Y')) date : "r date"

---

cat(paste0("\\fancyfoot[L]{Diagnostic individuel IDEA 4}"))
cat(paste0("\\fancyfoot[R]{",nom_files," | ",date,"}"))
cat(paste0("\\fancyhead[]{}"))

\newpage

Principales caractéristiques structurelles

tibble::tibble(metadata_code = names(IDEA_data$metadata), value = unlist(IDEA_data$metadata)) |> 
  merge(IDEATools:::reference_list$metadata, by = "metadata_code") |> 
  subset(select = c(metadata_name, value)) |> 
  setNames(c("Caractéristique", "Valeur")) |> 
  knitr::kable()

\newpage

Lecture par les dimensions de la durabilité

Résultats pour les 3 dimensions

\Large

min_val <- min(unlist(IDEA_data$dataset$dimension_value))

La note de durabilité attribuée par IDEA4 à cette exploitation agricole est de r min_val / 100 (valeur la plus faible).

\large

print(IDEA_plots$dimensions$plot_dimensions)

\newpage

Résultats pour les 13 composantes

print(IDEA_plots$dimensions$plot_components + ggplot2::theme(text = ggplot2::element_text(size = 25)))

print(IDEA_plots$dimensions$plot_components_polarised)

\newpage

Résultats pour les 19 indicateurs Agroécologiques

print(IDEA_plots$dimensions$plot_indic_ae)

\newpage

Résultats pour les 23 indicateurs Socio-territoriaux

print(IDEA_plots$dimensions$plot_indic_st)

\newpage

Résultats pour les 11 indicateurs Economiques

print(IDEA_plots$dimensions$plot_indic_ec)

Lecture par les propriétés des systèmes agricoles durables

Résultats globaux synthétiques

\begin{center} \rotatebox{270}{

\begin{minipage}{0.9\textheight}

print(IDEA_plots$trees$Global)

\end{minipage}} \end{center}

\newpage

Propriété "Autonomie"

\begin{center} \rotatebox{270}{

\begin{minipage}{0.9\textheight}

print(IDEA_plots$trees$Autonomie)

\end{minipage}} \end{center}

\newpage

Propriété "Capacité productive et reproductive de biens et de services"

\begin{center} \rotatebox{270}{

\begin{minipage}{0.9\textheight}

print(IDEA_plots$trees$Capacite)

\end{minipage}} \end{center}

\newpage

Propriété "Responsabilité Globale"

\begin{center} \rotatebox{270}{

\begin{minipage}{0.9\textheight}

print(IDEA_plots$trees$Responsabilite)

\end{minipage}} \end{center}

\newpage

Propriété "Ancrage Territorial"

\begin{center} \rotatebox{270}{

\begin{minipage}{0.9\textheight}

print(IDEA_plots$trees$Ancrage)

\end{minipage}} \end{center}

\newpage

Propriété "Robustesse"

\begin{center} \rotatebox{270}{

\begin{minipage}{0.9\textheight}

print(IDEA_plots$trees$Robustesse)

\end{minipage}} \end{center}

Diagrammes radar des indicateurs de chaque propriété

print(IDEA_plots$radars$radar_Ancrage)

print(IDEA_plots$radars$radar_Autonomie)

print(IDEA_plots$radars$radar_Capacite)

print(IDEA_plots$radars$radar_Responsabilite)

print(IDEA_plots$radars$radar_Robustesse)

IDEATools documentation built on May 29, 2024, 9:35 a.m.