R语言实现质量控制图

上次费了半天劲写出了Xbar-R代码之后第二天就发现了R语言中的SixSigma和qcc程序包。各种质量控制图应有尽有，画的还比我好看#手动微笑。

http://www.cda.cn/uploadfile/image/20170609/20170609130000_11625.png

> library(qcc)  #加载qcc程序包

> qcc(a[1:20,], type="R") 

> a <- a[-7,]  #删去第7组异常值

> qcc(a[1:19,], type="R")  #注意删去之后样本数变为19

http://www.cda.cn/uploadfile/image/20170609/20170609125924_30213.png

此时R图判稳。接下来对Xbar图操作只要换为type="xbar"即可。最终得到的控制用控制图如下：

http://www.cda.cn/uploadfile/image/20170609/20170609125902_64111.png

关于组均值方差之类的统计量也一应俱全：

http://www.cda.cn/uploadfile/image/20170609/20170609125827_54791.png

pcc函数可以实现的控制图如下。有兴趣的可以看Six Sigma with R这本书。

http://www.cda.cn/uploadfile/image/20170609/20170609125754_55430.png