2

管理図から下限管理限界と中心線 (およびそれらのラベル) を削除する必要があります。

コードは次のとおりです。

# install.packages('qcc')
library(qcc)
nonconforming <- c(3, 4, 6, 5, 2, 8, 9, 4, 2, 6, 4, 8, 0, 7, 20, 6, 1, 5, 7)
samplesize <- rep(50, 19)
control <- qcc(nonconforming, type = "p", samplesize, plot = "FALSE")
warn.limits <- limits.p(control$center, control$std.dev, control$sizes, 2)
par(mar = c(5, 3, 1, 3), bg = "blue")
plot(control, restore.par = FALSE, title = "P Chart for Medical Insurance Claims", 
     xlab = "Day", ylab = "Proportion Defective")
abline(h = warn.limits, lty = 3, col = "blue")
v2 <- c("LWL", "UWL")  # the labels for warn.limits
mtext(side = 4, text = v2, at = warn.limits, col = "blue", las = 2)
4

3 に答える 3

1

決してQCの専門家ではありませんが、これはあなたにとって役に立ちますか? qcc 関数を見ると、何をプロットする必要があるかを制御しているように見えるので、ここで行ったことは、LCL および CENTER ラインの制限を操作することです。次に、プロット関数を変更して、-1 値をカバーしないいくつかの y 制限の間をプロットしました。残念ながら、この説明には、操作された制限値 -1 が反映されています。

control$limits[1] <- -1
control$center <- -1

    plot(control, restore.par = FALSE, title = "P Chart for Medical Insurance Claims", 
     xlab = "Day", ylab = "Proportion Defective", ylim=c(0.0,0.4))

ここに画像の説明を入力

于 2016-01-21T19:48:33.873 に答える
1

このアプローチは、答えというよりも「ハック」のように見え、警告をスローします。

control$center <- NULL
control$limits <- NULL
plot(control, add.stats = FALSE)
于 2016-01-21T20:07:50.043 に答える