0

我从 ggQC 包中生成了三个stat_pareto图，并使用ggplot2包中的以下函数：

require(ggQC)
require(ggplot2)

p3 <- ggplot(t3, aes(x=equip, y=tempo)) +
    stat_pareto(point.color = "red",
                point.size = 3,
                line.color = "black",
                #size.line = 1,
                bars.fill = c("blue", "orange")
    )+
    ggtitle("Turno 3") +
    xlab("Tempo") + ylab("Equipamento")+
    theme(text = element_text(size=10), axis.text.x = element_text(angle = 90, vjust = 0.5, hjust=1))

然后，我使用了 gridExtra 包中的 grid.range 函数，在同一个图上绘制了三个帕累托图：

grid.arrange(p1, p2, p3, nrow = 1, top = textGrob("Tempo x Equipamento",gp=gpar(fontsize=20,font=3)))

但是结果不是很令人满意，因为我在y轴上有不同的刻度。有谁知道如何以相同的比例绘制三个图表？

在此处输入图像描述

数据：

> t1
       equip tempo
1  DISP. DIM    11
2  OPEN GATE    42
3     PAINEL    14
4      PINÇA    49
5       ROBO     3
6 T. ROLETES    46
> t2
      equip tempo
1 DISP. DIM    17
2 OPEN GATE    64
3     PINÇA    54
4      ROBO   297
> t3
        equip tempo
1   DISP. DIM     9
2   OPEN GATE   146
3       PINÇA    42
4 DISPOSITIVO     2
4

0 回答 0