我的问题已被举报为垃圾邮件
链接发布： （具有多个分组的适合样条）
通过011717
https://community.jmp.com/t5/Discussions/Fit-Spline-with-multiple-groupings/mp/316655#M56822
大家好，
我有一个与我需要的功能类似的功能，但可以使用“分组依据”和“拟合样条线”。 因此，我需要具有不同分组的图：类型，grpcolor和BP。 在给定的功能上，我只有grpcolor作为分组。 但是我需要的是这三个参数（类型，数字，BP）。 如何将这些代码转换为类似于以下示例的函数
图示例：
Bivariate（Y（：Cal_I_Jmp），X （：STO_DCR_TS_LES），Fit Where（：BP ==“ 20nm”，Fit Spline（1000，{Line Color（{212，73，88}）}））），Fit Where（（BP ==“ 35nm”，Fit 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（“”），Continuous Scale（ 0），反向缩放（0），排除的行（0））}））））））;）
以下是该函数：
bivpolyfit = Function（{x_param，y_param，grouping}，biv = Bivariate（Y（Column（y_param）），X（Column（x_param）），GroupBy（Column（grouping）），＆lt;＆lt;多项式（2 ，{Line Width（2}}））; rbiv = biv＆lt;＆lt; Report; rbiv [Framebox（1）]＆lt;＆lt; {Marker Size（3）}; rbiv [Axisbox（2）]＆lt; ;＆lt;刻度字体（style（0），size（9））＆lt;＆lt;显示主要网格（1）＆lt;＆lt;显示次要网格（1）＆lt;＆lt;显示次要滴答声（1）＆lt;＆lt; {Min（eval（xmin [j]）），Max（eval（xmax [j]））/ *，Inc（incr [j]）* /}; rbiv [Axisbox（1）]＆lt;＆lt;刻度字体（style（0），size（9））＆lt;＆lt;显示主要网格（1）＆lt;＆lt;显示次要网格（1）＆lt;＆lt;显示次要滴答声（1）＆lt;＆lt; {Min（eval（ymin [j]）），Max（eval（ymax [j]））/ *，Inc（incr [j]）* /}; rbiv [TextEditBox（2）]＆lt;＆lt;设置字体大小（10）＆lt;＆lt;设置字体样式（“粗体”）； rbiv [TextEditBox（1）]＆lt;＆lt;设置字体大小（10）＆lt;＆lt;设置字体样式（“粗体”）； rbiv [概述框（1）]＆lt;＆lt;设置标题（y_param ||“ vs” || x_param）; rbiv [“多项式拟合度＝ 2？”] ＜＜像这样关闭所有； rbiv [Framebox（1）]＆lt;＆lt;行图例（列（分组），颜色（1），标记（0），颜色主题（“ JMP默认”），连续缩放（0））； rbiv [Framebox（1）]＆lt;＆lt;行图例（Column（rdr），Color（0），Marker（1），Marker Theme（“ Solid”））; rbiv [BorderBox（3）]＆lt;＆lt;删除; rbiv [BorderBox（2）]＆lt;＆lt;删除; pbiv = rbiv [OutlineBox（1）]＆lt;＆lt;得到图片； <CODE class="“" language-jsl=""> 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））;对于（j = 1，j <= nitems（xparam），j ++，bivpolyfit（xparam [j]，yparam [j]，grpcolor）; lb＆lt;＆lt; append（pbiv）; biv＆lt;＆lt; <关闭窗口;） ; ppt9＆lt;＆lt; append（lb＆lt;＆lt;获取图片）; transdt＆lt;＆lt;清除；
该消息有0条回复
