544118_zh-CN

liliconcom

使用 for 循环删除列

你好，

 

我创建了一个 for 循环脚本来删除空列（列仅包含 N/A）。

它工作正常，除了在一个文件上，一列在不应该被删除时被删除。

不知道出了什么问题

 

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));
 );
);

脚本回复：使用 for 循环删除列

在 for 循环内添加辅助打印语句，以便查看特定列的运行情况。我通常喜欢使用 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))
	);
);