Quelqu'un connaît-il un moyen d'ajouter des sous-titres aux graphiques de contrôle via un script ? J'aimerais avoir une colonne de noms de sous-titres et je voudrais parcourir cette colonne en ajoutant la ligne 1 comme sous-titre pour la colonne 2, la ligne 2 comme sous-titre pour la colonne 3, etc.
Si c'est possible, n'hésitez pas à me donner des conseils ! Merci !
Je ne sais pas si vous pouvez définir des sous-titres sur Control Chart (Builder), vous devrez donc peut-être créer une copie de la zone d'édition de texte qui est utilisée comme titre, puis l'ajouter à une nouvelle zone de texte.
Vous trouverez ci-dessous un exemple
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);
