Mi pregunta ha sido reportada como spam
Enlace a la publicación: (Ajustar spline con múltiples agrupaciones)
por 011717
https://community.jmp.com/t5/Discussions/Fit-Spline-with-multiple-groupings/mp/316655#M56822
Hola a todos,
Tengo una función que es similar a la que necesito tener, pero usando Agrupar por y luego Ajustar Spline. Entonces necesito tener los gráficos con diferentes agrupaciones: tipo, grpcolor y BP. En la función dada, solo tengo grpcolor como agrupación. Pero lo que necesito son estos tres parámetros (tipo, número, BP). ¿Cómo puedo convertir este código en una función similar a la que se muestra a continuación?
Ejemplo de gráfico:
Bivariate (Y (: Cal_I_Jmp), X (: STO_DCR_TS_LES), Ajustar donde (: BP == "20nm", Ajustar spline (1000, {Color de línea ({212, 73, 88})})), Ajustar donde (: BP == "35nm", Ajustar spline (1000, {Color de línea ({61, 174, 70})})), Ajustar donde (: BP == "50nm", Ajustar spline (1000, {Color de línea ({66, 112, 221})})) , SendToReport (Dispatch ({}, "Bivar Plot", FrameBox, {Row Legend (BP, Color (1), Color Theme ("JMP Default"), Marker (0), Marker Theme (""), Continuous Scale ( 0), escala inversa (0), filas excluidas (0))})));
Aquí está la función:
bivpolyfit = Función ({x_param, y_param, grouping}, biv = Bivariate (Y (Column (y_param)), X (Column (x_param)), GroupBy (Column (agrupamiento)), & lt; & lt; Fit Polynomial (2 , {Line Width (2)})); rbiv = biv & lt; & lt; Report; rbiv [Framebox (1)] & lt; & lt; {Marker Size (3)}; rbiv [Axisbox (2)] & lt ; & lt; Marque Fuente (estilo (0), tamaño (9)) & lt; & lt; Mostrar cuadrícula principal (1) & lt; & lt; Mostrar cuadrícula secundaria (1) & lt; & lt; Mostrar marcas menores (1) & lt; & lt; {Min (eval (xmin [j])), Max (eval (xmax [j])) / *, Inc (incr [j]) * /}; rbiv [Cuadro eje (1)] & lt; & lt; Marque Fuente (estilo (0), tamaño (9)) & lt; & lt; Mostrar cuadrícula principal (1) & lt; & lt; Mostrar cuadrícula secundaria (1) & lt; & lt; Mostrar marcas menores (1) & lt; & lt; {Mín (eval (ymin [j])), Max (eval (ymax [j])) / *, Inc (incr [j]) * /}; rbiv [TextEditBox (2)] & lt; & lt; Establecer tamaño de fuente (10) & lt; & lt; Establecer estilo de fuente ("Negrita"); rbiv [TextEditBox (1)] & lt; & lt; Establecer tamaño de fuente (10) & lt; & lt; Establecer estilo de fuente ("Negrita"); rbiv [Cuadro de esquema (1)] & lt; & lt; Establecer título (y_param || "vs" || x_param); rbiv ["¿Grado de ajuste polinómico = 2?"] & lt; & lt; Cerrar todo así; rbiv [Framebox (1)] & lt; & lt; Leyenda de fila (columna (agrupación), color (1), marcador (0), tema de color ("JMP predeterminado"), escala continua (0)); rbiv [Framebox (1)] & lt; & lt; Leyenda de fila (columna (rdr), color (0), marcador (1), tema de marcador ("sólido")); rbiv [BorderBox (3)] & lt; & lt; Eliminar; rbiv [BorderBox (2)] & lt; & lt; Eliminar; pbiv = rbiv [OutlineBox (1)] & lt; & lt; obtener imagen;
ppt9 = OutlineBox ("IJMP"); yparam = {"Cal_I_Jmp", "Cal_I_Jmp", "Cal_I_Jmp", "Cal_I_Jmp"}; xparam = {"STO_DCR_TS_LES", "STO_DCR_TS_MP", "STO_R", "STO_TS"}; lb = Cuadro de alineación (NCol (4)); Para (j = 1, j & lt; = nitems (xparam), j ++, bivpolyfit (xparam [j], yparam [j], grpcolor); lb & lt; & lt; append (pbiv); biv & lt; & lt; Cerrar ventana;) ; ppt9 & lt; & lt; añadir (lb & lt; & lt; obtener imagen); transdt & lt; & lt; Borrar;
Este mensaje tiene 0 respuestas
