ループを使用してジャーナルにデータ テーブルを追加するのに役立ちます。こんにちは、JMP初心者です。 ループによって生成されたテーブルをジャーナルに追加しようとしています。 しかし、あまり運がありません。 これについての助けをいただければ幸いです。 これが私のスクリプトです。 私の最初のテーブルは、SQL クエリを実行することによって生成されています。
dt2 = dt<<概要(
グループ( :MODULE, :STEP ),
Freq( "なし" ),
重量( "なし" )
);
ModuleList = Column(dt2,"MODULE")< StepList = Column(dt2,"STEP")< numrows= nrows(dt2);
閉じる (dt2、nosave);
(i=1, i<=numrows, i++,
dt<< select Where (:MODULE==ModuleList[i] & :STEP==StepList[i]);
odt= (dt << サブセット(
出力テーブル( ModuleList[i] ),
選択された行( 1 ),
選択した列のみ( 0 )));
dt<< 選択をクリアします。
jrn<< Append(Text Box(ModuleList[i])); //現在、テーブルをジャーナルに追加しています。
odt<< ジャーナル; //ただし、ModuleList[i] をタイトルとして Collesapble window/ListBox として追加したいと思います。
閉じる (odt,nosave);
);
Re: ループを使用してジャーナルにデータ テーブルを追加する方法を教えてください。VListBox の代わりに、テーブル タイトルの長さが異なる場合に役立つ LineUpBox を使用します。
テーブルが同じテーブルのサブセットではない場合、つまりテーブルの列数が異なる場合、私が知っている唯一の方法は、各テーブルに PanelBox のようなコンテナーを使用することです。 一番大きい幅を見つけて、各パネル ボックスを同じ幅に設定します。
うまくいけば、LineupBox だけで十分です。変更したスクリプトを添付します。
Re: ループを使用してジャーナルにデータ テーブルを追加する方法を教えてください。やあ@gzmorgan0 、 お返事ありがとうございます。 解決策は完璧でした。 一つだけ質問があります。 ボックス内のテキストが 1 行に収まるようにボックス (Outlinebox) のサイズを変更する方法はありますか。
お時間をいただき、ありがとうございました。
Re: ループを使用してジャーナルにデータ テーブルを追加する方法を教えてください。これはジャーナルのスクリーンショットで、最後のテーブルが開かれています。
Re: ループを使用してジャーナルにデータ テーブルを追加する方法を教えてください。これを行うには複数の方法があります。 別の方法については、[ヘルプ] > [スクリプト インデックス] > [DataTableColBox] を参照してください。
ここに1つの方法があります
Names Default to Here(1);
dt = Open("$sample_data/Big Class.jmp");
//get the group list
Summarize(Data Table(dt), grps = By(:sex, :age) );
show(grps); //List of 2 lists of equal size, the first list's items are gender, the second age
ob = OutlineBox("Subset Tables", vl=VListBox() );
For(i=1, i<=nitems(grps[1]), i++, //can also use grps[2]
ttl = EvalInsert("Sex = ^grps[1][i]^, Age = ^grps[2][i]^");
//note Summarize lists converts numeric to character so num() function is required
//If the grouping columns are character, this is not needed.
dt << Select Where(:sex==grps[1][i] & :age==num(grps[2][i]) );
odt= (dt << Subset( Invisible, Output Table( ttl ),
Selected Rows( 1 ),
Selected columns only( 0 ))
);
dg = odt << New Data Box();
tmp = OutlineBox( ttl, dg);
tmp << close(1);
vl << append(tmp);
dt << clear select;
); // end for
//ob hase a nice table like view of each subset, but once you close the tables the view is gone
//so journaling creates te report view, and the subsetted tables can be closed.
nw = New Window("Tables", <<JOURNAL></JOURNAL>
