La mia domanda è stata segnalata come spam
Link al post: (Adatta spline con più raggruppamenti)
di 011717
https://community.jmp.com/t5/Discussions/Fit-Spline-with-multiple-groupings/mp/316655#M56822
Ciao a tutti,
Ho una funzione simile a quella che mi serve, ma utilizzando Group by then Fit Spline. Quindi ho bisogno di avere i grafici con raggruppamenti diversi: tipo, grpcolor e BP. Sulla funzione data, ho solo grpcolor come raggruppamento. Ma quello di cui ho bisogno sono questi tre parametri (tipo, numero, BP). Come posso convertire questo codice in una funzione simile a quella indicata di seguito
Esempio di grafico:
Bivariate (Y (: Cal_I_Jmp), X (: STO_DCR_TS_LES), Adatta dove (: BP == "20nm", Adatta spline (1000, {Colore linea ({212, 73, 88})})), Adatta dove (: BP == "35nm", Adatta spline (1000, {Line Color ({61, 174, 70})})), Fit Where (: BP == "50nm", Fit Spline (1000, {Line Color ({66, 112, 221})})) , SendToReport (Dispatch ({}, "Bivar Plot", FrameBox, {Row Legend (BP, Color (1), Color Theme ("JMP Default"), Marker (0), Marker Theme (""), Scala continua ( 0), Reverse Scale (0), Excluded Rows (0))})));
Ecco la funzione:
bivpolyfit = Funzione ({x_param, y_param, grouping}, biv = Bivariate (Y (Column (y_param)), X (Column (x_param)), GroupBy (Column (grouping)), & 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; Seleziona Carattere (stile (0), dimensione (9)) & lt; & lt; Mostra griglia principale (1) & lt; & lt; Mostra griglia secondaria (1) & lt; & lt; Mostra segni di graduazione minori (1) & lt; & lt; {Min (eval (xmin [j])), Max (eval (xmax [j])) / *, Inc (incr [j]) * /}; rbiv [Axisbox (1)] & lt; & lt; Seleziona Carattere (stile (0), dimensione (9)) & lt; & lt; Mostra griglia principale (1) & lt; & lt; Mostra griglia secondaria (1) & lt; & lt; Mostra segni di graduazione minori (1) & lt; & lt; {Min (eval (ymin [j])), Max (eval (ymax [j])) / *, Inc (incr [j]) * /}; rbiv [TextEditBox (2)] & lt; & lt; Imposta dimensione carattere (10) & lt; & lt; Imposta stile carattere ("Grassetto"); rbiv [TextEditBox (1)] & lt; & lt; Imposta dimensione carattere (10) & lt; & lt; Imposta stile carattere ("Grassetto"); rbiv [Outline Box (1)] & lt; & lt; Imposta titolo (y_param || "vs" || x_param); rbiv ["Polynomial Fit Degree = 2?"] & lt; & lt; Chiudi tutto in questo modo; rbiv [Framebox (1)] & lt; & lt; Legenda riga (colonna (raggruppamento), colore (1), indicatore (0), tema colore ("JMP predefinito"), scala continua (0)); rbiv [Framebox (1)] & lt; & lt; Legenda riga (colonna (rdr), colore (0), indicatore (1), tema indicatore ("solido")) rbiv [BorderBox (3)] & lt; & lt; Elimina; rbiv [BorderBox (2)] & lt; & lt; Elimina; pbiv = rbiv [OutlineBox (1)] & lt; & lt; ottenere un'immagine;
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 = LineupBox (NCol (4)); Per (j = 1, j & lt; = nitems (xparam), j ++, bivpolyfit (xparam [j], yparam [j], grpcolor); lb & lt; & lt; append (pbiv); biv & lt; & lt; Chiudi finestra;) ; ppt9 & lt; & lt; aggiungi (lb & lt; & lt; ottieni immagine); transdt & lt; & lt; Cancella;
Questo messaggio ha 0 risposte
