Data$LengthEmplCat <- factor(Data$LengthEmplCat, levels = c("0-3 Months", "3-6 Months", "6-12 Months", "1-2 Years","2-3 Years", "3-5 Years", "5-10 Years", "10-20 Years", "20+ Years" ))
barplot(table(Data$LengthEmplCat), main ="Length of employment")
MissedDays <- filter(Data, TotalDaysUnfitForWork > 0)
MissedDays$LengthEmplCat <- factor(MissedDays$LengthEmplCat, levels = c("0-3 Months", "3-6 Months", "6-12 Months", "1-2 Years","2-3 Years", "3-5 Years", "5-10 Years", "10-20 Years", "20+ Years" ))
   barplot(table(MissedDays[,"LengthEmplCat"]), main = "Length of Employment for incidents leading to missed days") #Interestingly appears like more experience people are being put in more dangerous jobs?  #look into it to see if anymore difference.