R: построение нескольких диаграмм q cc :: cusum на одном дисплее

Question

Я новичок в R и пытаюсь построить несколько диаграмм CUSUM на одном дисплее. Я пробовал par(mfrow=c(2,1)), layout(), cowplot(), и это не сработало.

Упомянутая функция делает 1-ю диаграмму CUSUM меньше и строится как обычно plot(); успешно построил 1-й CUSUM в верхней половине. Однако 2-я диаграмма CUSUM просто обновляет экран автоматически, а не отображается ниже 1-й диаграммы на том же дисплее. Приветствуется любое решение или только возможное решение, заранее большое спасибо.

Для ясности, я не говорю о построении данных cumsum, а о построении графиков CUSUM с помощью функции cusum (), например: cusum (data , std.dev = standard_deviation_of_data, center = center, add.stats = FALSE, xlab = "Studies", title = "CUSUM chart", labels = labels)

Answer 1

Проблема, скорее всего, связана с тем, что создается график класса «cusum.q cc».

Я не знаю, как заставить это работать как базовый график r.

Я пробовал различные способы построения графика в базе r, включая: par (mfrow ...), layout (...) и par (... new = TRUE)

Также пытался преобразовать график cusum в grob, чтобы использовать gridExtra::grid.arrange()

Ни одно из этих усилий не помогло, поэтому пришлось прибегнуть к сохранению графиков как изображений и объединению изображений

library(qcc)
library(magick)

data

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)

^{Created on 2020-07-09 by the пакет REPEX (v0.3.0)}