3887_fr-FR

liliconcom

JMP OLE: Comment ajouter une légende à un bivariant<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />

Je n'arrive pas à comprendre comment afficher une légende dans mon graphique bivariant via OLE. Il y a très peu de documentation dans JSL OLE (je suis le seul à le faire?). Quelqu'un peut me diriger dans la bonne direction? Dans son état actuel, il affichera le graphique et le code de couleur par colonne. Tout ce que j'ai à faire, c'est d'afficher la légende.

Voici mon code (VBscript):

'Initialiser JMP
Dim MyJMP, JMPDoc, DT, DT2, WidthTable, FrameBox
Définir MyJMP = CreateObject ("JMP.Application")
MyJMP.Visible = true
Définir JMPDoc = MyJMP.OpenDocument ("MyFile.csv")

'Convertir le document en datatable
Définir DT = JMPDoc.GetDataTable

'Sélectionnez les données de largeur (Haut et Bas)
DT.SelectRowsWhere "CHART_SUBSET", rowSelectEquals, rowSelectExtendCurrent, "TARGET = HIGH"
DT.SelectRowsWhere "CHART_SUBSET", rowSelectEquals, rowSelectExtendCurrent, "TARGET = LOW"

Définir WidthTable = DT.subset
WidthTable.ColorByColumn ("SPC_ENTITY")
WidthTable.MarkerByColumn ("SPC_ENTITY")

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

'Créer un graphique bivariant

'**************************
Dim Biv
Définir 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, "Légende de ligne (: SPC_ENTITY)"
Biv.FrameBoxSetMarkerSize 1, 4

JMP OLE: Comment ajouter une légende à un bivariant

Bonjour Maltman:

La fonction polyvalente RunCommand () vous permettra de faire facilement tout ce que vous aimez, de manière interactive, directement dans JMP, ... et ensuite, si vous capturez le script, il est facile de le soumettre du côté de l’automatisation, de VBA ou de Perl, de Python ou de R, etc.

Meilleur,

-Mat

Public Sub test ()

'Initialiser JMP

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

Définir MyJMP = CreateObject ("JMP.Application")

MyJMP.Visible = True

Définissez JMPDoc = MyJMP.OpenDocument ("C: / temp / Big Class.jmp")

'Convertir le document en datatable

Définir DT = JMPDoc.GetDataTable ()

'Sélectionnez les données de largeur (Haut et Bas)

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

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

Définir WidthTable = DT.Subset ()

WidthTable.ColorByColumn ("nom")

WidthTable.MarkerByColumn ("sex")

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

'Créer un graphique bivarié

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

Dim str As String

str = "Bivarié (" _

    & "Y (: weight)," _

    & "X (: height)", _

    & "Ajuster la ligne ({Line Color ({213, 72, 87})})", "_

    & "SendToReport (" _

    & " Envoi( " _

    & "{}", _

    & "" "Parcelle Bivar" "," _

    & "FrameBox", _

    & "{Taille du marqueur (4), Légende de la ligne (" _

    & "nom, Couleur (1), Thème de couleur (" "JMP par défaut" ")," _

    & "Marqueur (0)," _

    & "Thème de marqueur (" "" ")," _

    & "Echelle continue (0)," _

    & "Echelle inversée (0)," _

    & "Lignes exclues (0)" _

    & ")}" _

    & ")" _

    & ")" _

    & ");"

Debug.Print (str)

  

MyJMP.RunCommand (str)

End Sub

JMP OLE: Comment ajouter une légende à un bivariant

Vous recherchez toujours de l'aide si quelqu'un peut vous en dire plus. 

J'ai essayé quelque chose comme ça mais ça n'a pas marché:

Biv.LaunchAddJSL "Légende de ligne (: SPC_ENTITY, color (1), Marker (1));"

Merci