How to add label name to a legend in a Graph Builder plot through JSL?

Dape

I have a script creating a plot using Graph Builder which shows data from measurements. After producing the plot, I loop through the measurements month by month and use the command Add Variable to add monthly calculated curve fits to show the development over time of the recorded data.

Now I'm trying to figure out how I can add a label to each plotted curve fit through script. The column labels for the curve fits are currently something like "June 24 data", "July 24 data", etc. When I right-click the curve fit for each month's data in the legends window, I can add this by selecting Label>Name. This will show the name next to each plotted curve. I can also right-click the plot area, choose Customize and access the name setting for the curve fit but this isn't updated on the plot - and when I go back to the settings it has been deselected. That seems like a bug but maybe I just use it the wrong way. Anyway, I'm trying to find a way to add the label name like this through JSL.

I tried capturing these changes using a workflow, but it doesn't capture the changes I did to the legends' settings.

I've made several searches but can't find any discussion on this specific addition to a plot using JSL, nor can I find documentation of it in the scripting index. There's something called legends server but I couldn't find relevant discussion. Perhaps I can use SendToReport(Dispatch())? Any other variants I should be looking at? I'd also appreciate any suggestion on where I could be learning more about JSL for producing and adjusting plots through Graph Builder.

jthi

I think you have to do this through legend server (or when building the graph builder expression)

Names Default To Here(1); 

dt = open("$SAMPLE_DATA/Big Class.jmp");

gb = dt << Graph Builder(
	Transform Column("Row", Formula(Row())),
	Variables(X(:Row), Y(:height)),
	Elements(Line Of Fit(X, Y, Legend(5), Confidence of Fit(0))),
	SendToReport(
		Dispatch({}, "400", ScaleBox,
			{Legend Model(
				5,
				Properties(
					0,
					{Line Label Properties({Name Label(1)})},
					Item ID("height", 1)
				)
			)}
		)
	)
);

gb << Add Variable({:weight, Role("Y"), Position(1)});

server = gb << Get Legend Server;
items = server << Get Legend Items;
For(i = 1, i <= N Items(items[1]), i++,
	items[1][i] << Set Properties(
		{Line Label Properties({Name Label(1)})}
	)
);