Hallo,
Ich habe Zeitreihendaten, bei denen Zeitblöcke in verschiedene „Zyklen“ aufgeteilt sind, und ich versuche, eine Möglichkeit zu finden, Referenzlinien zu erstellen, die den Beginn jedes Zyklus markieren. Ich möchte, dass diese Referenzlinien aktualisiert werden, wenn ich den lokalen Datenfilter über Versuche hinweg ändere (weil die Zyklen für die verschiedenen Versuche zu unterschiedlichen Zeiten beginnen).
Zuerst habe ich einen lokalen Datenfilter verwendet und Änderungen im lokalen Datenfilter mithilfe von Make Row State Handler erkannt . Ich konnte jedoch nicht herausfinden, wie ich die erforderlichen Informationen aus dem lokalen Datenfilter abrufen konnte (d. h. welcher Versuch gefiltert wurde – obwohl ich mit der Get Where-Klausel im lokalen Datenfilter vielleicht nahe herangekommen wäre) und konnte daher nicht herausfinden, welcher Versuch gefiltert wurde, und mir dadurch vorgeben lassen, welche Zykluszeiten zum Erstellen der Referenzlinien verwendet werden sollten. (Wenn Sie jedoch der Meinung sind, dass dies ein besserer Ansatz ist, lassen Sie es mich wissen.)
Anstatt den Benutzer also mit dem lokalen Datenfilter interagieren zu lassen und zu versuchen, den Filter zu lesen, um die gefilterten Versuche abzurufen, beschloss ich, dem Benutzer eine Liste der Versuche bereitzustellen und dann einen Filter basierend auf dem vom Benutzer ausgewählten Versuch hinzuzufügen und gleichzeitig die Auswahl zu verwenden, um festzulegen, welche Zykluszeiten zum Erstellen der Referenzlinien verwendet werden sollen.
Ich kann jedoch keine Referenzzeilen hinzufügen, die sich ändern , wenn der Benutzer eine andere Versuchsnummer auswählt.
Meinen Code finden Sie unten.
//Reference Lines that Update With Change in Local Data Filter
// Example Data
dt = New Table( "Example",
Add Rows( 3 ),
New Column( "Trial",
character,
"Ordinal",
Set Values( {"A","A","A","A","A","A","A","A","A","A","A","A","A","A","B","B","B","B","B","B","B","B","B","B","B","B","B","B"} )
),
New Column( "Cycle",
Character,
"Ordinal",
Set Values( {"Rinse","Rinse","Rinse","Wash","Wash","Wash","Wash","FinalRinse","FinalRinse","FinalRinse","FinalRinse","Dry","Dry","Dry","Rinse","Rinse","Rinse","Wash","Wash","Wash","Wash","FinalRinse","FinalRinse","FinalRinse","FinalRinse","Dry","Dry","Dry
"} )
),
New Column( "%Clean",
Numeric,
"Continuous",
Set Values( {10,20,25,50,60,70,80,85,90,95,99,99,99,99,10,25,30,60,75,85,90,95,99,99.9,99.99,99.99,99.99,99.99} )
),
New Column( "Time",
Numeric,
"Continuous",
Set Values( {1,2,3,4,5,6,7,8,9,10,11,12,13,14,2,4,6,8,10,12,14,16,18,20,22,24,26,28} )
),
);
dt = current data table();
//Function to pull cycle start times (where reference lines will be drawn)
genRefLineValue = function({trialNum = "A", cycleNum = "Rinse"},{myrows,myvalues,min_value},
myrows = dt << get rows where(and(:Trial == trialNum,:Cycle == cycleNum));
myvalues = :Time[myrows];
min_value = min(myvalues);
Return(min_value);
);
//Function to pull unique cycles (I want the start time for EACH of the cycles)
findUniqueCycles = function({trialNum},{myrows,cycles,uniqueCycles},
myrows = dt << get rows where(:Trial == trialNum);
cycles = :Cycle[myrows];
uniqueCycles = associative array(cycles) << get keys;
return(uniqueCycles);
);
//Get unique trials (A, B, etc.)
summarize(unique_values=by(:Trial));
//Create window with radio buttons and graph
New Window( "Example",
HListBox(
PanelBox("Trial", //Adding radio buttons
rb = radio box(
unique_values, <<SET></SET>
At the bottom is where I add the reference lines. If you run the script and select between Trial A and B, you can see that while the filter's working and the data changes accordingly, the reference lines don't change (it might look like they change, but if you observe the actual values, they aren't changing). I've tried using <EM>meineAuswahl</EM> in place of "A" so that the arguments in the loop that is creating the reference lines should update when the user selects Trial B:
<CODE class=" language-jsl">For(i=1,i<= (n items (findUniqueCycles(myChoice))),i++,
cycleName = findUniqueCycles(myChoice)[i];
cycleStart = genRefLineValue(myChoice,findUniqueCycles(myChoice)[i]);
report(biv)[axisbox(2)] << add ref line(cycleStart,"solid",,cycleName ||"(t="||char(cycleStart)||" min)",1.5);
);
But JMP complains by saying:
Name Unresolved: myChoice{3} in access or evaluation of 'myChoice' , myChoice/*###*/How do I make reference lines that update when the user changes their selection among trials?
Thanks in advance!
Ich glaube, du hast es fast geschafft.
Versuchen Sie, den späteren Teil Ihrer Codes durch diesen zu ersetzen
rb << Set Function(
Function( {this},{myChoice},
myChoice = Char( this << get selected );
(this << sib) << Set Text( myChoice );
//print(myChoice);
biv << remove local data filter;
biv << Local Data Filter(invisible, //updating (by removing then re-adding) the local data filter according to user's selection
Add Filter(
columns( :Trial ),
Where( :Trial == myChoice ),
));
if (myChoice == "A",
For(i=1,i<= (n items (findUniqueCycles("B"))),i++,
cycleStart = genRefLineValue("B",findUniqueCycles("B")[i]);
report(biv)[axisbox(2)] << remove ref line(cycleStart);
)
);
if (myChoice == "B",
For(i=1,i<= (n items (findUniqueCycles("A"))),i++,
cycleStart = genRefLineValue("A",findUniqueCycles("A")[i]);
report(biv)[axisbox(2)] << remove ref line(cycleStart);
)
);
For(i=1,i<= (n items (findUniqueCycles(myChoice))),i++,
cycleName = findUniqueCycles(myChoice)[i];
cycleStart = genRefLineValue(myChoice,findUniqueCycles(myChoice)[i]);
report(biv)[axisbox(2)] << add ref line(cycleStart,"solid",,cycleName ||"(t="||char(cycleStart)||" min)",1.5);
);
)
);
report(biv)[framebox(1)] << Frame Size( 1000, 400 );
//you need this to initialize somehow
For(i=1,i<= (n items (findUniqueCycles("A"))),i++,
cycleName = findUniqueCycles("A")[i];
cycleStart = genRefLineValue("A",findUniqueCycles("A")[i]);
report(biv)[axisbox(2)] << add ref line(cycleStart,"solid",,cycleName ||"(t="||char(cycleStart)||" min)",1.5);
);
Darüber hinaus bedeutet der Fehler, dass myChoice nicht gefunden werden kann oder nicht definiert ist, da Sie es außerhalb des verfügbaren Bereichs verwendet haben, der sich innerhalb eines Rückrufs befindet.
