grid.arrange与QICharts

Question

我正在尝试从qicharts安排多个图表。通过一些工作，我得到了它，grid.arrange会做任何事情，但它只显示最后一项而不是两者。

library(qicharts)
library(grid)
library(gridExtra)
y <- rnorm(24, 12, 3)
a <- qic(y,chart="i")
b <- qic(y,chart="mr")
grid.arrange(grob(plot(a)),grob(plot(b)))

Answer 1

qicharts:::plot.qic表明它依赖于基本图形，因此绘图会立即在设备上进行，并且不会存储绘图本身。您可以使用par（mfrow）等基本函数并排排列多个图，或者将这些基本图形对象转换为grob，例如使用gridGraphics包。

或者，基于网格的函数tcc可能会产生类似的输出，并且可以与grid.arrange一起使用，

grid.arrange(tcc(rnorm(24)), tcc(rnorm(24)))