BlackBrownRedBlond0.05.010.015.020.025.030.035.040.045.050.00.053.0BrownBlueHazelGreenGroupedStacked
  1. hair_eye_male <- subset(as.data.frame(HairEyeColor), Sex == "Male")
  2. n2 <- nPlot(Freq ~ Hair, group = 'Eye', data = hair_eye_male, type = 'multiBarChart')