r - R でパレート図の 2 番目の y 軸を調整する

Question

R で 2 つのパレート図を作成しましたが、どちらも同じデータを使用しています。1 つは ggplots stat_pareto を使用し、もう 1 つは qcc ライブラリの pareto.chart 関数を使用します。

ggplot(DT4, aes(x = reorder(sap_object_type_desc, -sum_duration), y = 
  sum_duration)) + 
  geom_bar(stat="identity") +
  theme(axis.text.x=element_text(angle=90,hjust=1)) + 
  stat_pareto(point.color = "red",   
              point.size = 2,        
              line.color = "black",  
              #size.line = 1,        
              bars.fill = c("blue", "orange"))

またはpareto.chart関数を使用して

pareto.chart(avector, 
             ylab = "Sum", 
             # xlab = "Objective Type Description", 
             main = "Avector Pareto Chart",
             cumperc = c(20,40,60,80,100)) # or = seq(0, 100, by =25)

私がやりたいことは、上の両方のプロットで 2 番目の y 軸を調整して、3 番目の例のように 100% の累積パーセンテージが最高のバーと一致するようにすることです。助言がありますか？