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 日創建}