38193_es-ES

liliconcom

añadiendo texto desde fuera bivariable

Hola a todos,

 

Estoy tratando de colocar un cuadro de texto en una trama bivariada.

El contenido del cuadro de texto se extrae del informe bivariado basado en el ajuste, por lo que no está listo cuando estoy construyendo el bivariado en primer lugar.

Por favor, hágamelo saber la sintaxis con respecto a esto.
A continuación se muestra una versión simplificada del código que estoy usando. Quiero agregar el número "this_var" (al final) en bivariate.

 

     biv=Dt << Fit Y by X(
      Robust Fit,
      X( Eval( Column( Dt, "X" )[rows[i]] ) ),
      Y( Eval( Column( Dt, "Y" )[rows[i]] ) ),
      Fit Robust( {Line Color( {213, 72, 87} ), Line Style( "Dotted" )} ),
      SendToReport(
       Dispatch(
        {},
        "Bivar Plot",
        FrameBox,
        {Frame Size( 799, 464 ), Marker Size( 12 ),
        Marker Drawing Mode( "Outlined" ),
        DispatchSeg( Line Seg( 1 ), {Line Style( "Dotted" )} ),
         Row Legend(
          :WAFER,
          Color( 0 ),
          Color Theme( "" ),
          Marker( 1 ),
          Marker Theme( "Standard" ),
          Continuous Scale( 0 ),
          Reverse Scale( 0 ),
          Excluded Rows( 0 )
         ),
         //--display Value column entry here from Dt ---     
         Add Text Annotation( 
          Text( "Value:" || char(Format(Eval( Column( Dt, "Value" )[rows[i]] ), "Scientific", 10))), 
            Text Box( {100, 10, 404, 200} )
           )
        }
       )
      ),
      
     )
     /* get the report into a variable */
     reportbiv = biv << Report;
     this_var = Report( biv )[Outline Box( "Fit" )][NumberColBox(1)][2];
     //----Need to add above variable in a text box in bivariate plot above

Re: añadiendo texto desde fuera bivariable

Aquí hay un guión aún más breve que ilustra la respuesta a lo que creo que fue su pregunta.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA\big class.jmp" );
Biv = Bivariate( Y( :weight ), X( :height ), Fit Robust( {Line Color( {213, 72, 87} )} ) );

this_var = (Report( biv )[Outline Box( "Robust Fit" )][Number Col Box( 1 )] << get)[1];
biv( report ) << Add Text Annotation( Text( Char( this_var ) ), Text Box( {65, 35, 200, 77} ) );

Otra opción sería usar "Agregar texto gráfico" que le dará una mejor ubicación y características

 

Ambas opciones están documentadas en el Índice de Scripting.

     Ayuda ==> Índice de secuencias de comandos ==> FrameBox