Различные масштабы значений оси Y на графике stat_pareto - PullRequest
Новая
       60

Различные масштабы значений оси Y на графике stat_pareto

0 голосов
/ 17 июня 2020

Я создал три графика stat_pareto из пакета ggQ C со следующей функцией из пакета 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))

Затем я использовал функцию grid.range из пакета gridExtra , чтобы построить три диаграммы Парето на одной фигуре: 

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

Но результат был не очень удовлетворительным, потому что у меня разные масштабы по оси Y. Кто-нибудь знает, как я могу построить три графика в одном масштабе?

enter image description here

Данные: 

> 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
...