回答編集履歴

1

少し追記

2017/08/03 08:50

投稿

fiwa
fiwa

スコア1192

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
+ ```