Names default to here(1);
dt = Open("$Sample_data/Nicardipine.jmp");
dtTab = (Data Table( "Nicardipine" ) << Tabulate(
Add Table(
Column Table( Category Table, Statistics( Name( "% of Total" ), N ) ),
Row Table(
Columns by Categories(
:Patient Died Flag,
:Anticonvulsants Flag,
:Antiemetics or Phenothiazines Flag,
:Antifibrinolytics Flag,
:Antihypertensives Flag,
:Blood Transfusion Flag,
:Central Venous Pressure Monitoring Flag,
:Induced Hypertension Flag,
:Intentional Hypervolemia Flag,
:Intentional Hemodilution Flag,
:Low Molecular Weight Dextran Flag,
:Mannitol Flag,
:Steroids Flag,
:Swan Ganz Monitoring Flag,
:Vasopressors Flag
)
)
)
)) << Make Into Data Table;
dtTab:"N(N)"n << Set Name("Applies");
dtTab:"N(Y)"n << Set Name("Does Not Apply");
dtTab << Graph Builder(
Size( 534, 464 ),
Show Control Panel( 0 ),
Variables(
X(
:Columns by Categories,
Order By( :Applies, Descending, Order Statistic( "Mean" ) )
),
Y( :Applies ),
Y( :Does Not Apply, Position( 1 ) )
),
Elements( Bar( X, Y( 1 ), Y( 2 ), Legend( 5 ), Bar Style( "Stacked" ) ) ),
SendToReport(
Dispatch(
{},
"400",
ScaleBox,
{Legend Model(
5,
Properties( 0, {Fill Color( 27 )}, Item ID( "Applies", 1 ) ),
Properties( 1, {Fill Color( 32 )}, Item ID( "Does Not Apply", 1 ) )
)}
),
Dispatch(
{},
"graph title",
TextEditBox,
{Set Text( "Patients with Conditions" )}
),
Dispatch( {}, "X title", TextEditBox, {Set Text( "Conditions" )} ),
Dispatch( {}, "Y title", TextEditBox, {Set Text( "Count" )} )
)
);