topic Re: Rectangle Graphic in Discussions

Rectangle Graphic

JohannesENS — Sun, 11 Jun 2023 11:18:53 GMT

Hello everybody,

is there an easy way in JMP to generate a graph with different rectangles (different sizes)? See an example attached.

With this graph I would like to give an overview of different materials and their corresponding shapes.

Thanks in advance.

Johannes

Re: Rectangle Graphic

jthi — Wed, 03 Nov 2021 07:43:25 GMT

What sort of data do you have? You can for example create custom shape files

Re: Rectangle Graphic

JohannesENS — Wed, 03 Nov 2021 07:58:31 GMT

I attached a file with sample data. I do have coordinates for every corner of the rectangles.

Re: Rectangle Graphic

txnelson — Wed, 03 Nov 2021 10:42:31 GMT

JMP has a complete set of graphic primitives' that can be used for creating things such as rectangles. The Scripting Index details the functions available and gives examples of their use.

Here is the script from the Rect() function description.

Names Default To Here( 1 );
New Window( "Example",
	Graph Box(
		Pen Color( "Green" );
		Pen Size( 2 );
		Fill Color( "Red" );
		Rect( 15, 75, 65, 55, 1 );
		Rect( 10, 80, 70, 50 );
	)
);

Re: Rectangle Graphic

JohannesENS — Wed, 03 Nov 2021 11:59:37 GMT

Thank you!

Re: Rectangle Graphic

Craige_Hales — Thu, 04 Nov 2021 12:52:49 GMT

Also look at the transparency command if you have issues with which one is in front.

both rectangles are drawn with 50% alpha

Re: Rectangle Graphic

pmroz — Wed, 03 Nov 2021 13:46:05 GMT

Lots of overlap in your data. This code will do it; I set the rectangles to unfilled to show the overlap.

dt = data table("Rectangles");

// Set some constants
xmin = 0;
xmax = 4000;
ymin = 0;
ymax = 1500;
xres = 800;
yres = 500;

color_list  = {"Red", "Blue", "Green", "Orange", "Purple"};
filled_rect = 0;	// set to 1 for filled rectangles

heat_map_win = New Window( "Example Rectangles ",
	rect_gb = Graph Box(
		framesize( xres, yres ),
		xscale(xmin, xmax),
		yscale(ymin, ymax),
		for (i = 1, i <= nrows(dt), i++,
			xleft   = dt:x 1[i];
			xright  = dt:x 3[i];
			ybottom = dt:y 1[i];
			ytop    = dt:y 4[i];
			pcolor  = color_list[dt:material[i]];
			pen color(pcolor);
			fill color(pcolor);
			rect(xleft, ytop, xright, ybottom, filled_rect);
		),
	)
);

Re: Rectangle Graphic

jthi — Wed, 03 Nov 2021 14:26:23 GMT

I would definitely do this with Graph box but you can try to do something with Graph builder also. If I understood the data correctly you have couple of different versions per material. Based on that I did some split/stack/formulas to get table like this:

With this table I then created Graph builder and used smoother with confidence of fit ON.

These two happened by accident and will work only because all rectangles have "line" in x = 0:

Bar chart + line char:

Also using line with fill below:

Datatable attached with tablescript.

Bonus image from same data:

Re: Rectangle Graphic

LargeElk892 — Fri, 25 Oct 2024 14:17:53 GMT

Thanks for the code. Working well for me.

Now I'd like to split the graphs by another key column. E.g. graph 1 will have the rectangles for parameter A, graph 2 will have the rectangles for parameter B, etc.

I'm struggling to use a Where or By clause here.

I would need to have all the graphs displayed vertically and save it as a jpg.

Thank you