자주 기록해야 하는 열 그룹이 있습니다. 향상된 로그를 복사하는 것만으로도 작동하지만 코드가 덜 투박해 지도록 이들을 어떻게 결합합니까?
// Open Data Table: Big Class.jmp
// → Data Table( "Big Class" )
Open( "$SAMPLE_DATA/Big Class.jmp" );
// Change column name: name → Student's name
Data Table( "Big Class" ):name << Set Name( "Student's name" );
// Change column name: age → Student's age
Data Table( "Big Class" ):age << Set Name( "Student's age" );
열 이름 재코드를 사용할 수 있습니다.
Cols=>열 이름=>열 이름 다시 코딩....
한 번 수행하면 기록을 생성하는 JSL이 무엇인지에 대한 로그에 JSL이 표시됩니다.
// Recode column names
Local( {dt = Data Table( "Big Class" ), names},
names = Recode(
dt << Get Column Names( String ),
{Map Value(
_rcOrig,
{"age", "s age", "height", "s height", "name", "s name", "sex", "s sex",
"weight", "s weight"},
Unmatched( _rcNow )
)}
);
For Each( {name, i}, names, Column( dt, i ) << Set Name( name ) );
);
열 이름 목록을 얻는 것도 매우 쉽습니다. 이 목록에서 모든 열의 이름을 변경합니다.
Names Default To Here( 1 );
dt = Current Data Table();
nameList = dt << get column names( string );
For Each( {col}, nameList,
Column( col ) << set name( "Student's " || col )
);