I don't believe that you can change the orientation of the group labels, however you may be able to do a little manipulation and get a graph that is similar to what you want. I added some missing value rows, and manually added some reference lines, both of which could be programmatically added if you move ahead with this methodology.
names default to here(1);
dt = current data table();
Graph Builder(
Size( 528, 464 ),
Show Control Panel( 0 ),
Variables( X( :age ), X( :weight, Position( 1 ) ), Y( :height ), Color( :age ) ),
Elements(
Points( X( 1 ), X( 2 ), Y, Legend( 137 ) ),
Line( X( 1 ), X( 2 ), Y, Legend( 138 ), Missing Values( "No Connection" ) )
),
SendToReport(
Dispatch(
{},
"age",
ScaleBox,
{Add Ref Line( 8, "Solid", "Black", "", 1 ),
Add Ref Line( 16, "Solid", "Black", "", 1 ),
Add Ref Line( 28, "Solid", "Black", "", 1 ),
Add Ref Line( 36, "Solid", "Black", "", 1 ),
Add Ref Line( 44, "Solid", "Black", "", 1 ),
Add Ref Line( 40, "Solid", "Black", "", 1 )}
),
Dispatch(
{},
"400",
ScaleBox,
{Legend Model(
137,
Base( 0, 0, 0, Item ID( "12", 1 ) ),
Base( 1, 0, 0, Item ID( "13", 1 ) ),
Base( 2, 0, 0, Item ID( "14", 1 ) ),
Base( 3, 0, 0, Item ID( "15", 1 ) ),
Base( 4, 0, 0, Item ID( "16", 1 ) ),
Base( 5, 0, 0, Item ID( "17", 1 ) )
)}
)
)
);
Jim