Barchart, Pareto

1.    I could not print the data in ROF column below
the bar charts,  How to get full labels for each bar
insted I createda  new coumn ReasonCode just to fit
below the bars.

You could plot the barchart horizontally, and increase the margins to
allow the full labels:

windows(6,4) #or x11(6,4)
par(omd=c(0.2,1,0,1))
oo<-order(Frequency, decreasing=F)
barplot(Frequency[oo],names.arg=Reason.for.failure[oo], horiz=T,
las=1)