863922_it-IT

liliconcom

Domanda JSL su tabulazione, ordinamento, celle colorate nella casella della tabella dati

Ciao Community, la mia intenzione è quella di creare più tabelle tramite tabulate, ordinare la colonna di destinazione in ogni tabella dalla più grande alla più piccola, unirle tramite una nuova finestra e mostrare i dati della prima riga in verde. Di seguito è riportato come l'ho fatto con la classe big data di esempio, con alcuni problemi che non riesco a capire perché:

1. la finestra di ordinamento rimane aperta e non esegue realmente l'ordinamento

2. la piattaforma tabulata rimane aperta

3. non so come colorare le celle dopo averle inserite nella casella della tabella dati in una nuova finestra

Di seguito il mio JSL:

Open( "$SAMPLE_DATA/Big Class.jmp" );

Data Table( "Big Class.jmp" ) << Tabulate();

Local( {obj},
	obj = Data Table( "Big Class.jmp" ) << Tabulate(
		Show Control Panel( 0 ),
		Add Table(
			Column Table( Analysis Columns( :height ) ),
			Row Table( Grouping Columns( :name ) )
		)
	);
	dt1 = obj << Make Into Data Table;
	obj << Close Window;
);

dt1 << Sort(
	By( :"sum(height)"n ),
	Replace Table,
	Order( Descending )
);

Data Table( "Big Class.jmp" ) << Tabulate();

Local( {obj},
	obj = Data Table( "Big Class.jmp" ) << Tabulate(
		Show Control Panel( 0 ),
		Add Table(
			Column Table( Analysis Columns( :weight ) ),
			Row Table( Grouping Columns( :name ) )
		)
	);
	dt2 = obj << Make Into Data Table;
	obj << Close Window;
);


dt2 << Sort(
	By( :"sum(weight)"n ),
	Replace Table,
	Order( Descending )
);

nw = new window("summary", H list box(data table box(dt1), data table box(dt2)));

Automazione e scriptingRe: Domanda JSL su tabulazione, ordinamento, celle colorate nella casella della tabella dati

Potrebbero essere problemi relativi agli spazi dei nomi (si sta utilizzando Locale)

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");

obj = dt << Tabulate(
	Show Control Panel(0),
	Add Table(Column Table(Analysis Columns(:height)), Row Table(Grouping Columns(:name)))
);
dt1 = obj << Make Into Data Table;
obj << Close Window;

dt1 << Sort(By(:"sum(height)"n), Replace Table, Order(Descending));

obj = dt << Tabulate(
	Show Control Panel(0),
	Add Table(Column Table(Analysis Columns(:weight)), Row Table(Grouping Columns(:name)))
);
dt2 = obj << Make Into Data Table;
obj << Close Window;

dt2 << Sort(By(:"sum(weight)"n), Replace Table, Order(Descending));

nw = New Window("summary", H List Box(Data Table Box(dt1), Data Table Box(dt2)));

Re: Domanda JSL su tabulazione, ordinamento, celle colorate nella casella della tabella dati

molte grazie!

Ho provato ma il problema con l'ordinamento della piattaforma continua ad aprirsi, senza realmente intervenire.

se eseguo il codice riga per riga, funziona, ma non so perché fallisce quando eseguo l'intero codice...

Re: Domanda JSL su tabulazione, ordinamento, celle colorate nella casella della tabella dati

Ecco come sono riuscito a far funzionare il tuo codice:

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );

//Data Table( "Big Class.jmp" ) << Tabulate();

//Local( {obj},
obj = Data Table( "Big Class.jmp" ) << Tabulate(
	Show Control Panel( 0 ),
	Add Table( Column Table( Analysis Columns( :height ) ), Row Table( Grouping Columns( :name ) ) )
);
dt1 = obj << Make Into Data Table;
obj << Close Window;
//);

dt1 << Sort( By( :"sum(height)"n ), Replace Table, Order( Descending ) );

// Color the cells in row 1
Current Data Table( dt1 );
:name << color cells( "green", 1 );
:"Sum(height)"n << color cells( "green", 1 );


//Data Table( "Big Class.jmp" ) << Tabulate();

Local( {obj},
	obj = Data Table( "Big Class.jmp" ) << Tabulate(
		Show Control Panel( 0 ),
		Add Table( Column Table( Analysis Columns( :weight ) ), Row Table( Grouping Columns( :name ) ) )
	);
	dt2 = obj << Make Into Data Table;
	obj << Close Window;
);

dt2 << Sort( By( :"sum(weight)"n ), Replace Table, Order( Descending ) );

// Color the cells in row 1
Current Data Table( dt2 );
:name << color cells( "green", 1 );
:"sum(weight)"n << color cells( "green", 1 );

// The only way I know to copy cell colors in a data table to a display
// window, is to move the data table with the colored cells to a journal
// Then it can be copied into a display object in a display window.
// I repeat the operation twice in the code below
nw = New Window( "summary", hls = H List Box() );
intJr = New Window( "x", <<JOURNAL></JOURNAL>