スクリプトを使って管理図にサブタイトルを追加する方法をご存知の方はいらっしゃいますか?サブタイトル名の列があり、それをループ処理して、行1を列2のサブタイトルとして、行2を列3のサブタイトルとして、といった具合にしたいのですが。
もしこれが可能であれば、何かヒントや知識があれば教えていただけると嬉しいです!ありがとうございます!
コントロール チャート (ビルダー) にサブタイトルを設定できるかどうかは不明なので、タイトルとして使用されるテキスト編集ボックスのコピーを作成し、それを新しいテキスト ボックスに追加する必要がある可能性があります。
以下は一例です
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Quality Control/Coating.jmp");
new_col = dt << New Column("subtitles", Character, Nominal);
new_col[1] = "text1";
new_col[2] = "text2";
nw = New Window("",
vlb = V List Box()
);
nw << Show Window(0);
cols_of_interest = {"Weight", "Weight 2"};
subtitles = :subtitles << get values;
For Each({col_of_interest, idx}, cols_of_interest,
vlb << append(obj = dt << Control Chart Builder(Variables(Y(:Weight), Subgroup(:Sample))));
title_teb = (Report(obj)[TextEditBox(1)]);
gb_titlebox = title_teb << parent;
gb_titlebox << Append(V List Box(align("center"),
title_teb << Clone box(),
Text Box(dt[idx, "subtitles"])
));
title_teb << Delete Box();
wait(0);
);
nw << Show Window(1);