344421_es-ES

liliconcom

Script JSL para transponer columnas a filas

No estoy seguro de cómo comenzar, me gustaría recibir ayuda con un script que transpondría automáticamente las columnas específicas elegidas a las filas.

Sé cómo hacerlo manualmente, pero necesito un script ya que es una tarea muy repetitiva para cientos de archivos de datos.

Consulte el archivo jmp adjunto para ver una muestra de datos y los resultados deseados.

 

Realmente agradecería su ayuda

Tabla de datosScriptingRe: script JSL para transponer columnas a filas

El siguiente script es un buen comienzo para crear la tabla de salida que solicitó

Names Default To Here( 1 );
dt = Current Data Table();

// Transpose the Demographics
dtTrans1 = dt << Transpose(
 columns( :SBIN, :HBIN, :Alarms, :Device, :Site ),
 Transpose selected rows only( 1 ),
 Output Table( "Transpose 1" )
);

// Change the name of the first column
dtTrans1:Label << set name( "Column 1" ) << Set Display Width( 150 );

// Change the new column names
For( i = 2, i <= N Cols( dtTrans1 ), i++,
 Column( dtTrans1, i ) << set name( "Column " || Char( i + 4 ) ) << Set Display Width( 100 )
);

// Change the detail name of the Alarms
dtTrans1:Column 1[(dtTrans1 << get rows where( dtTrans1:Column 1 == "Alarms" ))[1]] = "Pass/Fail/Alarm";

// Create the Devce values
deviceRow = (dtTrans1 << get rows where( dtTrans1:Column 1 == "Device" ))[1];
For( i = 2, i <= N Cols( dtTrans1 ), i++,
 Column( dtTrans1, i )[deviceRow] = i - 1
);

// Now Find all of the columns that are parameters
parameterColNamesList = {};
For( i = 1, i <= N Cols( dt ), i++,
 If( Is Missing( Num( Word( 1, Column( dt, i ) << get name, ":" ) ) ) == 0,
  Insert Into( parameterColNamesList, Column( dt, i ) << get name )
 )
);

// Transpose the parameter columns
dtTrans2 = dt << Transpose(
 columns( Eval( parameterColNamesList ) ),
 Transpose selected rows only( 0 ),
 Output Table( "Transpose 2" )
);

// Add in the new columns to be created
dtTrans2 << Add Multiple Columns( "Column", 5, before first, Character );

// Add the values to the new columns
For( i = 1, i <= N Rows( dtTrans2 ), i++,
 dtTrans2:Column 1[i] = Word( 1, dtTrans2:Label[i], ":" );
 dtTrans2:Column 2[i] = Word( 2, dtTrans2:Label[i], ":" );
 specs = Column( dt, dtTrans2:Label[i] ) << get property( "spec limits" );
 If( Is Missing( specs["LSL"] ) == 0,
  dtTrans2:Column 3[i] = specs["LSL"]
 );
 If( Is Missing( specs["USL"] ) == 0,
  dtTrans2:Column 4[i] = specs["USL"]
 );
 If( Column( dt, dtTrans2:Label[i] ) << get property( "Units" ) != "",
  dtTrans2:Column 5[i] = Column( dt, dtTrans2:Label[i] ) << get property( "Units" )
 );
);

// Get rid of the label column which is no longer needed
dtTrans2 << delete columns( :Label );

// Change the names of the Trans2 table to match the names in the Trans1 table
For( i = 6, i <= N Cols( dtTrans2 ), i++,
 Column( dtTrans2, i ) << set name( "Column " || Char( i ) )
);

// Combine the 2 Transformed data tables
dtFinal = dtTrans1 << concatenate( dtTrans2 );

// Cleanup the no longer needed data tables
close( dtTrans1, nosave );
close( dtTrans2, nosave );

Re: script JSL para transponer columnas a filas

¡Gracias! esto parece funcionar bien. Pero por alguna razón, las columnas del nombre de prueba Lo Limit y Hi limits se colocan al final. ¿De alguna manera podemos reorganizarlos y etiquetarlos en el guión?

 

 

 

 

Re: script JSL para transponer columnas a filas¿Qué versión de JMP estás usando?Re: script JSL para transponer columnas a filas

estoy usando jmp 14

Re: script JSL para transponer columnas a filas

Aquí hay una versión corregida del script, que coloca las columnas de especificaciones, etc. en la ubicación correcta y también agrega en las etiquetas de las columnas.

Names Default To Here( 1 );
dt = Current Data Table();

// Transpose the Demographics
dtTrans1 = dt << Transpose(
 columns( :SBIN, :HBIN, :Alarms, :Device, :Site ),
 Transpose selected rows only( 1 ),
 Output Table( "Transpose 1" )
);

// Change the name of the first column
dtTrans1:Label << set name( "Column 1" ) << Set Display Width( 150 );

// Change the new column names
For( i = 2, i <= N Cols( dtTrans1 ), i++,
 Column( dtTrans1, i ) << set name( "Column " || Char( i + 4 ) ) << Set Display Width( 100 )
);

// Change the detail name of the Alarms
dtTrans1:Column 1[(dtTrans1 << get rows where( dtTrans1:Column 1 == "Alarms" ))[1]] = "Pass/Fail/Alarm";

// Create the Devce values
deviceRow = (dtTrans1 << get rows where( dtTrans1:Column 1 == "Device" ))[1];
For( i = 2, i <= N Cols( dtTrans1 ), i++,
 Column( dtTrans1, i )[deviceRow] = i - 1
);


// Now Find all of the columns that are parameters
parameterColNamesList = {};
For( i = 1, i <= N Cols( dt ), i++,
 If( Is Missing( Num( Word( 1, Column( dt, i ) << get name, ":" ) ) ) == 0,
  Insert Into( parameterColNamesList, Column( dt, i ) << get name )
 )
);

// Transpose the parameter columns
dtTrans2 = dt << Transpose(
 columns( Eval( parameterColNamesList ) ),
 Transpose selected rows only( 0 ),
 Output Table( "Transpose 2" )
);

// Add in the new columns to be created
dtTrans2 << Add Multiple Columns( "Column", 5, before first, Character );

// Add the columns 2-5 in the trans data table
dtTrans1 << Add Multiple Columns( "xColumn", 4,after(:Column 1), Character );
for(i=2,i<=5,i++,
 column(dtTrans1,i)<<SET name=""></SET>

Re: script JSL para transponer columnas a filas

gracias Jim! el formato es perfecto. sin embargo, no funciona con otro conjunto de datos similar por alguna razón. alguna razón por la que?

Re: script JSL para transponer columnas a filas

¿Hay algún mensaje de error en el registro?

¿Cuáles son las diferencias entre las 2 tablas de datos?

¿Se detiene el guión antes de completarse?

 

Re: script JSL para transponer columnas a filasno hay error de registro. cuando ejecuto el script, simplemente no hace nada. la única diferencia son los nombres de las pruebas ... son diferentes. pero todos los demás encabezados son igualesRe: script JSL para transponer columnas a filas

Intente ejecutar el código de la línea 1 a la línea 26. Todo lo que tiene que hacer es seleccionar (resaltar) esas filas en su secuencia de comandos y luego hacer clic en el icono Ejecutar.

Names Default To Here( 1 );
dt = Current Data Table();

// Transpose the Demographics
dtTrans1 = dt << Transpose(
 columns( :SBIN, :HBIN, :Alarms, :Device, :Site ),
 Transpose selected rows only( 1 ),
 Output Table( "Transpose 1" )
);

// Change the name of the first column
dtTrans1:Label << set name( "Column 1" ) << Set Display Width( 150 );

// Change the new column names
For( i = 2, i <= N Cols( dtTrans1 ), i++,
 Column( dtTrans1, i ) << set name( "Column " || Char( i + 4 ) ) << Set Display Width( 100 )
);

// Change the detail name of the Alarms
dtTrans1:Column 1[(dtTrans1 << get rows where( dtTrans1:Column 1 == "Alarms" ))[1]] = "Pass/Fail/Alarm";

// Create the Devce values
deviceRow = (dtTrans1 << get rows where( dtTrans1:Column 1 == "Device" ))[1];
For( i = 2, i <= N Cols( dtTrans1 ), i++,
 Column( dtTrans1, i )[deviceRow] = i - 1
);

Vea si la tabla de datos de Transposición 1 se ve así:

 

Ejecutar las líneas 30 - 35

parameterColNamesList = {};
For( i = 1, i <= N Cols( dt ), i++,
 If( Is Missing( Num( Word( 1, Column( dt, i ) << get name, ":" ) ) ) == 0,
  Insert Into( parameterColNamesList, Column( dt, i ) << get name )
 )
);

y vea si el parameterColNamesList contiene los nombres de todas las pruebas en la tabla de datos.

Luego siga revisando las diferentes secciones de código, hasta que encuentre lo que no se está ejecutando correctamente.

 

Si me puede proporcionar una copia de la tabla de datos que está tratando de leer, estaría dispuesto a hacer la verificación yo mismo.

 

Re: script JSL para transponer columnas a filas

ok, seguro que aquí está

Re: script JSL para transponer columnas a filas

aquí hay una muestra de datos aleatorios

Re: script JSL para transponer columnas a filas

ignore la muestra anterior, utilice esta

Re: script JSL para transponer columnas a filas

Aqui hay uno

Re: script JSL para transponer columnas a filas

El problema fue que uno o más de los parámetros se ingresaron como datos de caracteres.Transpose no puede manejar datos mixtos.Así que agregué una verificación para asegurarme de que todos los parámetros detectados sean numéricos.

Names Default To Here( 1 );
dt = Current Data Table();

// Transpose the Demographics
dtTrans1 = dt << Transpose(
 columns( :SBIN, :HBIN, :Alarms, :Device, :Site ),
 Transpose selected rows only( 1 ),
 Output Table( "Transpose 1" )
);

// Change the name of the first column
dtTrans1:Label << set name( "Column 1" ) << Set Display Width( 150 );

// Change the new column names
For( i = 2, i <= N Cols( dtTrans1 ), i++,
 Column( dtTrans1, i ) << set name( "Column " || Char( i + 4 ) ) << Set Display Width( 100 )
);

// Change the detail name of the Alarms
dtTrans1:Column 1[(dtTrans1 << get rows where( dtTrans1:Column 1 == "Alarms" ))[1]] = "Pass/Fail/Alarm";

// Create the Devce values
deviceRow = (dtTrans1 << get rows where( dtTrans1:Column 1 == "Device" ))[1];
For( i = 2, i <= N Cols( dtTrans1 ), i++,
 Column( dtTrans1, i )[deviceRow] = i - 1
);


// Now Find all of the columns that are parameters
parameterColNamesList = {};
For( i = 1, i <= N Cols( dt ), i++,
 If( Is Missing( Num( Word( 1, Column( dt, i ) << get name, ":" ) ) ) == 0,
  Insert Into( parameterColNamesList, Column( dt, i ) << get name )
 )
);

// Transpose the parameter columns
dtTrans2 = dt << Transpose(
 columns( Eval( parameterColNamesList ) ),
 Transpose selected rows only( 0 ),
 Output Table( "Transpose 2" )
);

// Add in the new columns to be created
dtTrans2 << Add Multiple Columns( "Column", 5, before first, Character );

// Add the columns 2-5 in the trans data table
dtTrans1 << Add Multiple Columns( "xColumn", 4,after(:Column 1), Character );
for(i=2,i<=5,i++,
 column(dtTrans1,i)<<SET name=""></SET>

Re: script JSL para transponer columnas a filas

gracias jim pero sigo teniendo el mismo error con el script actualizado por algunas razones

 

 

Re: script JSL para transponer columnas a filasMi error ... por error, la última entrada que les envié no tenía mis modificaciones. Edité mi última respuesta y actualicé el JSL. Regrese, extraiga el JSL y ejecútelo. Ahora contiene el código corregido.