629312_es-ES

liliconcom

Cambiar un color de la leyenda que está establecida en JMP Default para múltiples gráficos en el gráfico de variabilidad

Hola a todos,

 

Mi pregunta tiene dos partes e idealmente la #1 puede ser resuelta, está bien si no puedes resolver la #2. Agradezco cualquier y toda ayuda!

1. ¿Cómo puedo hacer que una de las categorías dentro de cada leyenda sea el color negro y no el color predeterminado que asigna jmp?

Ejemplo: ¿Hacer Chrysler el color negro en la primera leyenda, coche de ciudad negro en la segunda, 90 negro en la tercera, 2 negro en la cuarta y furgoneta negra en la quinta?

2. ¿Cómo puedo, a través de un bucle for, agregar una leyenda a cada gráfico de variabilidad? Y del mismo modo quiero que siga un cierto patrón.

Ejemplo: En este caso, la leyenda de la bolsa de aire d es la marca, la leyenda de las bolsas de aire d&p es el modelo, las correas manuales son el año, las correas motorizadas son las puertas y las correas pasivas son el tamaño.

 

Variability Chart(
 SendToByGroup( {:"D/P"n == "Driver", :Protection == "d airbag"} ),
 Y( :Head IC ),
 SendToByGroup( {:"D/P"n == "Driver", :Protection == "d airbag"}, Y( :Head IC ) ),
 SendToByGroup(
  {:"D/P"n == "Driver", :Protection == "d&p airbags"},
  Y( :Head IC )
 ),
 SendToByGroup(
  {:"D/P"n == "Driver", :Protection == "manual belts"},
  Y( :Head IC )
 ),
 SendToByGroup(
  {:"D/P"n == "Driver", :Protection == "Motorized belts"},
  Y( :Head IC )
 ),
 SendToByGroup(
  {:"D/P"n == "Driver", :Protection == "passive belts"},
  Y( :Head IC )
 ),
 SendToByGroup(
  {:"D/P"n == "Passenger", :Protection == "d airbag"},
  Y( :Head IC )
 ),
 SendToByGroup(
  {:"D/P"n == "Passenger", :Protection == "d&p airbags"},
  Y( :Head IC )
 ),
 SendToByGroup(
  {:"D/P"n == "Passenger", :Protection == "manual belts"},
  Y( :Head IC )
 ),
 SendToByGroup(
  {:"D/P"n == "Passenger", :Protection == "Motorized belts"},
  Y( :Head IC )
 ),
 SendToByGroup(
  {:"D/P"n == "Passenger", :Protection == "passive belts"},
  Y( :Head IC )
 ),
 X( :Make, :Model ),
 Show Range Bars( 0 ),
 Show Cell Means( 0 ),
 Std Dev Chart( 0 ),
 Points Jittered( 1 ),
 By( :"D/P"n, :Protection ),
 SendToByGroup(
  {:"D/P"n == "Driver", :Protection == "d airbag"},
  SendToReport(
   Dispatch(
    {"Variability Gauge D/P=Driver, Protection=d airbag",
    "Variability Chart for Head IC"},
    "Variability Chart",
    FrameBox,
    {Row Legend(
     Make,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 ),
 SendToByGroup(
  {:"D/P"n == "Driver", :Protection == "d&p airbags"},
  SendToReport(
   Dispatch(
    {"Variability Gauge D/P=Driver, Protection=d&p airbags",
    "Variability Chart for Head IC"},
    "Variability Chart",
    FrameBox,
    {Row Legend(
     Model,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 ),
 SendToByGroup(
  {:"D/P"n == "Driver", :Protection == "manual belts"},
  SendToReport(
   Dispatch(
    {"Variability Gauge D/P=Driver, Protection=manual belts",
    "Variability Chart for Head IC"},
    "Variability Chart",
    FrameBox,
    {Row Legend(
     Year,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 ),
 SendToByGroup(
  {:"D/P"n == "Driver", :Protection == "Motorized belts"},
  SendToReport(
   Dispatch(
    {"Variability Gauge D/P=Driver, Protection=Motorized belts",
    "Variability Chart for Head IC"},
    "Variability Chart",
    FrameBox,
    {Row Legend(
     Doors,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 ),
 SendToByGroup(
  {:"D/P"n == "Driver", :Protection == "passive belts"},
  SendToReport(
   Dispatch(
    {"Variability Gauge D/P=Driver, Protection=passive belts",
    "Variability Chart for Head IC"},
    "Variability Chart",
    FrameBox,
    {Row Legend(
     Size,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 ),
 SendToByGroup(
  {:"D/P"n == "Passenger", :Protection == "d airbag"},
  SendToReport(
   Dispatch(
    {"Variability Gauge D/P=Passenger, Protection=d airbag",
    "Variability Chart for Head IC"},
    "Variability Chart",
    FrameBox,
    {Row Legend(
     Make,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 ),
 SendToByGroup(
  {:"D/P"n == "Passenger", :Protection == "d&p airbags"},
  SendToReport(
   Dispatch(
    {"Variability Gauge D/P=Passenger, Protection=d&p airbags",
    "Variability Chart for Head IC"},
    "Variability Chart",
    FrameBox,
    {Row Legend(
     Model,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 ),
 SendToByGroup(
  {:"D/P"n == "Passenger", :Protection == "manual belts"},
  SendToReport(
   Dispatch(
    {"Variability Gauge D/P=Passenger, Protection=manual belts",
    "Variability Chart for Head IC"},
    "Variability Chart",
    FrameBox,
    {Row Legend(
     Year,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 ),
 SendToByGroup(
  {:"D/P"n == "Passenger", :Protection == "Motorized belts"},
  SendToReport(
   Dispatch(
    {"Variability Gauge D/P=Passenger, Protection=Motorized belts",
    "Variability Chart for Head IC"},
    "Variability Chart",
    FrameBox,
    {Row Legend(
     Doors,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 ),
 SendToByGroup(
  {:"D/P"n == "Passenger", :Protection == "passive belts"},
  SendToReport(
   Dispatch(
    {"Variability Gauge D/P=Passenger, Protection=passive belts",
    "Variability Chart for Head IC"},
    "Variability Chart",
    FrameBox,
    {Row Legend(
     Size,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 )
)

 

 

Exploración y visualización de datosGráficossecuencias de comandosRe: Cambiar un color de la leyenda que está establecida en JMP Default para múltiples gráficos en el gráfico de variabilidad

Con suerte, hay soluciones más simples que esta muy cargada de scripts que usa la propiedad de la columna de colores de valor, pero esto podría ayudarlo a comenzar

Names Default To Here(1);

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

aa_protection_legend = Associative Array("Year"); // default value Year as I won't write all of these
aa_protection_legend["d airbag"] = "Make";
aa_protection_legend["d&p airbags"] = "Model";


cols_to_color = Associative Array();
cols_to_color["Make"] = "Chrysler";
cols_to_color["Model"] = "Town Car";


vars = dt << Variability Chart(
 SendToByGroup({:"D/P"n == "Driver", :Protection == "d airbag"}),
 Y(:Head IC),
 SendToByGroup({:"D/P"n == "Driver", :Protection == "d airbag"}, Y(:Head IC)),
 SendToByGroup({:"D/P"n == "Driver", :Protection == "d&p airbags"}, Y(:Head IC)),
 SendToByGroup({:"D/P"n == "Driver", :Protection == "manual belts"}, Y(:Head IC)),
 SendToByGroup({:"D/P"n == "Driver", :Protection == "Motorized belts"}, Y(:Head IC)),
 SendToByGroup({:"D/P"n == "Driver", :Protection == "passive belts"}, Y(:Head IC)),
 SendToByGroup({:"D/P"n == "Passenger", :Protection == "d airbag"}, Y(:Head IC)),
 SendToByGroup({:"D/P"n == "Passenger", :Protection == "d&p airbags"}, Y(:Head IC)),
 SendToByGroup({:"D/P"n == "Passenger", :Protection == "manual belts"}, Y(:Head IC)),
 SendToByGroup({:"D/P"n == "Passenger", :Protection == "Motorized belts"}, Y(:Head IC)),
 SendToByGroup({:"D/P"n == "Passenger", :Protection == "passive belts"}, Y(:Head IC)),
 X(:Make, :Model),
 Show Range Bars(0),
 Show Cell Means(0),
 Std Dev Chart(0),
 Points Jittered(1),
 By(:"D/P"n, :Protection)
);

dt_colors = New Table("colors", New Column("color", Numeric, Ordinal, Values(1::1000)), invisible);
Column(dt_colors, "color") << Set Property("Value Colors", "JMP Default");
colors = Column(dt_colors, "color") << Get Property("Value Colors");
Close(dt_colors, no save);

set_color_property = function({dt, col_name, black_val}, {uniq, color_idx, property_list},
 Summarize(dt, uniq = by(eval(col_name)));
 color_idx = 1;
 property_list = "";
 For Each({val}, uniq,
  If(val == black_val,
   colorval = "\!"" || val || "\!" = 0";
  ,
   colorval = "\!"" || val || "\!" = " || char(Arg(colors[color_idx], 2));
   color_idx++;
  );
  property_list = property_list || colorval || ", ";
 );

 property_list = "{" ||Regex(property_list, ", $", "", GLOBALREPLACE) ||"}";
 
 Eval(EvalExpr(Column(dt, col_name) << Set Property("Value Colors",
  Expr(Parse(property_list))
 )));
);

For Each({{key, val}}, cols_to_color,
 set_color_property(dt, key, val);
);


For Each({var, idx}, vars,
 rep = Report(var);
 framebox = rep[Frame Box(1)];
 
 cur_protection = Regex(rep << get title, ".*Protection=(.+)", "\1");
 
 framebox << Row Legend(
  Eval(aa_protection_legend[cur_protection]), 
  Color(1), 
  Color Theme(""),
  Marker(0), 
  Marker Theme(""), 
  Continuous Scale(0), 
  Reverse Scale(0), 
  Excluded Rows(0)
 );
);

 

Re: Cambiar un color de la leyenda que está establecida en JMP Default para múltiples gráficos en el gráfico de variabilidad

Hola Jthi,

 

Gracias por la respuesta y esa es una solución maravillosa que abrió muchas otras cosas en JSL que necesito aprender, así que agradezco la respuesta. Solo por curiosidad, creó una columna de colores del 1 al 1000 y parece que cada uno tiene un código hexadecimal ligeramente único, en el caso de que mis datos tengan, digamos, 5000 valores diferentes, ¿puedo cambiar el script a 5000 o es 1000 la longitud? de la matriz de colores y los colores se repetirán después?