Hallo, ich brauche hier Hilfe :'(
Ich möchte ein universelles Skript erstellen, das es mir ermöglicht, dasselbe Variablendiagramm mit unterschiedlicher Spaltenausgabe zu zeichnen.
Zum Beispiel:
Ich habe zwei Tische
Tabelle 1
| Verknüpfung | Gewalt | Temp | Druck | eben |
| 1 | 50 | 88 | 2 | - |
| 2 | 60 | 70 | 1 | - |
| 3 | 40 | 89 | 3 | - |
| 4 | 50 | 88 | 1 | - |
Tabelle 2
| Verknüpfung | Gewalt | Temp | Druck | Zeit | eben |
| 1 | 50 | 88 | 2 | 5 | 3 |
| 2 | 60 | 70 | 1 | 6 | 4 |
| 3 | 40 | 89 | 3 | 15 | 5 |
| 4 | 50 | 88 | 1 | 4 | 4 |
Mein Var-Diagramm wäre:
X (:Link)
Y (:Kraft, :Temp, :Druck, :Zeit, :Pegel)
Wie erstelle ich ein Skript, das weiterhin beide Variablendiagramme in beiden Tabellen darstellen kann, obwohl in Tabelle 1 eine Spalte fehlt?
Willkommen in der Community!
Angesichts dieser beiden Tabellen, die unterschiedliche Spalten haben
Das folgende Skript funktioniert für beide
Names Default To Here( 1 );
dt = Current Data Table();
// get the column names for the columns in the current data table
colNames = dt << get column names( string );
// Remove the column called Link from the list
Try( Remove From( colNames, Contains( colNames, "Link" ), 1 ) );
// Run the chart
Variability Chart( Y( Eval( colNames ) ), X( :Link ), Std Dev Chart( 0 ) );
Hier ist das Ergebnis des Skripts
So könnte es funktionieren:
Beide Tabellen virtuell verknüpfen (z. B. enthält Tabelle1 Verweise auf die Spalten von Tabelle2),
und das Diagramm erstellen.
Getestet mit JMP16 unter Win10.
Names Default To Here( 1 );
dt1 = New Table( "Table1",
Add Rows( 4 ),
Compress File When Saved( 1 ),
New Column( "Link", Numeric, "Continuous", Format( "Best", 12 ), Set Selected, Set Values( [1, 2, 3, 4] ) ),
New Column( "force", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [50, 60, 40, 50] ) ),
New Column( "temp", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [88, 70, 89, 88] ) ),
New Column( "pressure", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [2, 1, 3, 1] ) ),
New Column( "level", Character( 16 ), "Nominal", Set Values( {"-", "-", "-", "-"} ) )
);
dt2 = New Table( "Table2",
Add Rows( 4 ),
Compress File When Saved( 1 ),
New Column( "Link", Numeric, "Continuous", Format( "Best", 12 ), Set Selected, Set Values( [1, 2, 3, 4] ) ),
New Column( "force", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [50, 60, 40, 50] ) ),
New Column( "temp", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [88, 70, 89, 88] ) ),
New Column( "pressure", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [2, 1, 3, 1] ) ),
New Column( "time", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [5, 6, 15, 4] ) ),
New Column( "level", Numeric, "Continuous", Format( "Best", 12 ), Set Values( [3, 4, 5, 4] ) )
);
// to get link working, save is needed
dt1 << save( "$TEMP\" || (dt1 << get name()) || ".jmp" );
dt2 << save( "$TEMP\" || (dt2 << get name()) || ".jmp" );
dt2:LInk << set property( "Link ID", 1 );
dt1:Link << set Property( "Link Reference", {Reference Table( dt2 )} );
dt1 << Add Properties to Table(
{New Script(
"force & 4 more vs. Link",
Graph Builder(
Size( 514, 444 ),
Show Control Panel( 0 ),
Graph Spacing( 5 ),
Variables(
X( :Link ),
Y( :force ),
Y( :temp, Position( 1 ) ),
Y( :pressure, Position( 1 ) ),
Y( Referenced Column( "time[Link]", Reference( Column( :Link ), Reference( Column( :time ) ) ) ) ),
Y( Referenced Column( "level[Link]", Reference( Column( :Link ), Reference( Column( :level ) ) ) ), Position( 2 ) )
),
Elements( Position( 1, 1 ), Points( X, Y( 1 ), Y( 2 ), Y( 3 ), Legend( 65 ) ), Smoother( X, Y( 1 ), Y( 2 ), Y( 3 ), Legend( 66 ) ) ),
Elements( Position( 1, 2 ), Points( X, Y( 1 ), Y( 2 ), Legend( 67 ) ), Smoother( X, Y( 1 ), Y( 2 ), Legend( 68 ) ) )
)
)}
);
dt1 << run script( "force & 4 more vs. Link" );
