問候,
我需要幫助編寫多步驟過程的腳本,因為我無法抽像出可行的解決方案來實現一些數據準備工作。
我有幾個電子表格形式的時間序列數據,包含幾個選項卡,每個選項卡都有列名的數據,其中包含將數據上下文化的元數據。
在下面的示例中,帶有“描述符”的列(第 1,3 和 5 列)應該真正命名為“日期”,而是包含分析所需的描述符。此外,單位列(2,4 和 6)應該真正命名為數據,但包含度量單位。
| 大:小:濕 | 毫克 | 差:好:醜 | 赫茲 | 港口:右舷:速度 | 毫升 |
| 12/15/2021 | 0 | 12/15/2021 | 4 | 12/15/2021 | 8 |
| 12/16/2021 | 1 | 12/16/2021 | 5 | 2021 年 12 月 16 日 | 9 |
| 2021 年 12 月 17 日 | 2 | 12/17/2021 | 6 | 2021 年 12 月 17 日 | 10 |
| 12/18/2021 | 3 | 12/18/2021 | 7 | 12/18/2021 | 11 |
理想情況下,完成的數據表將具有以下結構。
| 日期 | 描述符類型 1 | 描述符類型 2 | 描述符類型 3 | 單元 | 數據 |
| 12/15/2021 | 大的 | 小的 | 濕 | 毫克 | 0 |
| 2021 年 12 月 16 日 | 大的 | 小的 | 濕 | 毫克 | 1 |
| 12/17/2021 | 大的 | 小的 | 濕 | 毫克 | 2 |
| 12/18/2021 | 大的 | 小的 | 濕 | 毫克 | 3 |
| 12/15/2021 | 壞的 | 好的 | 醜陋的 | 赫茲 | 4 |
| 12/16/2021 | 壞的 | 好的 | 醜陋的 | 赫茲 | 5 |
| 12/17/2021 | 壞的 | 好的 | 醜陋的 | 赫茲 | 6 |
| 12/18/2021 | 壞的 | 好的 | 醜陋的 | 赫茲 | 7 |
| 12/15/2021 | 港口 | 右舷 | 速度 | 毫升 | 8 |
| 2021 年 12 月 16 日 | 港口 | 右舷 | 速度 | 毫升 | 9 |
我嘗試將列標題拉入單獨的表並重新加入嵌套的 for 循環並沒有成功。這是為包含的示例數據提取和準備列名稱數據的代碼。
Names Default to Here(1);
//Get MainDT column Names
colNames = Data Table("Data") << Get Column Names;
//Create Empty Table
dtCols = New Table("DTCols");
//Put in Columns into the table
dtCols << New Column( "Columns", Character, Values(colNames));
//Label every other row for splitting
dtCols << New Column( "Data", formula( sequence(1,2,1)));
//Remove formula from Data column
dtCols:Data << Delete Formula;
<BR />//New column from which to split from
dtCols << New Column( "Type", formula(
If(
contains(:Columns, "Desc"), "Meta",
"Unit_Raw"
);
);
);
//Deleting formula for handling
dtCols:Type << Delete formula;
//Splitting the row based on the labelling
splitdtCols = dtCols << Split(
Split By( :Type ),
Split( :Columns ),
Sort by Column Property,
Output Table( "SplitDTCols" )
);
//Text to Columns by ":"
splitdtCols << text to columns(delimiter(":"), columns(:Meta));嵌套的 for 循環(它只是看起來將完整的描述放回原始表中)不僅相對較慢(需要循環遍歷 > 100 萬個條目)而且它只將丟失的數據寫入列中。
//Meta column back into Data
For(i = 1, i <= N Items(colNames), i++,
For(j = 1, j <= N Rows(splitdtCols), j++,
//show(splitdtCols:Meta[j]);
If( eval(char(colNames[i])) == eval(char(splitdtCols:Meta[j])),
Data Table("Data") << New Column("Descriptor", set Values(eval(char(splitdtCols:Meta[j]))))
)
)
);我願意放棄將列名數據拉到單獨的表中的方法。真的感覺我缺少一種更簡單的方法。
交互式地,這很容易做到多系列堆疊.
使用 Tables->Stack 並將所有列添加到堆疊列列表。 然後單擊複選框多系列堆疊. 放系列數到 2 並且不檢查連續的.

你會得到一個這樣的表:

重命名數據列到日期和標籤 2列到單位.

然後,您可以使用 Cols->Utilities->文本到列...使用冒號 (":") 作為分隔符將 Label 列拆分為三列。

你會得到這個:

如果您需要為此編寫腳本,因為這是您需要自動化的事情,或者您經常這樣做,您可以從源腳本中獲取堆棧的腳本:
stacked_dt = Data Table( "445470" ) << Stack(
columns(
:"Big:Small:Wet"n, :mg, :"Bad:Good:Ugly"n, :Hz, :"Port:Starboard:Speed"n,
:mL
),
Source Label Column( "Label" ),
Stacked Data Column( "Data" ),
Number of Series( 2 )
);
你需要使用<<設置名稱消息以更改列的名稱。
stacked_dt:"Data" << Set Name( "Date" );
stacked_dt:"Label 2" << Set Name( "Units" );
最後,Text to Columns 也是可編寫腳本的。
stacked_dt << Text To Columns(
delimiter( ":" ),
columns( :Label )
);
這正是我所希望的。一些簡單的東西,我忽略了。我能夠很快實現這一點。