Diagnostic IDEAv4

library(knitr)
library(data.table)
knitr::opts_chunk$set(
    echo = FALSE,
    message = FALSE,
    warning = FALSE,
    out.width = "100%"
)
outdir <- params$outdir
IDEA_plots <- params$data
IDEAdata <- IDEA_plots$data
metadata <- IDEAdata$metadata
n_farm <- nrow(metadata)

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

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

Distribution des résultats du groupe

knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Distribution_dimensions.png"))

Résultats individuels globaux pour les trois dimensions

knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Histogramme_dimensions.png"))

Résultats lus selon les 13 composantes

knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Distribution_composantes.png"))

Résultats détaillés par indicateur

Indicateurs agroécologiques

knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Distribution_indicateurs_agroecologiques.png"))

Indicateurs socio-territoriaux

knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Distribution_indicateurs_socio_territoriaux.png"))

Indicateurs économiques

knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Distribution_indicateurs_economiques.png"))

Lecture par les propriétés

Matrice des propriétés

knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Matrice_propriétés.png"))

Fréquence d'attribution des modalités

knitr::include_graphics(file.path(outdir,Sys.Date(),paste0("Groupe_",n_farm),"Graphiques","Fréquence_propriétés.png"))


Try the IDEATools package in your browser

Any scripts or data that you put into this service are public.

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