回答編集履歴
1
少し追記
test
CHANGED
@@ -35,3 +35,53 @@
|
|
35
35
|
```
|
36
36
|
|
37
37
|
![イメージ説明](674477745ffa40e4a0a9359036954124.png)
|
38
|
+
|
39
|
+
------
|
40
|
+
|
41
|
+
|
42
|
+
|
43
|
+
追記です。titleにobject$data.nameを入れなくても良いなら、上書きする関数のほうではタイトルを空欄にしておいて、この関数を呼んだ後でタイトルだけ書き込む、という方法もありますね。その都度関数にタイトルを書きに戻る必要がないので、こっちのほうが使いやすいかも知れません。
|
44
|
+
|
45
|
+
|
46
|
+
|
47
|
+
```R
|
48
|
+
|
49
|
+
library(qcc)
|
50
|
+
|
51
|
+
|
52
|
+
|
53
|
+
# タイトル部分を空欄にした関数を読み込み
|
54
|
+
|
55
|
+
# title <- paste("")
|
56
|
+
|
57
|
+
source("custom.r")
|
58
|
+
|
59
|
+
|
60
|
+
|
61
|
+
# サンプル通り
|
62
|
+
|
63
|
+
data(pistonrings)
|
64
|
+
|
65
|
+
attach(pistonrings)
|
66
|
+
|
67
|
+
diameter <- qcc.groups(diameter, sample)
|
68
|
+
|
69
|
+
q <- qcc(diameter[1:25,], type="xbar", nsigmas=3, plot=FALSE)
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
# 描画後にタイトルを追記
|
74
|
+
|
75
|
+
process.capability(q, spec.limits=c(73.95,74.05), add.stats=FALSE, restore.par = FALSE)
|
76
|
+
|
77
|
+
title(main="工程能力分析")
|
78
|
+
|
79
|
+
|
80
|
+
|
81
|
+
# 文字サイズや色をplot()などと同じ要領で変更
|
82
|
+
|
83
|
+
process.capability(q, spec.limits=c(73.95,74.05), add.stats=FALSE, restore.par = FALSE)
|
84
|
+
|
85
|
+
title(main = list("工程能力分析", cex = 1.8, col = "blue", font = 2))
|
86
|
+
|
87
|
+
```
|