Can the width of the X-axis of the grouped graphics be set separately?

lala

For example, after I draw the graph like this, the widths of these two x-axes are set to be different.

 

Thanks!

dt=Open("$SAMPLE_DATA/Big Class.jmp");
d2=dt<<Summary(Group(2,3),sum(4),Freq("0"),Weight("0"),Link to original data table(0),statistics column name format("column"));
Column(d2,3)<<set name("S");
d1=dt<<Summary(Group(3),Freq("0"),Weight("0"),Link to original data table(0),statistics column name format("column"));
d2<<Update(With(d1),Match Columns(sex=sex));Close(d1,nosave);
p1=d2<< Graph Builder(
	Size(480, 495),
	Variables(X(:height), Y(:age), Group X(:sex), Color(:S)),
	Elements(Bar(X, Y, Legend(4)))
);

hogi

you can split the height column in two parts:

... and generate 2 adjacent plots:

Names Default to Here(1);
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << Summary(
	Group( :age, :sex ),
	Sum( :height ),
	statistics column name format( "column" )
);
New Column( "height M",	Formula( If( :sex == "M", :height ) ));
New Column( "height F",	Formula( If( :sex == "F", :height ) ));
Graph Builder(
	Show Control Panel( 0 ),
	Variables( X( :height F ), X( :height M ), Y( :age ), Color( :N Rows ) ),
	Relative Sizes( "X", [360 237] ),
	Elements( Position( 1, 1 ), Bar( X, Y ) ),
	Elements( Position( 2, 1 ), Bar( X, Y ) ),
	SendToReport(
		Dispatch( {}, {:height F}, ScaleBox, {Max( 800 )} )
	)
);

unfortunately, the color in the plot is unexpected: same color for both sexes ?!
seems that color is taken from rows without values in the column which is used for the response axis.
-> interesting / important finding!