Указать аблайн для использования значений левой оси Y с pareto.chart?

Question

У меня есть pareto.chart, к которому мне нужно добавить аблайн. Похоже, что аблина читает значения с правой стороны оси Y (значения%), а не с левой оси Y, поэтому мой код абстракции как бы "вне графика" - без кода ошибки, но На графике нет линий.

Мой код для диаграммы:

reject.counts <- c(32,117,86,221,44)
names(reject.counts) <- c("Discoloration", "Thickness", "Broken_handle", "Fault_in_plastic", "Labeling")

pareto.chart(reject.counts,
         main="Pareto chart of quality: reject causes",  
         xlab="Reject cause",
         ylab="Frequency",                                
         cex.names=0.6,                                 
         las=1,                                         
         col=topo.colors(length(reject.counts))                                     
)

Тогда это мой аблайн код, который не отображается:

abline(h=(sum(reject.counts)*0.8),
   col="green",
   lwd=4
)

Этот бит делает график, но он использует h=0,8.

abline(h=.8,col="red",lwd=4)

Есть ли способ сказать R, чтобы прочитать значения левой оси Y для значения h аблина?

Спасибо!