Ich habe zwei verschiedene Datentabellen, A und B. In jeder Datentabelle gibt es eine Spalte mit einer ähnlichen Variable.
Ich erstelle aus jeder Datentabelle A und B eine Teilmenge nach Spalte mit ähnlicher Variable, indem ich eine separate For-Schleife verwende, um einen Tabellenbericht zu erstellen und ihn in ein neues Fenster einzufügen.
Mir fällt auf, dass alle aus der Teilmengendatentabelle A erstellten Tabellenberichte in ein neues Fenster eingefügt werden und anschließend alle Tabellenberichte aus der Teilmengendatentabelle B folgen.
Ich möchte für jede Variablenebene einen Tabellenbericht aus der Teildatentabelle A und anschließend einen Tabellenbericht aus der Teildatentabelle B anhängen.
Wie soll ich den Code schreiben?
Um dies zu veranschaulichen, verwende ich als Beispiel den Datensatz „Big Class“ und „Big Class Families“.
dt1 = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt2 = Open( "$SAMPLE_DATA/Big Class Families.jmp" );
vb = V List Box();
listdt1 = {};
listdt2 = {};
coldt1 = Column (dt1, "age");
coldt2 = Column (dt2, "age");
colleveldt1 = Associative Array(coldt1) << Get Keys;
colleveldt2 = Associative Array(coldt1) << Get Keys;
For (i=1, i <=N Items(colleveldt1), i++,
dt1row = dt1 << Get Rows Where(:age == colleveldt1[i]);
listdt1[i] = dt1 << Subset(Rows(dt1row));
tb = listdt1[i]<< Get As Report;
vb << Append (Table Box(tb));
);
For (i=1, i <=N Items(colleveldt2), i++,
dt2row = dt2 << Get Rows Where(:age == colleveldt2[i]);
listdt2[i] = dt2 << Subset(Rows(dt2row));
tb = listdt2[i]<< Get As Report;
vb << Append (Table Box(tb));
);
New Window("Report", vb);
Ein einfacher Umzug der JSL bringt Sie, was Sie wollen
Names Default To Here( 1 );
dt1 = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt2 = Open( "$SAMPLE_DATA/Big Class Families.jmp" );
vb = V List Box();
listdt1 = {};
listdt2 = {};
coldt1 = Column (dt1, "age");
coldt2 = Column (dt2, "age");
colleveldt1 = Associative Array(coldt1) << Get Keys;
colleveldt2 = Associative Array(coldt1) << Get Keys;
For (i=1, i <=N Items(colleveldt1), i++,
dt1row = dt1 << Get Rows Where(:age == colleveldt1[i]);
listdt1[i] = dt1 << Subset(Rows(dt1row),invisible);
tb = listdt1[i]<< Get As Report;
vb << Append (Table Box(tb));
dt2row = dt2 << Get Rows Where(:age == colleveldt2[i]);
listdt2[i] = dt2 << Subset(Rows(dt2row),invisible);
tb = listdt2[i]<< Get As Report;
vb << Append (Table Box(tb));
);
New Window("Report", vb);