ちょっと面倒な方法になりますが、関数を上書きしてしまえばいちおう可能です。
まずこの関数 process.capability() のコードを下記URLから取ってきます。
https://raw.githubusercontent.com/luca-scr/qcc/master/R/capability.R
このコードの24行目の部分を
title <- paste(object$data.name, "についての工程能力分析")
のように適当に書き換えて、例えば custom.r などとして保存しておきます。
r
1# ライブラリと改変した関数の読み込み
2library(qcc)
3source("custom.r")
4
5# サンプルデータで実行
6data(pistonrings)
7attach(pistonrings)
8diameter <- qcc.groups(diameter, sample)
9q <- qcc(diameter[1:25,], type="xbar", nsigmas=3, plot=FALSE)
10process.capability(q, spec.limits=c(73.95,74.05))
追記です。titleにobject$data.nameを入れなくても良いなら、上書きする関数のほうではタイトルを空欄にしておいて、この関数を呼んだ後でタイトルだけ書き込む、という方法もありますね。その都度関数にタイトルを書きに戻る必要がないので、こっちのほうが使いやすいかも知れません。
R
1library(qcc)
2
3# タイトル部分を空欄にした関数を読み込み
4# title <- paste("")
5source("custom.r")
6
7# サンプル通り
8data(pistonrings)
9attach(pistonrings)
10diameter <- qcc.groups(diameter, sample)
11q <- qcc(diameter[1:25,], type="xbar", nsigmas=3, plot=FALSE)
12
13# 描画後にタイトルを追記
14process.capability(q, spec.limits=c(73.95,74.05), add.stats=FALSE, restore.par = FALSE)
15title(main="工程能力分析")
16
17# 文字サイズや色をplot()などと同じ要領で変更
18process.capability(q, spec.limits=c(73.95,74.05), add.stats=FALSE, restore.par = FALSE)
19title(main = list("工程能力分析", cex = 1.8, col = "blue", font = 2))
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/08/02 01:46