RAPPORT DE DIAGNOSTIC DE GROUPE IDEA 4

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

knitr::opts_chunk$set(echo = FALSE, message=FALSE, warning=FALSE, out.width = "100%")

library(IDEATools)
library(data.table)
IDEAdata <- params$data
metadata <- IDEAdata$data$metadata
n_farm <- nrow(metadata)

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

---

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

---

cat(paste0("\\fancyhead[]{}"))

Principales caractéristiques structurelles

Nombre d'exploitations : r n_farm

metadata <- metadata |>
  transform(MTD_02 = round(MTD_02, 1)) |>
  transform(MTD_15 = round(MTD_15, 1)) |>
  transform(MTD_03 = round(MTD_03, 1)) |>
  transform(MTD_08 = round(MTD_08, 0)) |>
  transform(MTD_09 = round(MTD_09, 0)) |>
  transform(MTD_10 = round(MTD_10, 0)) |>
  subset(select = c(MTD_02, MTD_15, MTD_03, MTD_08, MTD_09, MTD_10)) 

reference_list <- IDEATools:::reference_list
reference_list$metadata <- data.table::as.data.table(reference_list$metadata)

data.table::setDT(metadata)

metadata <- data.table::melt(metadata, id.vars = NULL, measure.vars = names(metadata)) |> 
  merge(reference_list$metadata, by.x = "variable", by.y = "metadata_code")

metadata <- metadata[,.(Variable = metadata_name, value = value)][, .(value), by = Variable]

metadata[, .(
  "Percentile 5" = stats::quantile(value, 0.05, na.rm=TRUE),
  "Quartile 1" = stats::quantile(value, 0.25, na.rm=TRUE),
  "Moyenne" = round(mean(value, na.rm=TRUE)),
  "Médiane" = stats::median(value, na.rm=TRUE),
  "Quartile 3" = stats::quantile(value, 0.75, na.rm=TRUE), 
  "Percentile 95" = stats::quantile(value, 0.95, na.rm=TRUE)
), by = Variable] |>  
  transform(Variable = c("SAU (ha)","UTH","Capital d'exploitation (€)", "EBE (€)", "Résultat courant (€)", "Part des PP dans la SAU (%)")) |> 
  gt::gt() |> 
  gt::tab_header(title = "Caractéristiques numériques") |> 
  gt::tab_options(table.width = gt::pct(100))

\newpage

metadata <- IDEAdata$data$metadata
unique_age <- unique(metadata$MTD_05)
unique_atelier<- data.frame(MTD = unique(metadata$MTD_12)) |> transform(MTD = ifelse(MTD == "1", yes = "oui", no = "non")) |> unlist(use.names = FALSE)
unique_elevage <- data.table(MTD = metadata$MTD_14)[, MTD := data.table::fcase(
  MTD == 0, "Pas d'élevage",
  MTD == 1, "Monogastrique",
  MTD == 2, "Herbivore"
)][, .(MTD)][, unique(MTD)]

possible_age <- data.table(
  metadata_name = "Tranche d’âge du chef d’exploitation",
  value = c("-25","26-35","36-45", "46-55","56-65","65+"),
  n = 0
) |>
  subset(!value %in% unique_age)

possible_atelier <- data.table(
  metadata_name = "Atelier hors sol",
  value = c("oui","non"),
  n = 0
) |>
  subset(!value %in% unique_atelier)

possible_elevage <- data.table(
  metadata_name = "Type d’élevage",
  value = c("Pas d'élevage","Monogastrique","Herbivore"),
  n = 0
)|>
  subset(!value %in% unique_elevage)


metadata_selected <- as.data.table(metadata)[, .(MTD_05,MTD_06,MTD_11,MTD_12,MTD_13,MTD_14)]

metadata_selected[, MTD_12 := ifelse(MTD_12 == "1", yes = "oui", no = "non")]

metadata_selected[, MTD_14 := data.table::fcase(
  MTD_14 == 0, "Pas d'élevage",
  MTD_14 == 1, "Monogastrique",
  MTD_14 == 2, "Herbivore"
)]

reference_list <- IDEATools:::reference_list
reference_list$metadata <- data.table::as.data.table(reference_list$metadata)

metadata_long <- data.table::melt(metadata_selected, measure.vars = names(metadata_selected)) |> 
  merge(reference_list$metadata[, .(metadata_code, metadata_name)], by.x = "variable", by.y = "metadata_code")

metadata_long <- metadata_long[, .(metadata_name, value)][, metadata_name := ifelse(grepl(x = metadata_name, pattern = "Atelier"), yes = "Atelier hors sol", no = metadata_name)]

metadata_count <- metadata_long[, .(n = .N), by = .(metadata_name, value)]

metadata_count <- data.table::rbindlist(list(metadata_count,possible_age, possible_elevage, possible_atelier))

metadata_count[, c("Nom", "Modalité", "Nombre d'exploitations") := .(metadata_name, value, n)][, .(Nom, Modalité, "Nombre d'exploitations" = n)] |> 
  gt::gt() |> 
  gt::tab_header(title = "Caractéristiques catégorielles") |> 
  gt::tab_options(table.width = gt::pct(100))

\newpage

Lecture par les dimensions de la durabilité

Résultats pour les 3 dimensions

print(IDEAdata$dimensions_boxplot)

\newpage

print(IDEAdata$dimensions_histogram)

\newpage

Résultats pour les 13 composantes

print(IDEAdata$components_boxplot + ggplot2::theme(axis.text = ggplot2::element_text(size = 20)))

\newpage

Résultats détaillés par indicateur

print(IDEAdata$indic_ae_boxplot)

print(IDEAdata$indic_st_boxplot)

print(IDEAdata$indic_ec_boxplot+ ggplot2::theme(axis.text = ggplot2::element_text(size = 13))) 

\newpage

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

Matrice des résultats individuels

print(IDEAdata$heatmap)

\newpage

Fréquence d'attribution de chaque modalité

\begin{center} \rotatebox{270}{

\begin{minipage}{0.9\textheight}

ggplot2::ggplot(IDEAdata$freq_plot$data,ggplot2::aes(x = node_name, y = prop, fill = value)) +
      ggplot2::geom_col(position = "stack", color ="black") +
      ggplot2::geom_label(ggplot2::aes(label = paste0(round(prop),"%")),position = ggplot2::position_stack(vjust = 0.5),size = 17) +
      ggplot2::scale_fill_identity("\uc9valuation", guide = ggplot2::guide_legend(reverse = TRUE), labels = c("Très défavorable","Défavorable","Favorable","Très favorable")) +
      IDEATools:::theme_idea() +
      ggplot2::coord_flip() +
      ggplot2::theme(axis.text = ggplot2::element_text(size = 45),axis.title = ggplot2::element_text(size = 45), legend.text = ggplot2::element_text(size = 45), legend.title = ggplot2::element_text(size = 50)) +
      ggplot2::labs(x = "", y = "Fr\u00e9quence (%)") +
      ggplot2::scale_y_continuous(breaks = seq(0,100,5))

\end{minipage}} \end{center}

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