Réaliser un diagramme de causes à effet

install.packages("qcc") # installation si nécessaire

library(qcc)    # chargement de la librairie qcc

les_causes = list(

Mesures=c("Absence de contrôles métrologiques", "Précision des appareils", "Précision du technicien"),

Matière=c("Matière première de mauvaise 'qualité'", "Des produits contaminés contaminants"),

Main_doeuvre=c("Personnel inexpérimenté dans la gestion de la machine", "Qualiticien sans autorité"),

Milieu=c("Condensation", "Moisissures","Froid"),

Méthode=c("Les machines ne sont pas sous contrôle", "La réglementation n'est pas appliquée", "Démarche qualité inexistante"),

Machine=c("Pannes fréquentes", "Révisions nombreuses", "Chauffe", "Approvisionnement lent en pièces")

)

names(les_causes) =c("Mesures","Matières","Main d'oeuvre","Milieu","Méthode","Machine") # permet de changer le nom main d'oeuvre

effet = "La production doit s'arrêter \n ce qui engendre des coûts" # le \n permet un retour à la ligne

titre =  "Diagramme de causes à effets"

cause.and.effect(cause=les_causes,effect=effet, title = titre,cex = c(1.8, 0.6, 1), font = c(1, 3, 2))

# cex : taille des polices des causes principales (1.8 pour Milieu, Matériel...), taille des sous-causes, taille de l'effet

# font : précise le format de causes principales, sous-causes et effet (1 : normal, 2 : gras, 3 : italique, 4 : gras + italique)