905667_es-ES

liliconcom

JMP 17.2 > INFORME PERSONALIZADO > STRING COL BOX > ¿Cómo distribuyo una lista larga en varias columnas?

Hola comunidad JMP,

Estoy experimentando con un informe personalizado (ver más abajo), para el cual me gustaría distribuir listas de longitud variable en varias columnas mediante un String Col Box(). Por ejemplo, para la lista que se muestra en el script, me gustaría distribuir sus elementos en 4 columnas de 17 líneas.

El guión simplificado (eliminé todo excepto las líneas esenciales):

Names Default to Here (1);

datastring = {	"ASPM", "AURKA", "AURKB", "BIRC5", "BUB1", "BUB1B", "CCNB1", "CCNB2", "CCNE2", "CDC20", "CDC6", "CDCA2", "CDCA5", "CDCA8", "CDK1", "CDT1", 
				"CENPE", "CENPF", "CENPK", "CENPN", "CENPS", "CENPW", "DIAPH3", "DLGAP5", "ECT2", "ESCO2", "FAM83D", "HJURP", "KIF11", "KIF14", "KIF15", "KIF18A", 
				"KIF18B", "KIF23", "KIF2C", "KIF4A", "KIFC1", "KNL1", "MAD2L1", "MKI67", "NCAPG", "NCAPH", "NDC80", "NEK2", "NUF2", "NUSAP1", "OIP5", "PLK1", "PRC1", "PSRC1", 
				"PTTG1", "RACGAP1", "SGO1", "SGO2", "SKA1", "SKA3", "SPAG5", "SPC24", "SPC25", "TACC3", "TOP2A", "TPX2", "TRIP13", "TTK", "UBE2C", "UHRF1", "ZWILCH", "ZWINT"};

// The length of the list varies from 4 to 125 items, depending on the specific report

rep_w = New Window ("REPORT TEST",
	
	mainframe = HList Box("DATA",
		
		text_data = TableBox (Col Span Box ("MEMBERS", String Col Box ("Genes", datastring)))
		
	)
);

Gracias.

Atentamente,

TS

Automatización y scriptingCompartir y comunicar resultadosVentanasRe: JMP 17.2 > INFORME PERSONALIZADO > STRING COL BOX > ¿Cómo distribuyo una lista larga en varias columnas?

Aquí tienes una forma de hacer lo que quieres. Dividí el código en sentencias individuales, asumiendo que querrás incorporar lógica de bucle en el código final.

theList=rep_w[stringcolbox(1)]<
     <GET></GET>

Re: JMP 17.2 > INFORME PERSONALIZADO > STRING COL BOX > ¿Cómo distribuyo una lista larga en varias columnas?

Hola txnelson,

Gracias por tus comentarios, pero esto proporciona una solución para analizar la entrada de un String Col Box en una tabla. En realidad, estoy buscando otra cosa: ¿cómo analizar una lista en varias columnas dentro de una estructura String Col Bax?

Mejor,

TS

Re: JMP 17.2 > INFORME PERSONALIZADO > STRING COL BOX > ¿Cómo distribuyo una lista larga en varias columnas?

¿Esto es lo que quieres?

Names Default to Here (1);

datastring = {	"ASPM", "AURKA", "AURKB", "BIRC5", "BUB1", "BUB1B", "CCNB1", "CCNB2", "CCNE2", "CDC20", "CDC6", "CDCA2", "CDCA5", "CDCA8", "CDK1", "CDT1", 
				"CENPE", "CENPF", "CENPK", "CENPN", "CENPS", "CENPW", "DIAPH3", "DLGAP5", "ECT2", "ESCO2", "FAM83D", "HJURP", "KIF11", "KIF14", "KIF15", "KIF18A", 
				"KIF18B", "KIF23", "KIF2C", "KIF4A", "KIFC1", "KNL1", "MAD2L1", "MKI67", "NCAPG", "NCAPH", "NDC80", "NEK2", "NUF2", "NUSAP1", "OIP5", "PLK1", "PRC1", "PSRC1", 
				"PTTG1", "RACGAP1", "SGO1", "SGO2", "SKA1", "SKA3", "SPAG5", "SPC24", "SPC25", "TACC3", "TOP2A", "TPX2", "TRIP13", "TTK", "UBE2C", "UHRF1", "ZWILCH", "ZWINT"};

// The length of the list varies from 4 to 125 items, depending on the specific report

rep_w = New Window ("REPORT TEST",
	
	mainframe = HList Box("DATA",
		
		text_data = TableBox (Col Span Box ("MEMBERS"))
		
	)
);

text_data<
     <APPEND></APPEND>

Re: JMP 17.2 > INFORME PERSONALIZADO > STRING COL BOX > ¿Cómo distribuyo una lista larga en varias columnas?

@Thierry_S

Aquí hay una forma generalizada de hacerlo en JSL. Creé una función que requiere una lista original y un entero. La función divide la lista original en n listas más pequeñas y devuelve la lista de listas. Si el número de elementos de la lista original no es divisible por n, la n-ésima columna contendrá el resto de los elementos. Esto mantiene la función general por si se desea volver a usarla para una tabla con más o menos columnas.

Luego se crea la tabla agregando cada lista como un cuadro de cadena col a un cuadro de tabla:

Names Default to Here (1);

splitList_fxn = function( {list, n}, 

	// split a list into into n evenly divided lists and return a list of lists
	// if list items/n is not an integer, place the extra items in the nth column

	{i,j,k,n,lists,thisList,listSize,items},
	
	lists = {};
	items = n items( list );
	listSize = round( items/n );
	
	k = 0; // counter
	for( i = 1, i <= n, i++,
		thisList = {};
		if( i != n,
		
			// all but the last list
			for( j = (k*listSize)+1, j <= listSize*i, j++, 
				insert into( thisList, list[j] )
			),
			
			// last list will be the remaining items in case there is a remainder
			for( j = (k*listSize)+1, j <= items, j++,
				insert into( thisList, list[j] )
			)
		);
		k++;
		insert into( lists, eval list( list( thisList ) ) )
	);
	return( lists )
);

// number of columns
n = 4;

// original list
datastring = {	"ASPM", "AURKA", "AURKB", "BIRC5", "BUB1", "BUB1B", "CCNB1", "CCNB2", "CCNE2", "CDC20", "CDC6", "CDCA2", "CDCA5", "CDCA8", "CDK1", "CDT1", 
				"CENPE", "CENPF", "CENPK", "CENPN", "CENPS", "CENPW", "DIAPH3", "DLGAP5", "ECT2", "ESCO2", "FAM83D", "HJURP", "KIF11", "KIF14", "KIF15", "KIF18A", 
				"KIF18B", "KIF23", "KIF2C", "KIF4A", "KIFC1", "KNL1", "MAD2L1", "MKI67", "NCAPG", "NCAPH", "NDC80", "NEK2", "NUF2", "NUSAP1", "OIP5", "PLK1", "PRC1", "PSRC1", 
				"PTTG1", "RACGAP1", "SGO1", "SGO2", "SKA1", "SKA3", "SPAG5", "SPC24", "SPC25", "TACC3", "TOP2A", "TPX2", "TRIP13", "TTK", "UBE2C", "UHRF1", "ZWILCH", "ZWINT"};

// The length of the list varies from 4 to 125 items, depending on the specific report

// split the original list into n lists of equal size
col_lists = splitList_fxn( datastring, n );

// create table box and append string col boxes with each list
table = tablebox();
for each( {list,index}, col_lists,
	table << append( string col box( "Col " || char(index), list ) )
);

// create report window
rep_w = new window( "REPORT TEST", 
	
	mainframe = HList Box("DATA",
		table	
	)	
);

n = 4

n = 8

Re: JMP 17.2 > INFORME PERSONALIZADO > STRING COL BOX > ¿Cómo distribuyo una lista larga en varias columnas?

splitList_fxn = function( {list, n}, 
	{default local},
	lists = {};
	
	Nparts =ceiling(nitems(list)/n);
	i=0;
	
	while(nitems(list),
	i++;
	chunk = remove from (list, 1,Nparts);
	Insert Into(lists, eval list({chunk}));
	);
	
	if(i
     <N></N>

<P><BR /><CODE class=" language-jsl">Insert Into(lists, eval list({chunk})); ?
It's need till:
Insertar en: Aplanar(0|1)