Thanks, I have read the Scripting Guide Section on Graphics and it did not answer my questions, but the Graphics section in the Scripting Index helped.
Here is my solution for anyone else wondering about this. I wish I had found a better way to do the coloring and to add a legend to go with the coloring for the points from the US Demographics.jmp table.
cities = Data Table("Cities.jmp");
window = cities << Graph Builder(
Variables( X( :Longitude ), Y( :Latitude ), Color( :Max deg. F Jan ) ),
Elements( Contour( X, Y, Legend( 8 ), Number of Levels( 20 ) ) ),
SendToReport(
Dispatch(
{},
"Longitude",
ScaleBox,
{Min( -120.427580183506 ), Max( -73.4774650353953 ), Inc( 5 ),
Minor Ticks( 0 )}
),
Dispatch(
{},
"Latitude",
ScaleBox,
{Min( 18.7755280157154 ), Max( 59.0478368517315 ), Inc( 5 ),
Minor Ticks( 1 )}
),
Dispatch(
{},
"Graph Builder",
FrameBox,
{Background Map( Boundaries( "US States" ) ),
Add Graphics Script(
5,
Description( "Script" ),
dt = Data Table( "US Demographics.jmp" );
Marker Size( 4 );
color = "";
For( i = 1, i < N Rows( dt ), i++,
If(
:Physical Activity[i] <= 72, color = " Light Green",
72 < :Physical Activity[i] <= 75.5,
color = "Medium Light Green",
75.5 < :Physical Activity[i] <= 79, color = "Green",
79 < :Physical Activity[i] <= 82.5,
color = "Medium Dark Green",
82.5 < :Physical Activity[i], color = "Dark Green",
);
Marker( Color State( color ), {:Longitude[i], :Latitude[i]} );
);
Close( dt, nosave );
), Grid Line Order( 3 ), Reference Line Order( 4 )}
)
)
);
