質問: FALSE ) ``` ※qcc関数がtitleを引数に持てるようなので試してみましたが、どうやらprocess.capabilityに渡した段階で上書きされてしまうようでした。
回答: ちょっと面倒な方法になりますが、関数を上書きしてしまえばいちおう可能です。 まずこの関数 process.capability() のコードを下記URLから取ってきます。 このコードの24行目の部分を `title <- paste(object$data.name, "についての工程能力分析")` のように適当に書き換えて、例えば custom.r などとして保存しておきます。 ``` # ライブラリと改変した関数の読み込み library(qcc) source("custom.r") # サンプルデータで実行 data(pistonrings) attach(pistonrings) diameter <- qcc.groups(diameter, sample) q <- qcc(diameter[1:25,], type="xbar", nsigmas=3, plot=FALSE) process.capability(q, spec.limits=c(73.95,74.05)) ``` イメージ説明 追記です。titleにobject$data.nameを入れなくても良いなら、上書きする関数のほうではタイトルを空欄にしておいて、この関数を呼んだ後でタイトルだけ書き込む、という方法もありますね。その都度関数にタイトルを書きに戻る必要がないので、こっちのほうが使いやすいかも知れません。 ``` library(qcc) # タイトル部分を空欄にした関数を読み込み # title <- paste("") source("custom.r") # サンプル通り data(pistonrings) attach(pistonrings) diameter <- qcc.groups(diameter, sample) q <- qcc(diameter[1:25,], type="xbar", nsigmas=3, plot=FALSE) # 描画後にタイトルを追記 process.capability(q, spec.limits=c(73.95,74.05), add.stats=FALSE, restore.par = FALSE) title(main="工程能力分析") # 文字サイズや色をplot()などと同じ要領で変更 process.capability(q, spec.limits=c(73.95,74.05), add.stats=FALSE, restore.par = FALSE) title(main = list("工程能力分析", cex = 1.8, col = "blue", font = 2)) ```