3887_de-DE

liliconcom

JMP OLE: Hinzufügen einer Legende zu einem Bivarianten<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Ich kann nicht herausfinden, wie eine Legende in meinem bivarianten Diagramm über OLE angezeigt wird. Es gibt sehr wenig Dokumentation in JSL OLE (ich bin der einzige, der das tut?). Kann mir jemand die richtige Richtung zeigen? Im aktuellen Zustand werden der Graph und der Farbcode nach Spalte angezeigt. Ich muss nur die Legende anzeigen.

Hier ist mein Code (VBscript):

'JMP initialisieren
Dim MyJMP, JMPDoc, DT, DT2, WidthTable, FrameBox
Setze MyJMP = CreateObject ("JMP.Application")
MyJMP.Visible = true
Setze JMPDoc = MyJMP.OpenDocument ("MyFile.csv")

'Dokument in datierbare konvertieren
Set DT = JMPDoc.GetDataTable

'Wählen Sie die Breitendaten aus (Hoch und Niedrig)
DT.SelectRowsWhere "CHART_SUBSET", rowSelectEquals, rowSelectExtendCurrent, "TARGET = HIGH"
DT.SelectRowsWhere "CHART_SUBSET", rowSelectEquals, rowSelectExtendCurrent, "TARGET = LOW"

Set WidthTable = DT.subset
WidthTable.ColorByColumn ("SPC_ENTITY")
WidthTable.MarkerByColumn ("SPC_ENTITY")

'*************************

'Erstellen Sie ein bivariantes Diagramm

'*************************
Dim Biv
Set Biv = WidthTable.Document.CreateBivariate
Biv.LaunchAddY ("SPC_CHART_VALUE")
Biv.LaunchAddX ("SPC_TXN_DATE")
Biv.LaunchAddBy ("SPC_CHART_SUBSET")

Biv.FitLine
Biv.Launch

FrameBox = Biv.GetGraphicItemByType ("Frame Box", 1)

Biv.FrameBoxAddGraphicsScript 1, "Zeilenlegende (: SPC_ENTITY)"
Biv.FrameBoxSetMarkerSize 1, 4

JMP OLE: Hinzufügen einer Legende zu einem Bivarianten

Hallo Maltman:

Mit der allpurpose RunCommand () - Funktion können Sie ganz einfach interaktiv direkt in JMP alles tun, ... Wenn Sie dann das Skript erfassen, können Sie es einfach von der Automatisierungsseite, von VBA oder Perl, von Python oder R usw. einreichen.

Beste,

-Matt

Öffentlicher Untertest ()

'JMP initialisieren

Dim MyJMP, JMPDoc, DT, DT2, WidthTable, FrameBox

Setze MyJMP = CreateObject ("JMP.Application")

MyJMP.Visible = True

Setze JMPDoc = MyJMP.OpenDocument ("C: / temp / Big Class.jmp")

'Dokument in datierbare konvertieren

Set DT = JMPDoc.GetDataTable ()

'Wählen Sie die Breitendaten aus (Hoch und Niedrig)

DT.SelectRowsWhere "age", rowSelectEquals, rowSelectExtendCurrent, "12"

DT.SelectRowsWhere "age", rowSelectEquals, rowSelectExtendCurrent, "13"

Set WidthTable = DT.Subset ()

WidthTable.ColorByColumn ("Name")

WidthTable.MarkerByColumn ("sex")

'*************************

Bivariate Chart erstellen

'*************************

Dim str As String

str = "Bivariate (" _

    & "Y (: Gewicht)" _

    & "X (: height)", _

    & "Linie anpassen ({Linienfarbe ({213, 72, 87})})," _

    & "SendToReport (" _

    & "Versand (" _

    & "{}," _

    & "" "Bivar-Plot" "," _

    & "FrameBox" _

    & "{Markergröße (4), Zeilenlegende (" _

    & "Name, Farbe (1), Farbdesign (" "JMP-Standard" ")," _

    & "Markierung (0)," _

    & "Marker Theme (" "" ")," _

    & "Continuous Scale (0)," _

    & "Umkehrmaßstab (0)," _

    & "Ausgeschlossene Zeilen (0)" _

    & ")}" _

    & ")" _

    & ")" _

    & ");"

Debug.Print (str)

  

MyJMP.RunCommand (str)

End Sub

JMP OLE: Hinzufügen einer Legende zu einem Bivarianten

Suchen Sie immer noch nach Hilfe, wenn jemand Einblicke bieten kann. 

Ich habe so etwas probiert, aber es hat nicht funktioniert:

Biv.LaunchAddJSL "Zeilenlegende (: SPC_ENTITY, color (1), Marker (1));"

Vielen Dank