Answer 1(i)The column“Cause”is aNominal typeof variable as the data set provided in the excel sheet“Question1.csv”has no natural ranking of category. The data under the Cause column cannot benaturally ordered or ranked and belongs to a describable classification of lost time injuries.(ii)Pareto chartsare the appropriate graphical form, they can represent nominal data types as the categorycan be ordered on the horizontal axis of the chart from most frequent to the least in left to right order.(iii)#Code in R studio> install.packages("qcc")# install the required packages> library(qcc)> setwd("~/STAT6160/Assignment")# set the working directory> dataset1 <- read.csv("Question1-1.csv", header=TRUE)# load the dataset> pct <- (dataset1$Percentage)# declare the data> names(pct) <- c(dataset1$ï..Cause)# declare the labels> pareto.chart(+pct,+ylab = "Percentage",# label y left+ylab2 = "Cumulative Percentage",# label y right+col=heat.colors(length(pct)),# colors of the chart+cumperc = seq(0, 100, by = 25),# percentage range at the right+main = " Pareto Chart for Causes of lost time "# chart title+ )(iv)A key finding from the above Pareto chart, is that more than 50% of the time lost due to any type ofaccident at the mining site is because of workers falling either on the floor or from height. This alsoindicates that the maximum amount of time lost is due to the external environment and workingconditions of the workers, as the machines and chemicals have very less significance in contributing tothe time lost. Also, the cumulative line is steep and contributes 100%, therefore the data is completeand there is no missing information.