News
We’re asking you to select a content label when starting a new topic in the Discussions area. Read more to find out why.
Choose Language Hide Translation Bar
Highlighted
senatorx
Level III

Minimize all Fit data prior to saving graph

Hi, I'm making a bivariate plot with several spline fits.  I want to save only the graph portion to an image file, but not the fit data at the end.  Is there a way to minimize all the fits, or have them populate to a separate window?  When I minimize all the fits then view the script, it creates multiple instances of   Dispatch( {}, "Smoothing Spline Fit", OutlineBox, {Close( 1 )} ), however when re-running the script, it only minimizes the first fit.

Trend = Bivariate(

Y( :Ycol ),

X( :Xcol ),

Fit Where(

  :colName == "fit1",

  Fit Spline( 0.1, Standardized, {Line Color( {213, 72, 87} )} )

),

Fit Where(

  :colName == "fit2",

  Fit Spline( 0.1, Standardized, {Line Color( {57, 177, 67} )} )

),

Fit Where(

  :colName == "fit3",

  Fit Spline( 0.1, Standardized, {Line Color( {64, 111, 223} )} )

),

Fit Where(

  :colName == "fit4",

  Fit Spline( 0.1, Standardized, {Line Color( {207, 121, 38} )} )

),

Fit Where(

  :colName == "fit5",

  Fit Spline( 0.1, Standardized, {Line Color( {33, 189, 145} )} )

),

SendToReport(

  Dispatch( {}, "1", ScaleBox, {Rotated Labels( 1 )} ),

  Dispatch(

   {},

   "Bivar Plot",

   FrameBox,

   {Frame Size( 400, 300 ), Row Legend(

    colName,

    Color( 1 ),

    Color Theme( "JMP Default" ),

    Marker( 1 ),

    Marker Theme( "Standard" ),

    Continuous Scale( 0 ),

    Reverse Scale( 0 ),

    Excluded Rows( 0 )

   )}

  ),

  Dispatch( {}, "Smoothing Spline Fit", OutlineBox, {Close( 1 )} ),

  Dispatch( {}, "Smoothing Spline Fit", OutlineBox, {Close( 1 )} ),

  Dispatch( {}, "Smoothing Spline Fit", OutlineBox, {Close( 1 )} ),

  Dispatch( {}, "Smoothing Spline Fit", OutlineBox, {Close( 1 )} ),

  Dispatch( {}, "Smoothing Spline Fit", OutlineBox, {Close( 1 )} )

)

);

Trend << Save Picture("\\path\file.png", png) ;

0 Kudos
4 REPLIES 4
Highlighted
ms
Super User ms
Super User

Re: Minimize all Fit data prior to saving graph

There is, at least in JMP 10, a convenient message for outline boxes: << close all like this

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );

splines = dt << Bivariate(

  Y( :weight ),

  X( :height ),

  by( :sex ),

  Fit Spline( 340, Standardized, {Line Color( {208, 64, 86} )} )

);

Report( splines[1] )["Smoothing Spline Fit"] << close all like this;

0 Kudos
Highlighted
senatorx
Level III

Re: Minimize all Fit data prior to saving graph

Ok.  I'm running JMP9.  Any chance there is a more tedious way to accomplish that with JMP9?  I'm guessing there should be some way to give each spline a name or a label that can be individually referenced for closing / minimizing.

thanks.

0 Kudos
Highlighted
ms
Super User ms
Super User

Re: Minimize all Fit data prior to saving graph

The command appears to be supported in JMP 9, but JMP 9 seems to be more picky when it comes to adress display boxes by a string. But using a wildcard (?) seems to work in this case.

Report( splines[1] )["Smoothing Spline Fit?"] << close all like this;

0 Kudos
Highlighted
senatorx
Level III

Re: Minimize all Fit data prior to saving graph

I never got this to work correctly, but I found that I could just do automated formatting on the images afterwards with a powerpoint macro. 

0 Kudos