R：在一个显示器中绘制多个 qcc::cusum 图表

Question

我是 R 的新手，我正在尝试 plot 在一个显示器中显示多个 CUSUM 图表。 我试过par(mfrow=c(2,1)) ， layout() ， cowplot() ，但没有奏效。

提到的 function 确实使第一个 CUSUM 图更小，并且像普通plot()一样绘制； 在上半区成功绘制了第一个 CUSUM。 但是，第二个 CUSUM 图表只是自动刷新显示，而不是在同一显示中的第一个图表下方的 plot。 欢迎任何解决方案或可能的解决方案，提前非常感谢。

需要明确的是，我不是在谈论绘制“cumsum”数据，而是使用 cusum() function 绘制 CUSUM 图表，如下所示： cusum(data, std.dev = standard_deviation_of_data, center = center, add.stats=FALSE, xlab="研究”，标题=“CUSUM 图表”，标签=标签）

Answer 1

该问题很可能与生成 class "cusum.qcc" 的 plot 的事实有关。

我不知道如何使这项工作作为基础 r plot。

我在基础 r 中尝试了各种方法来 plot，包括：par(mfrow...)、layout(...) 和 par(...new = TRUE)

还尝试将 cusum plot 转换为grob以便使用gridExtra::grid.arrange()

这些努力都没有奏效，因此不得不将绘图保存为图像并组合图像

library(qcc)
library(magick)

数据

data(pistonrings)
attach(pistonrings)
diameter <- qcc.groups(diameter, sample)

另存为图像

jpeg(file="q1.jpeg")
cusum(diameter[1:25,], decision.interval = 4, se.shift = 1)
dev.off()

jpeg(file="q2.jpeg")
cusum(diameter[1:25,], newdata=diameter[26:40,])
dev.off()

读取和组合图像

q1 <- image_read("q1.jpeg")
q2 <- image_read("q2.jpeg")

img <- c(q1, q2)

image_append(img)

^{由代表 package (v0.3.0) 于 2020 年 7 月 9 日创建}