Suppose I have this data: StepStartStopmixer02heater1112.3injector144.5mixer68heater210.313injector11212.5heater11625.4mixer1820heater223.430mixer2426fan2445mixer3040 ... and I want to make this plot (just the bars): Is that possible with GraphBuilder? (note this image is a mockup with PowerPoint)

JMP19 is available now, which makes it super easy to create plots like this: dt = New Table( "log", Add Rows( 12 ), New Column( "Step", Character, Set Values( {"mixer", "heater1", "injector1", "mixer", "heater2", "injector1", "heater1", "mixer", "heater2", "mixer", "fan", "mixer"} ) ), New Column( "Start", Set Values( [0, 1, 4, 6, 10.3, 12, 16, 18, 23.4, 24, 24,30] ) ), New Column( "Stop", Set Values( [2, 12.3, 4.5, 8, 13, 12.5, 25.4, 20, 30, 26,45, 40] ) ) ); Graph Builder( Size( 493, 262 ), Graph Spacing( 4 ), Variables( X( :Start ), X( :Stop, Position( 1 ) ), Y( :Step ), Color( :Step ) ), Elements( Line( X( 1 ), X( 2 ), Y, Ordering( "Within Row" ) ) ), );

Jim, yes, I saw this, and it's a great workaround. In my case, some of the bars will be very long and we expect to often be zoomed in on the timeline, which means I'd have to be plotting a whole bunch of points at intervals down the bar. I'm also trying to make this plotter for others to use who aren't as familiar with JMP, and so forcing them to select a bar endpoint would require training and add process-friction.

If you can, sign up for the JMP 19 Early Adopter program and give feedback on the planned Line element enhancements that will provide another way to do this.

nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

How do I make start/stop bar charts?

BHarris

Suppose I have this data:

Step	Start	Stop
mixer	0	2
heater1	1	12.3
injector1	4	4.5
mixer	6	8
heater2	10.3	13
injector1	12	12.5
heater1	16	25.4
mixer	18	20
heater2	23.4	30
mixer	24	26
fan	24	45
mixer	30	40

... and I want to make this plot (just the bars):

Is that possible with GraphBuilder? (note this image is a mockup with PowerPoint)

Accepted answers

All comments

Victor_G

Hi @BHarris,

I'm not able to reproduce directly what you present in powerpoint, but I may have something similar enough to what you intend to have :

Unlike your image, the different ranges are not completely aligned, as I need to have a unique identifier for each values range.
I think the bars could be enlarged for better readability.

You can have a look at the script in the attached datatable.

EDIT: Using a ID column with less levels, the bar graph looks better :

Both graph scritps are saved in the attached datatable.

JMP_example.jmp

hogi

Nice approach : )

As an alternative to Overlay, one could also use the ID nested on the Y axis:

BHarris

Both of these options create a lot of whitespace because each on/off gets its own horizontal row, and there can be a lot of on/offs in my use-case. The bar-plots have a red-triangle "overlap" setting that seems like it should work, but even at "Full" it doesn't seem to do anything, so I was hoping there might be a hidden option or a JSL approach that would keep the bars aligned vertically.

txnelson

Here is my approach to creating the graph

Names Default To Here( 1 );
dt = Current Data Table();
gb = Graph Builder(
	Size( 534, 456 ),
	Show Control Panel( 0 ),
	Variables( X( :Start ), X( :Stop, Position( 1 ) ), Y( :Step ), Color( :Step ) ),
	Elements( Points( X( 1 ), X( 2 ), Y, Legend( 12 ) ) ),
	SendToReport(
		Dispatch( {}, "400", ScaleBox,
			{Legend Model(
				12,
				Properties( 5, {Marker( "FilledCircle" )}, Item ID( "Start", 1 ) ),
				Properties( 6, {Marker( "FilledCircle" )}, Item ID( "Stop", 1 ) )
			)}
		),
		Dispatch( {}, "graph title", TextEditBox, {Set Text( "Start - Stop Chart" )} )
	)
);

// Remove Start and Stop from legend
lgnd = gb << Get Legend Display;
items = lgnd << Get Items;
For Each( {item}, items,
	If( item << Get Label == "Start" | item << Get Label == "Stop",
		item << Set Visible( 0 )
	)
);

// Set default Value Colors if not set
if( isEmpty(dt:step << get property( "value colors" )),
dt:step << set property( "value colors", "" );
);

// Get the colors to use
colors = dt:step << get property( "value colors" );

// Find the labels for the Y Axis
Summarize( dt, levels = by( :step ) );

// Add a Graphics Script to create the bars on the graph
fb = Report( gb )[framebox( 1 )];
fb << add graphics script(	
	// Get the colors to use
	colors = dt:step << get property( "value colors" );
	For Each Row(
		cpoint = Contains( levels, :step ) - 1;
		Fill Color( Num( Word( 3, Char( colors[cpoint + 1] ), " " ) ) );
		Rect( :start, cPoint + .4, :stop, cPoint - .4, 1 );
		
	);
);

jthi

There are many JSL options for something like this. Set Marker Expr would most likely be the best if you can figure how that is used (it doesn't really have documentation). Here is my quick take using Set Marker Draw Expr, this can be made simpler using just one marker but having two lets user "select" the row from both ends

Names Default To Here(1);

dt = New Table("Untitled 2",
	Add Rows(12),
	Compress File When Saved(1),
	New Column("Step",
		Character,
		"Nominal",
		Set Property("Value Colors", {"fan" = -15113984, "heater1" = -5682409, "heater2" = -40563, "injector1" = -29362, "mixer" = -13983232}),
		Set Values({"mixer", "heater1", "injector1", "mixer", "heater2", "injector1", "heater1", "mixer", "heater2", "mixer", "fan", "mixer"})
	),
	New Column("Start",
		Numeric,
		"Continuous",
		Format("Best", 12),
		Set Values([0, 1, 4, 6, 10.300000000000001, 12, 16, 18, 23.399999999999999, 24, 24, 30])
	),
	New Column("Stop",
		Numeric,
		"Continuous",
		Format("Best", 12),
		Set Values([2, 12.300000000000001, 4.5, 8, 13, 12.5, 25.399999999999999, 20, 30, 26, 45, 40])
	)
);
dt << Color or Mark by Column(:Step, Color(1), Marker(0));

gb = dt << Graph Builder(Variables(X(:Start), X(:Stop, Position(1)), Y(:Step), Color(:Step)),
	Elements(Points(X(1), X(2), Y, Legend(7))),
	SendToReport(
		Dispatch({}, "400", ScaleBox,
			{Legend Model(
				7,
				Properties(0, {Marker("FilledSquare")}, Item ID("fan", 1)),
				Properties(1, {Marker("FilledSquare")}, Item ID("heater1", 1)),
				Properties(2, {Marker("FilledSquare")}, Item ID("heater2", 1)),
				Properties(3, {Marker("FilledSquare")}, Item ID("injector1", 1)),
				Properties(4, {Marker("FilledSquare")}, Item ID("mixer", 1))
			)}
		),
		Dispatch({}, "400", LegendBox,
			{Legend Position({7, [0, 1, 2, 3, 4, -1, -1]})}
		)
	)
);

frame = Report(gb)[FrameBox(1)];
seg = (frame << FindSeg(Marker Seg(1)));
seg << Set Marker Draw Expr(
	Function({this seg, this row, x, y, size, row state},
		Fill Color(Color Of(Row State(this row)));
		Rect(x, y + 0.3, x + (:Stop[this row] - x) / 2 + 0.1, y - 0.3, 1)
	)
);

seg = (frame << FindSeg(Marker Seg(2)));
seg << Set Marker Draw Expr(
	Function({this seg, this row, x, y, size, row state},
		Fill Color(Color Of(Row State(this row)));
		Rect(x - (x - :Start[this row]) / 2 - 0.1, y + 0.3, x, y - 0.3, 1)
	)
);

There are also most likely options where you heavily modify your data to fit just graphing needs.