Adding Reference Point to Bubble Plot

[#1]

Hey Anyone know how to add a reference point to a Bubble Plot? I want to use the dynamic nature of bubble plot, but I want one point to stay at every interval. Any ideas?

I've been using the built in Hurricanes example but let's say I wanted to plot my house on the map as well and have it be there through all the animation. Almost like adding a reference line or in this case, reference point.

Couldn't seem to find any information about it. Thanks! 

[#2]

The Bubble Plot uses a FrameBox() for the display, and the FrameBox() supports << Add Graphics Script, so you can pretty much do whatever you need.  Below is a simple script that was produced by adding a script through the "Customize" capability.

names default to here(1);
dt=open("$SAMPLE_DATA/Air Traffic.jmp");
Bubble Plot(
	X( :Latitude ),
	Y( :Longitude ),
	Time( :Time ),
	Time Index( 26.7000000000001 ),
	Title Position( 35.75, -22.75 ),
	SendToReport(
		Dispatch(
			{},
			"1",
			ScaleBox,
			{Format( "Latitude DDD", "PUNDIR", 16, 0 ), Min( -2.5 ), Max( 72.5 ),
			Inc( 5 ), Minor Ticks( 1 )}
		),
		Dispatch(
			{},
			"2",
			ScaleBox,
			{Format( "Longitude DDD", "PUNDIR", 16, 0 ), Min( -179.486111111111 ),
			Max( 5.51388888888889 ), Inc( 10 ), Minor Ticks( 1 )}
		),
		Dispatch(
			{},
			"Bubble Plot",
			FrameBox,
			{Add Graphics Script(
				4,
				Description( "" ),
				Text(
					Center Justified,
					{Col Mean( :latitude ), Col Mean( :Longitude )},
					"_text_"
				)
			), DispatchSeg(
				TopSeg( 1 ),
				{Set Script(
					Text(
						Center Justified,
						{Col Mean( :latitude ), Col Mean( :Longitude )},
						"_text_"
					)
				)}
			)}
		)
	)
);

[#3 · Accepted solution]

Jim beat me to it, but I had the same solution.  Here is an example with the Hurricane's data where I plot a house character somewhere in Georgia or South Carolina.

dt = Data Table("Hurricanes");

BP = dt << Bubble Plot(
	X( :Longitude ),
	Y( :Latitude ),
	Sizes( :Name( "Wind (Knots)" ) ),
	Time( :Date ),
	Coloring( :Landfall in USA ),
	ID( :Name and ID ),
	Size as Sum( 0 ),
	Speed( 60.44 ),
	Trail Bubbles( 1 ),
	Color Levels( [0 0.25 0.5 0.75 1] ),
	Title Position( -88.679, 59.73 ),
	SendToReport(
		Dispatch(
			{},
			"1",
			ScaleBox,
			{Min( -110 ), Max( 10 ), Inc( 20 ), Minor Ticks( 0 ),
			Rotated Labels( "Horizontal" )}
		),
		Dispatch(
			{},
			"2",
			ScaleBox,
			{Min( 0 ), Max( 70 ), Inc( 10 ), Minor Ticks( 0 ),
			Rotated Labels( "Horizontal" )}
		),
		Dispatch(
			{},
			"Bubble Plot",
			FrameBox,
			{Frame Size( 465, 348 ), Background Map( Images( "Simple Earth" ) ),
			Grid Line Order( 3 ), Reference Line Order( 2 )}
		)
	)
);

BP_rprt = Report(BP);
BP_rprt[framebox(1)] << Add Graphics Script(
	Marker Size(10);
	Marker( Color State("Orange"), Marker State("\!U2302"), {-80.4, 34.8})
);

[#4]

Good data choice.....Hurricanes are far more exciting data :-)