r - stat_pareto 图中 y 轴值的不同比例
问题描述
我从 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
解决方案
推荐阅读
- c# - 如何从 Angular .Netcore 应用程序发送带有附件的电子邮件?
- shell - 为什么我在 cmd 中的 1 行命令不起作用?
- php - 如何确保图像和文本是响应式的?
- video - 当在两个不同帧率的视频中截屏时,我需要使用可变帧率吗
- ios - 如何让我选择的图像按照它们被选择的顺序出现?
- jquery - 通过 jQuery 实现 Foursquare API 来查找餐厅
- c# - 实体框架 MVC 代码优先 BIND 不适用于 EDIT 操作中的子实体
- twitter-bootstrap - 带有 bootstrap-vue 输入框的 Mapbox Geocoder - mapbox 的自定义搜索框
- sql - “标量子查询产生了多个元素”
- node.js - mongoose populate() 函数是否为每个相关文档单独执行