- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
saving graphs as PNG or JPEG
Hi,
I have made a script which lets the user select an excel file, process it , add or formulates columsn to it, opens graph builder and plots it with local data filter.
My question is:
1. How do I save graphs choosing the local data filter option using the script? For example, I have 2 local data filters, say Trimset(10, 100, 101, 110, 111, 1000, 11111) and formula(yes or no) and I need to plot graphs like (All trimset values with formula NO) and (Each of the trimset values with formula YES) .. so a total of 8 graphs.
2. In my graph, I want the statement beneath the graph "Where Trimset is .... and formula is NO " to be included.
3. Save graphs in a folder in png or jpeg files
4.JMP data table and graph builder tables exits without saving.
5. how to make an addin feature to make it a single click operation because I need to do this for 100 or more files?
I have been reading all the discussions but I am not able to get the right answer. I really appreciate your help.
Thank you
Accepted Solutions
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: saving graphs as PNG or JPEG
Here's a different approach, without using the data filter:
dt = Open( "$sample_data/big class.jmp" );
ages = Data Table( "big class" ) << Summary( Group( :age ), Freq( "None" ), Weight( "None" ) );
sexes = Data Table( "big class" ) << Summary( Group( :sex ), Freq( "None" ), Weight( "None" ) );
deletedirectory("$temp/myPics");
createDirectory("$temp/myPics");
For( iage = 1, iage <= N Rows( ages ), iage++,
thisAge = ages:age[iage];
For( isex = 1, isex <= N Rows( sexes ), isex++,
thisSex = sexes:sex[isex];
eval(evalexpr(biv = dt << Bivariate(
Y( :weight ),
X( :height ),
Automatic Recalc( 1 ),
Fit Line( {Line Color( {213, 72, 87} )} ),
where( age == expr(thisAge) & sex == expr(thisSex) )
)));
parentBox = Report( biv ) << parent;
picture = parentBox << getpicture;
picture << saveImage( "$temp/myPics/age" || Char( thisAge ) || "sex" || Char( thisSex ) || ".png", "png" );
// optional: Open( "$temp/age" || Char( thisAge ) || "sex" || Char( thisSex ) || ".png" );
biv<<closewindow;
);
);
close(ages,"nosave");
close(sexes,"nosave");
show(filesInDirectory("$temp/myPics"));
Files In Directory("$temp/myPics") = {"age12sexF.png", "age12sexM.png", "age13sexF.png", "age13sexM.png", "age14sexF.png", "age14sexM.png", "age15sexF.png", "age15sexM.png", "age16sexF.png", "age16sexM.png", "age17sexF.png", "age17sexM.png"};
where clause above graph
In this case the where clause is above the platform's output, so I used the <<parent method to move up through the displaybox tree to include that outer box as well.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: saving graphs as PNG or JPEG
My first point, is that you should not be reading the Discussions to learn how to script JMP. You should be reading the JSL Scripting Guide.
Help==>Books==>Scripting Guide
Then if you can't get things to work, then the Discussion Community is a great resource to help you.
Let me take a wack at the questions you ask.
1. How do you use a local data filter and then save the output.
Below is a crude script that will show you how to do this in a very unfancy way
dt=Open(<path to your data table>);
gb=Graph Builder(
Size( 527, 453 ),
Show Control Panel( 0 ),
Variables( X( :weight ), Y( :height ) ),
Elements( Points( X, Y, Legend( 13 ) ), Smoother( X, Y, Legend( 14 ) ) )
);
Thefilter=gb<<Local Data Filter(
Add Filter(
columns( :age, :sex ),
Where( :age == {12, 13, 14} ),
Where( :sex == "F" ),
Display( :age, Size( 170, 96 ), List Display )
)
);
report(gb)<<save picture( "path/to/example.png", "png" );
gb<<remove local data filter;
Thefilter=gb<<Local Data Filter(
Add Filter(
columns( :sex ),
Where( :sex == "F" ),
Display( :age, Size( 170, 96 ), List Display )
)
);
report(gb)<<save picture( "path/to/example.png", "png" );
gb<<remove local data filter;
// Add the remaining filter cases
close(dt,nosave);
gb << close window;
The code for the graph builder and each of the local filters is available under the red triangles. If you select them and go to "Save Script" you will get the code required for the different cases you have. Just start up Graph Builder. Then save the script for the graph builder. Then open the local filter. Set it to your first case(where clauses) and then save it's script. Next, change the local filter to the next case and save it's script....etc.
2. The statement below the graph is saved to the png
3. You just need to specify in the Save Picture function the path. This can be programatically handled so that it can follow any naming method you want to use.
4. The sample script show the method to do this
5. There is very good documentation in the Scripting Guide on how to make an Addin. It is a far too lengthy answer to be handled in the Discussion
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: saving graphs as PNG or JPEG
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: saving graphs as PNG or JPEG
Yes, a For loop is available. JSL is a very complete language, with all of the functionality one would expect from a computer language.
I suggest that you read the first few chapters of the Scripting Guide, so you can get a feeling for all of the components of the language and how to implement them.
If you could give me a little information about what computer languages you work with, it would help me in providing you with JSL examples in terms that you are familiar with.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: saving graphs as PNG or JPEG
Here's a different approach, without using the data filter:
dt = Open( "$sample_data/big class.jmp" );
ages = Data Table( "big class" ) << Summary( Group( :age ), Freq( "None" ), Weight( "None" ) );
sexes = Data Table( "big class" ) << Summary( Group( :sex ), Freq( "None" ), Weight( "None" ) );
deletedirectory("$temp/myPics");
createDirectory("$temp/myPics");
For( iage = 1, iage <= N Rows( ages ), iage++,
thisAge = ages:age[iage];
For( isex = 1, isex <= N Rows( sexes ), isex++,
thisSex = sexes:sex[isex];
eval(evalexpr(biv = dt << Bivariate(
Y( :weight ),
X( :height ),
Automatic Recalc( 1 ),
Fit Line( {Line Color( {213, 72, 87} )} ),
where( age == expr(thisAge) & sex == expr(thisSex) )
)));
parentBox = Report( biv ) << parent;
picture = parentBox << getpicture;
picture << saveImage( "$temp/myPics/age" || Char( thisAge ) || "sex" || Char( thisSex ) || ".png", "png" );
// optional: Open( "$temp/age" || Char( thisAge ) || "sex" || Char( thisSex ) || ".png" );
biv<<closewindow;
);
);
close(ages,"nosave");
close(sexes,"nosave");
show(filesInDirectory("$temp/myPics"));
Files In Directory("$temp/myPics") = {"age12sexF.png", "age12sexM.png", "age13sexF.png", "age13sexM.png", "age14sexF.png", "age14sexM.png", "age15sexF.png", "age15sexM.png", "age16sexF.png", "age16sexM.png", "age17sexF.png", "age17sexM.png"};
where clause above graph
In this case the where clause is above the platform's output, so I used the <<parent method to move up through the displaybox tree to include that outer box as well.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: saving graphs as PNG or JPEG
This code adds a small menu to any Data Filter - select your columns and click OK to cycle through the entries and auto-save the GraphBuilder plot.
(columns with continuous values are not listed)
Names Default to HERE(1);
if(not(namespaceExists("autoAnimate")),New NameSpace("autoAnimate"));
autoAnimate:update = function({},
Try (autoAnimate:DFTopLB = Current Report()["Local Data Filter", List Box( 1 )], stop());
Try(autoAnimate:myDFTPBs = (Current Report()["Local Data Filter", Lineup Ruler Box( 1 ), List Box( 1 )] << Xpath( "//TabPageBox" )),stop());
// collect Data Fitlers with ListBoxes, remove the continuos ones.
autoAnimate:myDFLBs ={};
For Each ( {TPB,i}, autoAnimate:myDFTPBs, tmp=(TPB << xpath( "//ListBoxBox" ));If(NItems(tmp),Insert Into(autoAnimate:myDFLBs,tmp[1]),Remove from(autoAnimate:myDFTPBs,i) ));
// which columns are used?
autoAnimate:DFCols = Transform Each( {TPB}, autoAnimate:myDFTPBs, Trim( Word( 1, TPB << Get Title, "(" ) ) );
// what are the entries? (for the filename)
autoAnimate:myDFLBItems = autoAnimate:myDFLBs << get items;
// how many entries?
autoAnimate:myDFLBNItems = Transform Each( {items}, autoAnimate:myDFLBItems, N Items( items ) );
// variales for the for loops
chars = {"aa", "bb", "cc", "dd", "ee", "ff", "gg", "hh", "ii"};
// append a Display Box:
Try(autoAnimate:animatePane << delete);
autoAnimate:DFTopLB << append( autoAnimate:animatePane = V List Box (Spacer Box( size( 0, 20 ) ),Panel Box( "cycle selected + save", V List Box( colSelection = List Box( autoAnimate:DFCols ), H List Box( Button Box("update",autoAnimate:update()),Spacer Box (size(40,0)),Button Box( "start", autoAnimate:animateNsave() ) )) ) ));
);
autoAnimate:animateNsave = Function( {},
// which DFs are selected?
selectedCols = colselection << Get Selected Indices;
// compose the expression
expression = "";
xx=1;
// for loop for every active DF:
For( i = 1, i <= N Items( autoAnimate:myDFTPBs ), i++,
expression = expression || If( Contains( selectedCols, i ),
"For(" || chars[i] || "=1," || chars[i] || "<=" || Char( autoAnimate:myDFLBNItems[i] ) || "," || chars[i] || "++,__LB" || Char( i ) ||
"__ << clear selection << set selected(" || chars[i] || ");",
"if(1,"
)
);
// save current Graph builder Plot -- how about other reports?
expression = expression || "wait();(current report()<< XPath(\!"//OutlineBox[@helpKey='Graph Builder']\!"))<<Save Picture(\!"C:\temp\\!"";
// compose the correct filename
For( i = 1, i <= N Items( autoAnimate:myDFTPBs ), i++, expression = expression ||If( Contains( selectedCols, i ), "||\!""||Char (autoAnimate:DFCols[i])||"=\!"||Char("||Char(autoAnimate:myDFLBItems[i])||"["||chars[i]||"])||\!"_\!"","||\!"_\!""));
expression = expression || "||\!".png\!")";
For( i = 1, i <= N Items( autoAnimate:myDFTPBs ), i++,
expression = expression || ")"
);
expression = Parse(expression);
For( i = 1, i <= N Items( autoAnimate:myDFTPBs ),i++,expression = Substitute(Name Expr(expression ),Parse("__LB"|| Char( i ) ||"__"),autoAnimate:myDFLBs[i]));
//Name Expr(expression )
Eval(expression);
Open("C:\temp");
);
autoAnimate:update();
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: saving graphs as PNG or JPEG
@hogi, this script is awesome! I share my analysis results with many coworkers w/o JMP and having this menu added to graphs with a local data filter is very helpful.
*It might be helpful for beginners to note that @hogi's script is standalone and can be added to a data table (by using the red triangle at the top of the left panel in your data table and select "New Script"). Then when you run this script, it will add the small menu to the current active report that already has a local data filter applied.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: saving graphs as PNG or JPEG
It just got easier : )
I added the functionality to the Graph Builder Toolbar *)
*) now available via the marketplace:
https://marketplace.jmp.com/appdetails/Graph%20Builder%20Toolbar
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Get Direct Link
- Report Inappropriate Content
Re: saving graphs as PNG or JPEG
... but still the version with the same bug.
If you want to speed it up, please change the argument of wait() from () to (0):