S-PLUSでは、品質管理でよく利用するヒストグラムや累積チャート等はもちろん、各種管理図が描画可能です。これらの図のカスタマイズも容易にできます。
> qcdata <- matrix(10+rnorm(100), ncol=5) # 乱数でデータを作成
> qccobj <- qcc(qcdata, type="xbar")
> qccobj2 <- qcc(qcdata, type="R")
> par(mfrow=c(2,1))
> shewart(qccobj)
> shewart(qccobj2)
（図 xbar-R管理図）
> newdata <- qcdata
> newdata[15:20,] <- newdata[15:20,] + 1/2 # newdataを作成
> cusum(qccobj, newdata, chart.all=T)
 |
 |
