255334_fr-FR

liliconcom

Graph Builder : calcul des axes Max, Min et Range pour le placement dynamique des annotations

Bonjour la communauté JMP,

 

J'ai un script qui trace les données d'une série de colonnes dans une table regroupées en fonction d'une variable (:VAR_CAT) et qui ajoute dynamiquement le texte d'une autre table, à l'aide de Graph Builder. Bien que ce script fonctionne bien, j'ai rencontré quelques difficultés avec le placement vertical du texte ajouté dynamiquement (voir script ci-dessous).

 

Plus précisément, j'ai essayé différentes approches, notamment :

1. YMax = Col Mean (YCOL) + (Col Std Dev (YCOL)/sqrt (Col Number (YCOL))) ; mais cela ne fonctionne pas assez bien car cela renvoie le YMAX pour la colonne entière et non pour le sous-ensemble défini par la variable Overlay -> quelles seraient les lignes de code correctes pour calculer dynamiquement le maximum réel de l'axe Y pour les données regroupées dans Catégories de superposition (je sais que l'option "Par" ne fonctionne que dans une structure Pour chaque ligne) ?
2. YMAX = rapport (gb)[Axis Box (2)] << Get Max ; qui récupère le maximum réel pour l'axe Y GB mais cette approche m'obligerait à évaluer l'expression une seconde fois ce qui ne semble ni efficace ni élégant

Names Default to Here (1);

dt1 = Data Table ("DATA_TABLE.JMP");
dt2 = Data Table ("PVALUE_TABLE.JMP");
CList = dt1 << Get Column Names(string);

 gbe = Expr (Graph Builder(
    Size( 497, 507 ),
    Variables(
     X( :DURATION ),
     Y( _YS_ ),
     Overlay( :VAR_CAT ),
     Interval( _ES_)
    ),
    Elements( Points( X, Y, Legend( 9 ) ), Line( X, Y, Legend( 11 ) ) ),
    SendToReport(
     Dispatch(
      {},
      _LABEL_,
      ScaleBox,
      {Add Ref Line( 0, "Dotted", "Black", "", 2 )}
     ),
     Dispatch(
      {},
      "DURATION",
      ScaleBox,
      {Min( -1.0 ), Max( 16 ), Inc( 2 ), Minor Ticks( 0 )}
     ),
     Dispatch(
      {},
      "400",
      ScaleBox,
      {Legend Model(
       9,
       Base( 0, 0, 0, Item ID( "CAT1", 1 ) ),
       Base( 1, 0, 0, Item ID( "CAT2", 1 ) )
      )}
     ),
     
     Dispatch(
      {},
      "Graph Builder",
      FrameBox,
      {Marker Size( 6 ), Add Graphics Script(
       2,
       Description( "Script" ),
       Text( Center Justified, {3.8, _TP_}, _TXT1_ );
       Text( Center Justified, {13.6, _TP_}, _TXT2_ );
      ), Grid Line Order( 1 ), Reference Line Order( 3 )}
     )
    )
   )
  );
For (i = 5, i <= 96, i++, //96

 YCOL = Column (dt1, i);
 ECOL = Column (dt1, i+92);
 LBL = CList [i];
 
 YMax = Col Mean (YCOL) + (Col Std Dev (YCOL)/sqrt(Col Number(YCOL)));
 YMin = Col Mean (YCOL) - (Col Std Dev (YCOL)/sqrt(Col Number(YCOL)));
 
 YRANGE = abs (YMax - Y Min);
 
 If (YRANGE < 1.0, 
       YMax = YMax + 0.5;
       YMin = YMin - 0.3 
       );
 
 TOPY = YMax-0.1;
 
 
 PVAL1 = "p VAL " || CHAR(Format(Column(dt2, 2)[i-4], "PValue"));
 PVAL2 = "p VAL " || CHAR(Format(Column(dt2, 3)[i-4], "PValue"));
 
 gbx = Substitute (Name Expr (gbe),  Expr (_YS_), YCOL,
          Expr (_ES_), ECOL,
          Expr (_LABEL_), LBL,
          Expr (_TP_), TOPY,
          Expr (_TXT1_), PVAL1,
          Expr (_TXT2_), PVAL2
           
     );
 gb = Eval (gbx);
 
 Yaxis = report (gb)[Axis Box (2)];
 
 LocYMin = Yaxis << Get Min;
 LocYMax = Yaxis << Get Max;
 
 LocRange = LocYMax - LocYMin;
 
 mytitle = substitute (LBL, "Least Sq Mean LOG2 FC ", "");
 
 report (gb) [OutlineBox (1)] << Set Title (mytitle);
  
 if(abs (LocRange) < 1.0, 
  Yaxis << Max (LocYMax + 0.5);
  Yaxis << Min (LocYMin - 0.3);
  Yaxis << Inc (0.2),.);

 
 gb << Journal;
 gb << close window;
 

);   

Re : Graph Builder : calcul des axes Max, Min et Range pour le placement dynamique des annotations

Vous pouvez également demander directement à la boîte d'axe :

 

Names Default To Here( 1 );
Open( "$SAMPLE_DATA/Big Class.jmp" );
biv = Bivariate( Y( :weight ), X( :height ), FitLine );
rbiv = biv << report;
axisbox = rbiv[axis box( 1 )];
axisbox << Get Max;

(Depuis Aide > Index des scripts)

Re : Graph Builder : calcul des axes Max, Min et Range pour le placement dynamique des annotations

Vous pouvez obtenir le script pour la boîte d'axe, puis rechercher les arguments pour les paramètres Min() et Max().

 

dt = Open( "$SAMPLE_DATA\Big Class.jmp" );
biv = Bivariate( Y( :weight ), X( :height ), Fit Line( {Line Color( {212, 73, 88} )} ) );
y_axis_script = Report( biv )[axis box( 1 )] << get script;

/*
y_axis_script will be a list: {Scale( "Linear" ), Format( "Fixed Dec", 12, 0 ), Min( 60 ), Max( 180 ),
Interval( "Numeric" ), Inc( 20 ), Minor Ticks( 0 ), Label Row Nesting( 1 ),
Label Row(
 {Automatic Font Size( 0 ), Automatic Tick Marks( 0 ), Inside Ticks( 0 ),
 Label Alignment( "Near" ), Label Buffer Scale( 1 ),
 Label Orientation( "Horizontal" ), Lax Label Range( 0 ),
 Major Grid Line Color( -14145495 ), Minimum Depth( 0 ), Minimum Font Size( 8 ),
 Minor Grid Line Color( -15790320 ), Show Major Grid( 0 ), Show Major Labels( 1 ),
 Show Major Ticks( 1 ), Show Minor Grid( 0 ), Show Minor Labels( 0 ),
 Show Minor Ticks( 1 ), Tick Offset( 0 ), Wrap Lines( 0 )}
)}
*/

//get the arguments for the 3rd and 4th elements of that list
minimum = Arg( y_axis_script[3], 1 );
maximum = Arg( y_axis_script[4], 1 );

 

Re : Graph Builder : calcul des axes Max, Min et Range pour le placement dynamique des annotationsSalut,
Merci d'avoir fourni cette suggestion mais je ne pense pas que cela résout mon problème. Je n'ai peut-être pas fourni une description claire de mon problème : ce que j'essaie de réaliser est de calculer à partir des données ou d'extraire de GB le maximum de l'axe Y afin de placer avec précision le contenu dynamique du script texte sur le graphique.

Peut-être vouliez-vous suggérer que j'utilise une zone de légende au lieu d'un script de texte direct pour annoter dynamiquement mes tracés. Si tel est le cas, je ne suis pas sûr qu'il soit possible de remplacer dynamiquement le contenu du texte d'une zone de légende (veuillez me corriger si je me trompe).

Merci pour votre aide.
Sincèrement,
TSRe : Graph Builder : calcul des axes Max, Min et Range pour le placement dynamique des annotations

Essayez d'en ajouter un à la liste des éléments du générateur de graphiques :

Zone de légende (Y, Légende ( 4 ), Statistique récapitulative ( "Max" ) )

donc:

gbe = Expr (Graph Builder(
    Size( 497, 507 ),
    Variables(
     X( :DURATION ),
     Y( _YS_ ),
     Overlay( :VAR_CAT ),
     Interval( _ES_)
    ),
    Elements(
                                  Points( X, Y, Legend( 9 ) ),
                                  Line( X, Y, Legend( 11),
                                  Caption Box( Y, Legend( 4 ), Summary Statistic( "Max" ) )<BR />                ) ),<BR />//the&nbsp;rest&nbsp;of&nbsp;your&nbsp;code

Vous pouvez le faire visuellement en cliquant avec le bouton droit dans le générateur de graphiques et en ajoutant une zone de légende. Ensuite, dans la liste de gauche, modifiez les statistiques récapitulatives selon vos besoins et modifiez les variables qu'elles utilisent pour le calcul.