Cause and Effect Diagram

Represents a Cause and Effect Diagram by cause group.

ss.ceDiag(
  effect,
  causes.gr,
  causes,
  main = "Six Sigma Cause-and-effect Diagram",
  sub,
  ss.col = c("#666666", "#BBBBBB", "#CCCCCC", "#DDDDDD", "#EEEEEE", "#FFFFFF", "#000000",
    "#000000")
)

Arguments

effect: A short character string that represents the effect we want to analyse.
causes.gr: A vector of characters that represents the causes groups.
causes: A vector with lists that represents the individual causes for each
main: Main title for the diagram
sub: Subtitle for the diagram (recommended the Six Sigma project name)
ss.col: A vector of colors for a personalized drawing. At least five colors, sorted by descendant intensity

Value

A drawing of the causes and effect with "fish-bone" shape

Details

The default value for ss.col is c("#666666", "#BBBBBB", "#CCCCCC", "#DDDDDD", "#EEEEEE", "#FFFFFF", "#000000", "#000000"), a grayscale style. You can pass any accepted colour string.

Note

The cause and effect diagram is also known as "Ishikawa diagram", and has been widely used in Quality Management. It is one of the Seven Basic Tools of Quality.

References

Cano, Emilio L., Moguerza, Javier M. and Redchuk, Andres. 2012. Six Sigma with R. Statistical Engineering for Process Improvement, Use R!, vol. 36. Springer, New York. https://link.springer.com/book/10.1007/978-1-4614-3652-2/.

Wikipedia, https://en.wikipedia.org/wiki/Ishikawa_diagram/

Author

EL Cano

Examples

effect <- "Flight Time"
causes.gr <- c("Operator", "Environment", "Tools", "Design", 
  "Raw.Material", "Measure.Tool")
causes <- vector(mode = "list", length = length(causes.gr))
causes[1] <- list(c("operator #1", "operator #2", "operator #3"))
causes[2] <- list(c("height", "cleaning"))
causes[3] <- list(c("scissors", "tape"))
causes[4] <- list(c("rotor.length", "rotor.width2", "paperclip"))
causes[5] <- list(c("thickness", "marks"))
causes[6] <- list(c("calibrate", "model"))
ss.ceDiag(effect, causes.gr, causes, sub = "Paper Helicopter Project")