Hi @MJE,
Thanks for the additional feedback. It works! Thanks for the solution, I'll mark it as such. I did modify it just slightly to be more like what the user is asking for, but otherwise, it does the job. From what I can tell, the list of markers and colors are in the same order as the legend.
Here's the modified version of your code I used:
Names Default To Here( 1 );
dt = Open( "$Sample_Data/Big Class Families.jmp" );
gb = dt << Graph Builder(
Size( 528, 456 ),
Show Control Panel( 0 ),
Graph Spacing( 5 ),
Variables( X( :weight ), Y( :height ), Overlay( :age ), Color( :age ) ),
Elements( Points( X, Y, Legend( 33 ) ) ),
MarkerSeg(:weight, :height)
);
segs = Report(gb)[Framebox(1)]<<Find Segs;
MarkerList = {};
ColorList = {};
For(i=1, i<=Nitems(segs),i++,
seg = Report(gb)[Framebox(1)]<<Find Seg(MarkerSeg(i));
m = seg<<get Marker;
Insert Into (MarkerList,m);
c = seg << get colors;
Insert Into(ColorList,EvalList({c[1]}));
);
Show(MarkerList, ColorList);
And the output I get:
MarkerList = {"Circle", "Plus", "Diamond", "X", "Triangle", "Y"};
ColorList = {{66, 112, 221}, {212, 73, 88}, {61, 174, 70}, {162, 43, 221}, {204, 121, 41}, {40, 182, 143}};
Thanks!,
DS