我正在尝试编写一个 jsl 来绘制 x 与 y 之间的双变量图,按列“b”中的值分组,并在每个组中拟合一条线(来自列“b”中的唯一值)。我手动绘制的双变量图生成的脚本如下,但我不知道如何为所有遍历列“b”中唯一值的“Fit Where”命令添加 for 循环
Bivariate(
Y( :Name( "y" ) ),
X( :Name( "x" ) ),
Automatic Recalc( 1 ),
Fit Where( :p</img> == "grpA", Fit Line( {Line Color( {228, 26, 28} )} ) ),
Fit Where(
:b == "grpB",
Fit Line( {Line Color( {55, 126, 184} )} )
),
Fit Where(
:b == "grpC",
Fit Line( {Line Color( {77, 175, 74} )} )
),
Fit Where(
:b == "grpD",
Fit Line( {Line Color( {152, 78, 163} )} )
),
Fit Where(
:b == "grpE",
Fit Line( {Line Color( {255, 127, 0} )} )
),
Fit Where(
:b == "grpF",
Fit Line( {Line Color( {166, 86, 40} )} )
),
Where( :c == "TT" & :e == "EE" ),
SendToReport(
Dispatch( {}, "1", ScaleBox, {Reversed Scale} ),
Dispatch( {}, "2", ScaleBox, {Reversed Scale} ),
Dispatch(
{},
"Bivar Plot",
FrameBox,
{Marker Size( 6 ), Row Legend(
e,
Color( 0 ),
Color Theme( "" ),
Marker( 1 ),
Marker Theme( "Standard" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
),
Dispatch( {}, "Linear Fit b==grpA, OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Linear Fit b==grpB", OutlineBox, {Close( 1 )} ),
Dispatch(
{},
"Linear Fit b==grpC",
OutlineBox,
{Close( 1 )}
),
Dispatch(
{},
"Linear Fit b==grpD",
OutlineBox,
{Close( 1 )}
),
Dispatch(
{},
"Linear Fit b==grpE",
OutlineBox,
{Close( 1 )}
),
Dispatch(
{},
"Linear Fit b==grpF",
OutlineBox,
{Close( 1 )}
)
)
);我认为您正在寻找的是 groupby() arg。如果你想指定颜色,那么在列级别做起来肯定更容易,比如@txnelson说。
Names default to here( 1 );
dt = open("$SAMPLE_DATA\Big Class.jmp");
biv = dt << Bivariate(
Y( :weight ),
X( :height ),
Group BY(:sex),
Fit line()
);我相信在变量
的列属性中设置颜色并使用 By() 元素会更容易。
names default to here(1);
:b << set property("value colors",
{"grp8" = {55, 126, 184} }, "grpC" = {77, 175, 74} etc. }
);
Bivariate(
Y( :x ),
X( :y ),
Fit Line( ),<BR /> by( : B )
);Bivariate 平台有自己的 Group By 功能,可从平台菜单或 JSL 获得:
Names Default to Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
obj = dt << Bivariate(
Y( :weight ),
X( :height )
);
obj
<< Group By( :sex )
<< Fit Line;