729128_es-ES

liliconcom

Cómo crear un gráfico de diagrama de caja y guardarlo en local y luego insertarlo en ppt

Hola JMPer

Tenía datos de prueba como los que se muestran a continuación.

Quiero crear automáticamente un gráfico de diagrama de caja que pueda comparar cada columna con el accesorio, y cada columna tenga un comentario. (El formato del título: Comparación de dispositivos: Col--Observación).

Cómo crear automáticamente esos bucles de gráficos de diagrama de caja con Col_1, Col_2, Col_3, Col_4. ¿Y guardar automáticamente el gráfico de diagrama de caja y luego insertarlo en ppt?

Muchas gracias.

Automatización y secuencias de comandosAnálisis y modelado de datos básicosRe: Cómo crear un diagrama de caja y guardarlo en local y luego insertarlo en ppt

Cargue los datos de la prueba.

Re: Cómo crear un diagrama de caja y guardarlo en local y luego insertarlo en ppt

No tengo mucha experiencia guardando presentaciones de PowerPoint, pero este script hace lo que me pediste, asumiendo el mismo formato de columna cada vez. Permite más o menos columnas :Col_n sin necesidad de realizar ningún ajuste.

<MMM><YYYY> <HH24><MM><SS>" ) ); cols = Filtrar cada uno( {val, idx}, dt << Obtener nombres de columnas( "String"), Contiene( val, "Col_" ) ); remarkarray = Matriz asociativa( :Col, :Remark ); Para Cada uno ({val, idx}, cols, text = val || "--" || remarkarray[Sustitute( val, "_", "" )]; pres = dt << Generador de gráficos (Tamaño (534, 450) , Mostrar panel de control( 0 ), Variables( X( :Aparato ), Y( Columna( val ) ), Elementos( Puntos( X, Y, Leyenda( 7 ) ), Diagrama de caja( X, Y, Leyenda( 8 ) ) ), SendToReport( Dispatch( {}, "título del gráfico", TextEditBox, {Establecer texto( "Comparación de accesorios: " || texto )} ) ); If( idx == 1, Report( pres ) << Guardar presentación ("$DOCUMENTOS/Accesorios" || la fecha || ".pptx" ), Informe( pres ) << Guardar presentación( "$DOCUMENTOS/Accesorios " || la fecha || ".pptx", Anexar ) ); (pres < <OBTENER ventana=""> );</OBTENER></SS></MM></HH24></YYYY></MMM>Names Default To Here( 1 );
dt = Open(
	"$DOWNLOADS/jmp test data.xlsx",
	Worksheets( "Sheet1" ),
	Use for all sheets( 1 ),
	Concatenate Worksheets( 0 ),
	Create Concatenation Column( 0 ),
	Worksheet Settings(
		1,
		Has Column Headers( 1 ),
		Number of Rows in Headers( 1 ),
		Headers Start on Row( 1 ),
		Data Starts on Row( 2 ),
		Data Starts on Column( 1 ),
		Data Ends on Row( 0 ),
		Data Ends on Column( 0 ),
		Replicated Spanned Rows( 1 ),
		Replicated Spanned Headers( 0 ),
		Suppress Hidden Rows( 1 ),
		Suppress Hidden Columns( 1 ),
		Suppress Empty Columns( 1 ),
		Treat as Hierarchy( 0 ),
		Multiple Series Stack( 0 ),
		Import Cell Colors( 0 ),
		Limit Column Detect( 0 ),
		Column Separator String( "-" )
	)
);
thedate = Uppercase( Format( Today(), "Format Pattern", "

Re: Cómo crear un diagrama de caja y guardarlo en local y luego insertarlo en ppt

Hola, mmarchandTSI

Muchas gracias. La "matriz asociativa" me resulta útil.

La imagen guardada en PPT no es hermosa.

Quiero guardar la imagen en ppt como este. ¿Es posible?

Re: Cómo crear un diagrama de caja y guardarlo en local y luego insertarlo en ppt

Puede copiar las imágenes al portapapeles y pegarlas en PPT mediante un script de PowerShell, como se hace en la barra de herramientas Graph Builder.

Re: Cómo crear un diagrama de caja y guardarlo en formato local para luego insertarlo en ppt

Este método mantendrá el formato original de Graph Builder utilizando unas pocas líneas más de código.

 Names Default To Here( 1 );
dt = Open(
	"$DOWNLOADS/jmp test data.xlsx",
	Worksheets( "Sheet1" ),
	Use for all sheets( 1 ),
	Concatenate Worksheets( 0 ),
	Create Concatenation Column( 0 ),
	Worksheet Settings(
		1,
		Has Column Headers( 1 ),
		Number of Rows in Headers( 1 ),
		Headers Start on Row( 1 ),
		Data Starts on Row( 2 ),
		Data Starts on Column( 1 ),
		Data Ends on Row( 0 ),
		Data Ends on Column( 0 ),
		Replicated Spanned Rows( 1 ),
		Replicated Spanned Headers( 0 ),
		Suppress Hidden Rows( 1 ),
		Suppress Hidden Columns( 1 ),
		Suppress Empty Columns( 1 ),
		Treat as Hierarchy( 0 ),
		Multiple Series Stack( 0 ),
		Import Cell Colors( 0 ),
		Limit Column Detect( 0 ),
		Column Separator String( "-" )
	)
);
thedate = Uppercase( Format( Today(), "Format Pattern", "<DL><DD><MMM><YYYY> <HH24><MM><SS>" ) );
cols = Filter Each( {val, idx}, dt << Get Column Names( "String" ), Contains( val, "Col_" ) );
remarkarray = Associative Array( :Col, :Remark );
For Each( {val, idx}, cols,
	text = val || "--" || remarkarray[Substitute( val, "_", "" )];
	pres = dt << Graph Builder(
		Size( 534, 450 ),
		Show Control Panel( 0 ),
		Variables( X( :Fixture ), Y( Column( val ) ) ),
		Elements( Points( X, Y, Legend( 7 ) ), Box Plot( X, Y, Legend( 8 ) ) ),
		SendToReport( Dispatch( {}, "graph title", TextEditBox, {Set Text( "Fixture Comparison: " || text )} ) )
	);
	Report(pres)<<SAVE picture=""></SAVE></SS></MM></HH24></YYYY></MMM></DD><P><CODE class=" language-jsl"> 

Re: Cómo crear un diagrama de caja y guardarlo en formato local para luego insertarlo en ppt

Gracias hogi. Usé MAC, pero la barra de herramientas no me funciona.