Diagnostic IDEAv4

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

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

IDEA_plots <- params$data
IDEAdata <- IDEA_plots$data
outdir <- params$outdir
prefix = params$prefix

IDEATools::write_idea(IDEA_plots, output_directory = outdir, type = "local", prefix = prefix, dpi = params$dpi, quiet = TRUE)

Caractéristiques principales de l'exploitation {-}

• Année : r IDEAdata$metadata$MTD_13
• Département : r IDEAdata$metadata$MTD_11
• SAU : r IDEAdata$metadata$MTD_02 hectares
• OTEX : r IDEAdata$metadata$MTD_06
• EBE : r as.character(round(IDEAdata$metadata$MTD_09,2))€
• UTH : r IDEAdata$metadata$MTD_03 individus

Lecture de la durabilité : approche par les trois dimensions de la durabilité

Résultats globaux pour les trois dimensions

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

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Dimensions",paste0(prefix,"_","Dimensions.png")))

Résultats lus selon les 13 composantes (histogramme)

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Dimensions",paste0(prefix,"_","Composantes.png")))

Résultats lus selon les 13 composantes (diagramme polarisé)

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Dimensions",paste0(prefix,"_","Composantes polarisées.png")))

Résultats détaillés par indicateur

Indicateurs agroécologiques

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Dimensions",paste0(prefix,"_","Indicateurs Agroécologiques.png")))

Indicateurs socio-territoriaux

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Dimensions",paste0(prefix,"_","Indicateurs Socio-Territoriaux.png")))

Indicateurs économiques

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Dimensions",paste0(prefix,"_","Indicateurs Economiques.png")))

La seconde lecture par les propriétés de la durabilité

Les cinq arbres éclairés des propriétés

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Arbres éclairés",paste0(prefix,"_","Arbre global.png")))

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Arbres éclairés",paste0(prefix,"_","Ancrage Territorial.png")), auto_pdf = TRUE)

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Arbres éclairés",paste0(prefix,"_","Autonomie.png")))

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Arbres éclairés",paste0(prefix,"_","Capacité productive et reproductive de biens et de services.png")), auto_pdf = TRUE)

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Arbres éclairés",paste0(prefix,"_","Responsabilité globale.png")))

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Arbres éclairés",paste0(prefix,"_","Robustesse.png")), auto_pdf = TRUE)

Diagrammes radar des notes obtenues au sein de chaque propriété

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Radars",paste0(prefix,"_","Ancrage Territorial.png")))

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Radars",paste0(prefix,"_","Autonomie.png")))

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Radars",paste0(prefix,"_","Capacité productive et reproductive de biens et de services.png")))

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Radars",paste0(prefix,"_","Responsabilité globale.png")))

knitr::include_graphics(file.path(outdir,Sys.Date(),prefix,"Propriétés","Radars",paste0(prefix,"_","Robustesse.png")))

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