Couleurs des barres et des barres d'erreur pour le tracé forestier ?Je crée des parcelles forestières et j'ai proposé deux styles :
J'essaie de contrôler la couleur des barres, des points et des barres d'erreur via les couleurs des lignes :
Ma question est pourquoi les barres pleines et les barres d'erreur ne sont-elles pas dans la couleur souhaitée ?
dt = New Table( "Forest Plot", Add Rows( 5 ),
New Column( "EVENT_NAME", Character( 20 ), "Nominal",
Set Values( {"AAAAAAA", "BBBBBBB", "CCCCCCC", "DDDDDDD", "EEEEEEE"} ) ),
New Column( "DISPROP025", Numeric, "Continuous", Format( "Fixed Dec", 16, 2 ),
Set Values(
[5.3766744840813, 1.28687381477736, 5.96303490967794, 1.55531597890029, 2.34164191312678] ) ),
New Column( "DISPROP", Numeric, "Continuous", Format( "Fixed Dec", 16, 2 ),
Set Values(
[5.76756983251198, 1.49287821887835, 7.02941951612351, 3.83591362397761, 2.62194430908125] ) ),
New Column( "DISPROP975", Numeric, "Continuous", Format( "Fixed Dec", 16, 2 ),
Set Values(
[6.06935482201811, 1.66251397924122, 7.91895228410917, 6.92389142535734, 2.84619058478479] ) ),
New Column( "Alert", Character, "Nominal",
Formula( If( :DISPROP025 > 1 & :DISPROP > 2, "Y", "N" ) ) ),
Set Row States( [13568, 13056, 13568, 13568, 13568] )
);
// Bars + central point
dt << Graph Builder(
Show Control Panel( 0 ),
Variables(
X( :DISPROP025 ),
X( :DISPROP, Position( 1 ) ),
X( :DISPROP975, Position( 1 ) ),
Y( :EVENT_NAME )
),
Elements(
Bar( X( 1 ), X( 3 ), Y, Legend( 9 ), Bar Style( "Range" ) ),
Points( X( 2 ), Y, Legend( 10 ), Jitter( 0 ) )
),
SendToReport(
Dispatch( {}, "DISPROP025", ScaleBox,
{Min( 0 ), Add Ref Line( 1, "Dotted", "Dark Red", "", 2 ),
Label Row( Show Major Grid( 1 ) )}
),
Dispatch( {}, "EVENT_NAME", ScaleBox, {Label Row( Show Major Grid( 1 ) )} ),
Dispatch( {}, "X title", TextEditBox, {Set Text( "Disproportionality" )} ),
Dispatch( {}, "Y title", TextEditBox, {Set Text( "PT" )} )
)
);
// Error bars
dt << Graph Builder(
Show Control Panel( 0 ),
Variables(
X( :DISPROP025 ),
X( :DISPROP, Position( 1 ) ),
X( :DISPROP975, Position( 1 ) ),
Y( :EVENT_NAME )
),
Elements(
Bar( X( 1 ), X( 3 ), Y, Legend( 9 ), Bar Style( "Interval" ) ),
Points( X( 2 ), Y, Legend( 10 ), Jitter( 0 ) )
),
SendToReport(
Dispatch( {}, "DISPROP025", ScaleBox,
{Min( 0 ), Add Ref Line( 1, "Dotted", "Dark Red", "", 2 ),
Label Row( Show Major Grid( 1 ) )}
),
Dispatch( {}, "EVENT_NAME", ScaleBox, {Label Row( Show Major Grid( 1 ) )} ),
Dispatch( {}, "X title", TextEditBox, {Set Text( "Disproportionality" )} ),
Dispatch( {}, "Y title", TextEditBox, {Set Text( "PT" )} )
)
);Re : Couleurs des barres et des barres d'erreur pour le tracé forestier ?C'est une solution astucieuse qui est "suffisamment proche pour le travail du gouvernement".J'ai épaissi les lignes à une largeur de 2 et le léger décalage n'est pas perceptible.Merci Chris!
Re : Couleurs des barres et des barres d'erreur pour le tracé forestier ?Eh bien, bon sang.Une autre façon consiste à empiler les colonnes DISPROP en une seule et à rendre la colonne de valeur (appelée données dans le script ci-dessous) continue. Ensuite, utilisez ce script
Graph Builder(
Size( 992, 630 ),
Show Control Panel( 0 ),
Variables( X( :Data ), Y( :EVENT_NAME ), Overlay( :Alert ) ),
Elements(
Points(
X,
Y,
Legend( 5 ),
Jitter( 0 ),
Summary Statistic( "Median" ),
Error Bars( "Range" )
)
),
SendToReport(
Dispatch( {}, "Data", ScaleBox, {Label Row( Show Major Grid( 1 ) )} ),
Dispatch( {}, "EVENT_NAME", ScaleBox, {Label Row( Show Major Grid( 1 ) )} )
)
);
C'est proche, mais il y a encore quelque chose d'un peu décalé sur la ligne de grille et les points de données utilisant la superposition
Re : Couleurs des barres et des barres d'erreur pour le tracé forestier ?Toujours pas de joie.Il semble que lorsqu'il y a un mélange d'alertes Y et N, les barres d'erreur sont décalées par rapport aux lignes de grille.
Voici le code :
Graph Builder(
Size( 726, 451 ),
Show Control Panel( 0 ),
Show Legend( 0 ),
Variables(
X( :DISPROP025 ),
X( :DISPROP975, Position( 1 ) ),
X( :DISPROP, Position( 1 ) ),
Y( :EVENT_NAME ),
Overlay( :Alert )
),
Elements(
Bar( X( 1 ), X( 2 ), X( 3 ), Y, Legend( 8 ), Bar Style( "Interval" ) )
),
SendToReport(
Dispatch( {}, "DISPROP025", ScaleBox,
{Min( 0 ), Add Ref Line( 1, "Dotted", "Dark Red", "", 1 ),
Label Row( Show Major Grid( 1 ) )}
),
Dispatch( {}, "EVENT_NAME", ScaleBox, {Label Row( Show Major Grid( 1 ) )} ),
Dispatch( {}, "400", ScaleBox,
{Legend Model(
8,
Properties( 0, {Line Color( 51 ), Line Width( 2 )} ),
Properties( 1, {Line Color( 51 ), Marker( "FilledCircle" )} ),
Properties( 2, {Line Color( 53 ), Line Width( 2 )} ),
Properties( 3, {Line Color( 53 ), Marker( "FilledCircle" )} )
)}
)
)
);
Re : Couleurs des barres et des barres d'erreur pour le tracé forestier ?La clé de l'utilisation de la superposition est de ne pas ajouter l'élément de graphique Points. Cliquez sur l'icône Points en haut pour la désactiver. Puis barre d'options/divulgation en bas à gauche, cochez la variable DISPROP. Les points ne seront pas ajoutés en ligne avec la barre d'erreur.
Re : Couleurs des barres et des barres d'erreur pour le tracé forestier ?Un autre casse-tête - lorsque je fais glisser ma colonne d'alerte dans le rôle de superposition, je peux bien contrôler les couleurs.Cependant, les points sont sur les lignes horizontales mais les barres d'erreur ne le sont pas.Un moyen de corriger cela ?Si je fais glisser Alerte sur le rôle Couleur, il n'y a pas de "jitter", mais je ne peux pas définir la couleur des barres d'erreur.
Re : Couleurs des barres et des barres d'erreur pour le tracé forestier ?Merci Chris.J'ai fait une recherche sur Forest Plots et le très bon addin de Richard ne s'est pas présenté.J'aime aussi votre solution de codage.
Re : Couleurs des barres et des barres d'erreur pour le tracé forestier ?Attends, j'ai trouvé un moyen. Si vous ouvrez le panneau de configuration et accédez à la section indiquée par la barre en bas, il y aura une section varialbe. Ouvrez-le et vérifiez toutes les variables. un point apparaîtra là où vous le souhaitez. Supprimez l'élément points du graphique. Utilisez ensuite la variable d'alerte pour la superposition.
Donc, le script ressemblerait à quelque chose comme ça
Graph Builder(
Size( 606, 564 ),
Variables(
X( :DISPROP025 ),
X( :DISPROP, Position( 1 ) ),
X( :DISPROP975, Position( 1 ) ),
Y( :EVENT_NAME ),
Overlay( :Alert )
),
Elements(
Bar( X( 1 ), X( 3 ), X( 2 ), Y, Legend( 9 ), Bar Style( "Interval" ) )
),
SendToReport(
Dispatch(
{},
"DISPROP025",
ScaleBox,
{Add Ref Line( 1, "Dotted", "Dark Red", "", 2 ),
Label Row( Show Major Grid( 1 ) )}
),
Dispatch( {}, "EVENT_NAME", ScaleBox, {Label Row( Show Major Grid( 1 ) )} ),
Dispatch(
{},
"400",
ScaleBox,
{Legend Model(
9,
Properties( 0, {Line Color( 6 )} ),
Properties( 1, {Marker( "Dot" )} ),
Properties( 2, {Line Color( -5682409 )} ),
Properties( 3, {Marker( "Dot" )} )
)}
),
Dispatch( {}, "X title", TextEditBox, {Set Text( "Disproportionality" )} ),
Dispatch( {}, "Y title", TextEditBox, {Set Text( "PT" )} )
)
);Re : Couleurs des barres et des barres d'erreur pour le tracé forestier ?Vous devrez peut-être utiliser la variable Alert pour colorer. Cela fonctionne sur le graphique à barres mais pas sur le graphique à barres d'erreur. La couleur de la barre d'erreur est contrôlée par la couleur de la légende. Vous ne savez pas comment écrire différentes couleurs pour différentes barres d'erreur.Re : Couleurs des barres et des barres d'erreur pour le tracé forestier ?Salut,
Avez-vous jeté un œil au complément de Richard Zink sur les parcelles forestières ?
https://community.jmp.com/t5/JMP-Add-Ins/Forest-Plot-Add-In/ta-p/23977
Étant donné que le complément est essentiellement un fichier zip, vous pouvez renommer l'extension de fichier en .zip et le décompresser. Là, vous pouvez voir son JSL et peut-être en utiliser une partie.
Chris
