737626_zh-TW

liliconcom

如何從數字字串建立每行 3 列的資料表

我是 JSL 的新手。我有一個文字字串，其中包含由“#”分隔的值。這些數字將分成 3 列

我知道我可以編寫一段程式碼將值放入由「#」分隔的列中，但是如何建立一個每行包含 3 個值的表，直到該表完成。我知道我可能還需要刪除第一個「#」以防止問題，因為前 3 個數字將位於第 2 至第 4 列。

例如：

#1#0.93#0.99#2#1.92#1.99#3#2.9#2.99#4#3.86#3.98#5#4.85#4.98

可以去這個：

1

0.93

0.99

2

1.92

1.99

3

2.9

2.99

4

3.86

3.98

5

4.85

4.98

但是我該如何編寫 JSL 程式碼才能達到此目的：

值1	值2	值3
1	0.93	0.99
2	1.92	1.99
3	2.9	2.99
4	3.86	3.98
5	4.85	4.98

在此範例中，表中有 5 行，但行數可能會有所不同。

資料混合與清理回覆：如何從數字字串建立每行 3 列的資料表

使用“文字到列”來獲取此內容

然後將您的資料堆疊到多個系列堆疊中

最後刪除額外的列，重命名列標題並修復列資料/建模類型

JMP 創建的腳本是最終 JSL 的良好起點

// Text to columns
Data Table("Untitled 6") << Text to Columns(columns(:Column 1), Delimiters("#"));


// Stack data table
// → Data Table("Untitled 11")
Data Table("Untitled 6") << Stack(
	columns(
		:Column 1 1, :Column 1 2, :Column 1 3, :Column 1 4, :Column 1 5, :Column 1 6,
		:Column 1 7, :Column 1 8, :Column 1 9, :Column 1 10, :Column 1 11,
		:Column 1 12, :Column 1 13, :Column 1 14, :Column 1 15
	),
	Source Label Column("Label"),
	Stacked Data Column("Data"),
	Drop All Other Columns(1),
	Number of Series(3),
	Output Table("Untitled 11.jmp")
);


// Delete columns
Data Table("Untitled 11") << Delete Columns(:Label, :Label 2, :Label 3);


// Recode column names
Local({dt = Data Table("Untitled 11"), names},
	names = Recode(
		dt << Get Column Names(String),
		{Map Value(
			_rcOrig,
			{"Data", "Value1", "Data 2", "Value2", "Data 3", "Value3"},
			Unmatched(_rcNow)
		)}
	);
	For Each({name, i}, names, Column(dt, i) << Set Name(name));
);


// Standardize column attributes
Local({old dt = Current Data Table()},
	Current Data Table(Data Table("Untitled 11"));
	For Each({col, index}, {:Value1, :Value2, :Value3},
		col << Data Type(Numeric, Format("Best", 12)) <<
		Set Modeling Type("Continuous")
	);
	Current Data Table(old dt);
);

回覆：如何從數字字串建立每行 3 列的資料表

這是一種方法

Names Default To Here( 1 );
theString = "#1#0.93#0.99#2#1.92#1.99#3#2.9#2.99#4#3.86#3.98#5#4.85#4.98";

dt = New Table( "Start",
	add rows( 1 ),
	New Column( "string", character, set each value( theString ) )
);
dt << Text To Columns( delimiter( "#" ), columns( :string ) );
dt << delete columns( :string );
colNames = dt << get column names( string );
For Each( {col}, colNames,
	Column( dt, col ) << Data Type( Numeric, Format( "Best", 12 ) ) <<
	Set Modeling Type( "Continuous" )
);

dt << Stack(
	columns( colNames ),
	Source Label Column( "Label" ),
	Stacked Data Column( "Value" ),
	Number of Series( 3 ),
	Output Table( "Final" )
);

dtFinal = Current Data Table();
dtFinal << delete columns( {:Label, :Label2, :Label3} );
dtFinal:value << set name( "Value 1" );

close( dt, nosave);