在R的对像图表上调整第二个y轴

Question

我在R中创建了两个pareto图表，它们都使用相同的数据。一个使用ggplots stat_pareto，另一个使用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)

我想做的是调整以上两个图的第二个y轴，以使100％的累积百分比与最高的条对齐，就像第三个示例一样。有什么建议吗？

Answer 1

这里是有关如何执行此操作的完整示例，包括所有数据处理和标题等。希望对您有所帮助：）

closest =
   5   7

哪个生产： This pareto chart with scaled axes

（显然我还不允许发布图像！）