544118_ja-JP

liliconcom

for ループで列を削除する

やあ、

 

空の列を削除する for ループ スクリプトを作成します (列には N/A のみが含まれます)。

1つのファイルを除いて問題なく動作し、想定外の場合に1つの列が削除されます。

何が悪いのかわからない

 

for (i= ncols (dt[d]),i>=1,i--,
 summarize(data table(dt[d]),temp = by(column(i)));
 if(nitems(temp) ==1 & temp[1]=="N/A",
  data table(dt[d])<< delete columns(column(i));
 );
);

スクリプティングRe: forループで列を削除する

forループの中に補助的なprint文を追加して、特定の列で何が起こっているかを確認してください。私は通常Show()関数を使うのが好きです。

Names Default To Here(1);

dt = {};

dt_u = New Table("Untitled",
	Add Rows(3),
	New Column("Column 1", Character, "Nominal", Set Values({"N/A", "N/A", "N/A"})),
	New Column("Column 2", Character, "Nominal", Set Values({"a", "", ""})),
	New Column("Column 3", Character, "Nominal", Set Values({"b", "", ""})),
	New Column("Column 4", Character, "Nominal", Set Values({"N/A", "N/A", ""}))
);
dt[1] = dt_u << get name;
d = 1;

For(i = N Cols(Datatable(dt[d])), i >= 1, i--,
	Summarize(Data Table(dt[d]), temp = by(Column(i)));
	If(i == 3,
		show(temp);
	);
	If(N Items(temp) == 1 & temp[1] == "N/A",
		show(temp);
		Data Table(dt[d]) << delete columns(Column(i))
	);
);