如何一起使用qicharts2和ggplots2？

Question

根据包页面，一个 qic 对象继承自 'ggplot'。还提到包导入： ggplot2 (? 2.2.0)。

这表明必须有一种方法可以将 ggplot2 和 qchart2 结合起来。我已经尝试过 ggplot(data) + qic(details) 但没有成功。

我希望能够这样做的原因是为了改进 qicharts2 图的格式。谷歌搜索并没有为此产生任何有用的东西（我怀疑是这种情况，因为 qicharts2 仅在本月（2018 年 2 月）发布。

干杯，

亚伦

编辑：这已经解决了。解决方案是 qic 返回一个 ggplot 对象。这意味着您可以执行 qic() + theme() + 等。如下所述。

跟进，有什么方法可以编辑/更改灰色方块？

Edit2：灰色方块是硬编码的，限制也是如此。但是，可以从 qic()$ 检索结果并构建您自己的图形。

Edit3：我最终使用了 qcc 包。它给出了与 minitab 相同的结果，qicharts2 给出了不同的结果。有关这方面的更多信息，请参见此处。虽然我发现 qcc 的设计令人不快，但它是可读的。

Answer 1

使用 qicharts2 软件包帮助中的图表示例

library(qicharts2)
library(ggplot2)


p <- qic(age,
    data    = tail(cabg, 100), 
    chart   = 'i',
    exclude = c(45, 70),
    title   = 'Age of the last 100 patients (I chart)',
    ylab    = 'Years',
    xlab    = 'Patient #')

p2 <- p$data


ichart <- ggplot(p2,aes(x,y)) +
  geom_ribbon(ymin = p2$lcl,ymax = p2$ucl, fill = "green",alpha = 0.4) +
  geom_line(colour = "blue", size = .75) + 
  geom_line(aes(x,cl)) +
  geom_point(colour = "black" , fill = "black", size = 1.5) +
  ggtitle(label = "example i chart") +
  labs(x = NULL,
       y = NULL)+
  theme_minimal()

ichart

现在有了阶梯限制，再次使用包中的数据

 step <- qic(month, n,
               data  = cdi,
               chart = 'c',
               part  = 24,
               title = '',
               ylab  = 'Count',
               xlab  = 'Month')

stepped <- step$data

stepped %>% 
  ggplot(aes(x,y)) +
    geom_ribbon(ymin = stepped$lcl,ymax = stepped$ucl, 
    fill = "steel  blue",alpha = 0.4) +
  geom_line(size = .75) + 
  geom_line(aes(x,cl)) +
  geom_point(size = 1.5) +
  ggtitle(label = "example c chart with stepped limits") +
      labs(x = NULL,
       y = NULL) +
  geom_text(aes(label = round(cl.lab,2), y = cl + 1)) +
  theme_minimal() +
  theme(panel.grid.minor = element_blank(),
    panel.grid.major = element_blank()) 

# last line optional