Merge pull request #55 from SASPAC/dev

The BasePlus package [ver. 3.1.3]

README.md

@@ -51,10 +51,14 @@ libname NEW "%workPath()/new";
 %put %date(yymmddn10.) %time(time5.) %datetime(e8601dt.);
 
 %put %monthShift(2023,1,-5);
+
+%put #%expandDataSetsList(lib=sashelp,datasets=_all_)#;
+
+%workLib(ABC)
 ```
 and more.
 
-SHA256 digest for the latest version of `BasePlus`: F*BD0333B92D7CB639A136CD4994DE0C63F8396E449E45BC714D71D2E15318F42D
+SHA256 digest for the latest version of `BasePlus`: F*B762F900EEFF7035880891D89416C0F973E4D377BCB75486283363A9BDADBA82
 
 [**Documentation for BasePlus**](./baseplus.md "Documentation for BasePlus")
 

extras/Paper_164-WUSS2024.sas

@@ -0,0 +1,698 @@
+/* WUSS 2024 Paper 164 */
+/* "Here Comes the Rain (Cloud Plot) Again" */
+/* by Bartosz Jablonski */
+
+/* Rain Cloud Plots - PART 1 - Article Plots */
+
+/* SETUP *//*
+----------------------------------------------------------------------
+Only the first time:
+^^^^^^^^^^^^^^^^^^^^
+
+  filename packages "/path/to/my/packages";
+
+  filename SPFinit url "https://bit.ly/SPFinit";                 *(1);
+  %include SPFinit;
+
+  %installPackage(SPFinit BasePlus)                              *(2);
+
+
+
+----------------------------------------------------------------------
+On start of fresh SAS session:
+^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
+
+  filename packages "/path/to/my/packages";
+  %include packages(SPFinit.sas);
+
+  %loadPackageS(BasePlus)                                        *(3);
+
+
+
+----------------------------------------------------------------------*/
+ 
+/*footnotes**********************************************************
+*(1); Bitly points to:
+  https://github.com/yabwon/SAS_PACKAGES/blob/main/SPF/SPFinit.sas
+
+*(2); BasePlus is loaded for the %RainCloudPlot() macro.
+
+*(3); RainCloudPlot can be just "cherry picked" from BasePlus:
+  %loadPackage(BasePlus, cherryPick=RainCloudPlot)
+*********************************************************************/
+
+
+/* basePlus, version 1.41.0 or later is required */
+/* Help notes in log */
+%helpPackage(basePlus, RainCloudPlot)
+
+
+%let path=/path/for/plots/; /* adjust for your session */
+
+resetline;
+data have;
+  call streaminit(42);
+  do i = 1 to 3;
+    groupingVar = byte(64+i);
+    do j = 1 to rand("integer",17,42);
+      select(i);
+        when(1) analysisVar = rand("uniform", 1, 7);
+        when(2) analysisVar = rand("normal", -3, 2);
+        when(3) analysisVar = rand("exponential", 2);
+        otherwise;
+      end;
+      output;
+    end;
+  end;
+  drop i j;
+run;
+proc print;
+run;
+
+/* utility macros */
+%macro beforePlot(N,orientation=landscape,papersize=A4);
+ods printer close; ods pdf close;
+options orientation=&orientation. nodate nonumber papersize=&papersize. center;
+options topmargin=0cm leftmargin=0cm rightmargin=0cm bottommargin=0cm;
+ods pdf file="&path.//WUSS2024paper164plot&n..pdf" contents=no notoc dpi=600;
+ods printer file="&path.//WUSS2024paper164plot&n..svg" printer=svg dpi=600;
+%mend beforePlot;
+
+%macro afterPlot();
+ods printer close;
+ods pdf close;
+%mend afterPlot;
+
+
+/* 1 */
+%beforePlot(1);
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+)
+%afterPlot()
+
+
+/* 2 */
+%beforePlot(2)
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+, TITLE = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";
+                )
+, FOOTNOTE = 
+    %str(footnote1 J=R H=1 C=Gray 
+        "Data set HAVE, with 87 observations, two variables.";)
+)
+%afterPlot()
+
+
+/* 3 */
+%beforePlot(3)
+data colors;
+input color :$20. @@;
+retain y -0.5;
+value=1;
+x=1;
+y+1;
+cards;
+BlueViolet RoyalBlue OliveDrab 
+Gold HotPink Crimson
+MediumPurple CornflowerBlue YellowGreen 
+Goldenrod Orchid IndianRed
+;
+run;
+proc sgplot data=colors noborder noautolegend nowall subpixel;
+  styleattrs
+    DATACOLORS = (
+      BlueViolet RoyalBlue OliveDrab 
+      Gold HotPink Crimson
+      MediumPurple CornflowerBlue YellowGreen 
+      Goldenrod Orchid IndianRed
+    )
+  ;
+  vbarparm response=value category=value/
+    group=color
+    grouporder=data
+    nooutline
+    groupdisplay=stack
+    clusterwidth=1
+    baselineattrs=(thickness=0)
+  ;
+  text X=x Y=y TEXT=color / 
+    backlight=.5
+    position=right
+    discreteoffset=-0.42
+    textattrs=(family="Courier New" size=14 weight=bold)
+  ; 
+
+  xaxis display=none offsetmax=0 offsetmin=0;
+  yaxis display=none;
+run;
+%afterPlot()
+
+
+/* 4 */
+%beforePlot(4)
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";
+                )
+, footnote = 
+    %str(footnote1 J=R H=1 C=Gray 
+        "Data set HAVE, with 87 observations, two variables.";)
+, MONOCHROME=1
+)
+%afterPlot()
+
+
+/* 5 */
+%beforePlot(5)
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE, with 87 observations, two variables.";)
+, COLORSLIST = CornflowerBlue OliveDrab IndianRed
+)
+%afterPlot()
+
+
+/* 6 */
+%beforePlot(6)
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE, with 87 observations, two variables.";)
+, colorslist = CornflowerBlue OliveDrab IndianRed
+, RAINDROPSIZE = 8px
+, KERNEL_K = quadratic
+, KERNEL_C = 0.99
+, VSCALE = Percent
+, VSCALEmax = 60
+)
+%afterPlot()
+
+
+/* 7 */
+%beforePlot(7)
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud (without BOX) Plot";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE, with 87 observations, two variables.";)
+, colorslist = CornflowerBlue OliveDrab IndianRed
+, raindropsize = 8px
+, kernel_k = quadratic
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 60
+, BOXPLOT=0
+)
+%afterPlot()
+
+
+
+/* 8 */
+%beforePlot(8)
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE, with 87 observations, two variables.";)
+, colorslist = CornflowerBlue OliveDrab IndianRed
+, raindropsize = 8px
+, kernel_k = quadratic
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 60
+, BOXPLOT=1
+, BOXPLOTFILL = 0.5
+, BOXPLOTLINESIZE = 2px
+, BOXPLOTSYMBOLSIZE = 12px 8px
+)
+%afterPlot()
+
+
+
+
+
+
+
+
+resetline;
+proc format;
+value $ FormatForGroup
+  "A" = 'Uniform[1, 7]'
+  "B" = 'Normal(-4, 2)'
+  "C" = 'Exponential(2)'
+  other = "Unknown!"
+  ;
+
+picture myPercent
+  0-100 = "099.9%"
+  other = "Wrong value"
+  ;
+run;
+
+proc datasets lib=work nolist;
+  modify have;
+    format groupingVar $FormatForGroup.;
+  run;
+quit;
+
+
+
+/* 9 */
+%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
+%let valuesStyle = size=8 family="Courier New" style=italic;
+
+%beforePlot(9)
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE, with 87 observations, two variables.";)
+, colorslist = CornflowerBlue OliveDrab IndianRed
+, raindropsize = 8px
+, kernel_k = quadratic
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 60
+, boxplot=1
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+
+, XLABELS = ("Analyzed variable")
+, XLABELPOS = CENTER
+, XLABELATTRS = &labelStyle.
+, XAXISVALUEATTRS = &valuesStyle.
+, XAXISTICKSTYLE = ACROSS
+, XBOTHAXIS = 0
+
+, XAXISVALUES=(-10 to 10 by 2)
+, XAXISVALUESFORMAT=F5.2 /* instead w.d format use Fw.d !! */
+, XAXISOTHER=grid gridattrs=(thickness=0)
+             minor minorgrid minorgridattrs=(color=cxefefef pattern=dot) 
+
+, CATLABELS = ("Grouping variable with formated values")
+, CATLABELPOS = TOP
+, CATLABELATTRS = &labelStyle.
+, CATAXISVALUEATTRS = &valuesStyle.
+, FORMATED = 1
+
+, Y2AXIS = 1
+, Y2AXISLEVELS = 5
+, Y2AXISVALUEATTRS = &valuesStyle.
+, Y2AXISFORMAT = myPercent.
+, Y2AXISLINES = 1
+)
+%afterPlot()
+
+
+
+
+/* 10 */
+%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
+%let valuesStyle = size=8 family="Courier New" style=italic;
+
+%beforePlot(10)
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE, with 87 observations, two variables.";)
+, colorslist = CornflowerBlue OliveDrab IndianRed
+, raindropsize = 8px
+, kernel_k = quadratic
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 60
+, boxplot=1
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+, xlabels = ("Analyzed variable")
+, xlabelpos = CENTER
+, xlabelattrs = &labelStyle.
+, xaxisvalueattrs = &valuesStyle.
+, xaxistickstyle = ACROSS
+, xbothaxis = 0
+, xaxisValues=(-8 to 8 by 2)
+, xaxisValuesFormat=F5.2
+, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
+, catlabels = ("Grouping variable with formated values")
+, catlabelpos = TOP
+, catlabelattrs = &labelStyle.
+, cataxisvalueattrs = &valuesStyle.
+, formated = 1
+, y2axis = 1
+, y2axislevels = 5
+, y2axisvalueattrs = &valuesStyle.
+, y2axisformat = myPercent.
+, y2axislines = 1
+
+, WIDTHPX = 1200
+, HEIGHTPX = 300
+
+, MINRANGE = -8
+, MAXRANGE =  8
+)
+%afterPlot()
+
+
+/* 11 */
+%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
+%let valuesStyle = size=8 family="Courier New" style=italic;
+
+%beforePlot(11)
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE, with 87 observations, two variables.";)
+, colorslist = CornflowerBlue OliveDrab IndianRed
+, raindropsize = 8px
+, kernel_k = quadratic
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 60
+, boxplot=1
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+, xlabels = ("Analyzed variable")
+, xlabelpos = CENTER
+, xlabelattrs = &labelStyle.
+, xaxisvalueattrs = &valuesStyle.
+, xaxistickstyle = ACROSS
+, xbothaxis = 0
+, xaxisValues=(-8 to 8 by 2)
+, xaxisValuesFormat=F5.2
+, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
+, catlabels = ("Grouping variable with formated values")
+, catlabelpos = TOP
+, catlabelattrs = &labelStyle.
+, cataxisvalueattrs = &valuesStyle.
+, formated = 1
+, y2axis = 1
+, y2axislevels = 5
+, y2axisvalueattrs = &valuesStyle.
+, y2axisformat = myPercent.
+, y2axislines = 1
+, widthpx = 1200
+, heightpx = 300
+, minrange = -8
+, maxrange =  8
+
+, ODSGRAPHICSOPTIONS = NOBORDER
+, SGPLOTOPTIONS = NOAUTOLEGEND NOBORDER NOWALL PAD=0
+
+)
+%afterPlot()
+
+
+
+/* 12 */
+%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
+%let valuesStyle = size=8 family="Courier New" style=italic;
+
+data WORK.IN_PROGRESS; 
+  function="TEXT";      transparency=0.5; 
+  textcolor="GOLD";     textweight="BOLD";
+  widthunit="PERCENT";  drawspace="GRAPHPERCENT";
+  width=500;
+
+
+  label="*) will be ready for WUSS 2024";
+  textsize=24; anchor="LEFT  ";
+  x1=2; y1=3; rotate=0;
+  output;
+
+  label="Draft(*ESC*){sup '*'}";
+  textsize=128; anchor="CENTER";
+  x1=50; y1=50; rotate=30;
+  output;
+run; 
+
+
+%beforePlot(12)
+%rainCloudPlot(
+  have
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE, with 87 observations, two variables.";)
+, colorslist = CornflowerBlue OliveDrab IndianRed
+, raindropsize = 8px
+, kernel_k = quadratic
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 60
+, boxplot=1
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+, xlabels = ("Analyzed variable")
+, xlabelpos = CENTER
+, xlabelattrs = &labelStyle.
+, xaxisvalueattrs = &valuesStyle.
+, xaxistickstyle = ACROSS
+, xbothaxis = 0
+, xaxisValues=(-8 to 8 by 2)
+, xaxisValuesFormat=F5.2
+, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
+, catlabels = ("Grouping variable with formated values")
+, catlabelpos = TOP
+, catlabelattrs = &labelStyle.
+, cataxisvalueattrs = &valuesStyle.
+, formated = 1
+, y2axis = 1
+, y2axislevels = 5
+, y2axisvalueattrs = &valuesStyle.
+, y2axisformat = myPercent.
+, y2axislines = 1
+, widthpx = 1200
+, heightpx = 300
+, minrange = -8
+, maxrange =  8
+, odsgraphicsoptions = noborder
+, sgplotoptions = noautolegend noborder nowall pad=0
+
+, SGANNO = WORK.IN_PROGRESS
+)
+%afterPlot()
+
+
+
+
+/* 13 */
+%beforePlot(13)
+%rainCloudPlot(
+  have2
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot - vertical";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE2, with 87 observations, two variables.";)
+, colorslist = CornflowerBlue OliveDrab IndianRed
+, raindropsize = 8px
+, kernel_k = quadratic
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 60
+, boxplot=1
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+, xlabels = ("Analyzed variable")
+, xlabelpos = CENTER
+, xlabelattrs = &labelStyle.
+, xaxisvalueattrs = &valuesStyle.
+, xaxistickstyle = ACROSS
+, xbothaxis = 0
+, xaxisValues=(-8 to 8 by 2)
+, xaxisValuesFormat=F5.2
+, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
+, catlabels = ("Grouping variable (formatted)")
+, catlabelpos = CENTER
+, catlabelattrs = &labelStyle.
+, cataxisvalueattrs = &valuesStyle.
+, formated = 1
+, y2axis = 1
+, y2axislevels = 5
+, y2axisvalueattrs = &valuesStyle.
+, y2axisformat = myPercent.
+, y2axislines = 1
+, widthpx = 1200
+, heightpx = 300
+, minrange = .
+, maxrange = .
+, odsgraphicsoptions = noborder
+, sgplotoptions = noautolegend noborder nowall pad=0
+, sganno = work.in_progress
+
+, MEANSHIFTLINE=1
+, MEANSHIFTSTEP=0.1
+, MEANSHIFTCOLORS=Blue Green Red
+
+)
+%afterPlot()
+
+
+
+
+
+resetline;
+/* 14 */
+data have2;
+  set have;
+  groupingVar2 = ifc(0=mod(_N_,2),"Even","Odd");
+  analysisVar2 = rannor(42);
+run;
+
+
+%beforePlot(14)
+%rainCloudPlot(
+  have2
+, groupingVar groupingVar2
+, analysisVar analysisVar2
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot &gi. &xj.";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE2, with 87 observations, four variables.";)
+, colorslist = CornflowerBlue OliveDrab IndianRed
+, raindropsize = 8px
+, kernel_k = quadratic
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 60
+, boxplot=1
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+, xlabels = ("First analyzed variable", "Second analyzed variable")
+, xlabelpos = CENTER
+, xlabelattrs = &labelStyle.
+, xaxisvalueattrs = &valuesStyle.
+, xaxistickstyle = ACROSS
+, xbothaxis = 0
+/*, xaxisValues=(-8 to 8 by 2)*/
+, xaxisValuesFormat=F5.2
+, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
+, catlabels = ("Grouping variable one", "Grouping variable two")
+, catlabelpos = TOP
+, catlabelattrs = &labelStyle.
+, cataxisvalueattrs = &valuesStyle.
+, formated = 1
+, y2axis = 1
+, y2axislevels = 5
+, y2axisvalueattrs = &valuesStyle.
+, y2axisformat = myPercent.
+, y2axislines = 1
+, widthpx = 1200
+, heightpx = 300
+, minrange = .
+, maxrange = .
+, odsgraphicsoptions = noborder
+, sgplotoptions = noautolegend noborder nowall pad=0
+, sganno = work.in_progress
+, meanShiftLine =1
+)
+%afterPlot()
+
+
+/* 15 */
+%beforePlot(15,orientation=PORTRAIT)
+%rainCloudPlot(
+  have2
+, groupingVar
+, analysisVar
+, title = %nrstr(title1 J=C HEIGHT=2 "The Rain Cloud Plot - vertical";
+                 title2 J=C HEIGHT=1 "Plotting for groups: &list_g.";)
+, footnote = %str(footnote1 J=R H=1 C=Gray 
+                 "Data set HAVE2, with 87 observations, two variables.";)
+, colorslist = CornflowerBlue OliveDrab IndianRed
+, raindropsize = 8px
+, kernel_k = quadratic
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 60
+, boxplot=1
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+, xlabels = ("Analyzed variable")
+, xlabelpos = CENTER
+, xlabelattrs = &labelStyle.
+, xaxisvalueattrs = &valuesStyle.
+, xaxistickstyle = ACROSS
+, xbothaxis = 0
+, xaxisValues=(-8 to 8 by 2)
+, xaxisValuesFormat=F5.2
+, xaxisOther=GRID MINOR MINORGRID MINORGRIDATTRS=(color=CXeFeFeF pattern=dot) GRIDATTRS=(thickness=0)
+, catlabels = ("Grouping variable (formatted)")
+, catlabelpos = CENTER
+, catlabelattrs = &labelStyle.
+, cataxisvalueattrs = &valuesStyle.
+, formated = 1
+, y2axis = 1
+, y2axislevels = 5
+, y2axisvalueattrs = &valuesStyle.
+, y2axisformat = myPercent.
+, y2axislines = 1
+, widthpx = 1200
+, heightpx = 300
+, minrange = .
+, maxrange = .
+, odsgraphicsoptions = noborder
+, sgplotoptions = noautolegend noborder nowall pad=0
+, sganno = work.in_progress
+, meanShiftLine=1
+, meanShiftStep=0.05
+
+, VERTICAL = 1
+)
+%afterPlot()
+
+
+
+
+
+
+/*
+%helpPackage(basePlus, RainCloudPlot)
+*/
+

extras/Paper_164-WUSS2024_slides.sas

@@ -0,0 +1,299 @@
+/* WUSS 2024 Paper 164 */
+/* "Here Comes the Rain (Cloud Plot) Again" */
+/* by Bartosz Jablonski */
+
+/* Rain Cloud Plots - PART 2 - Presentation Plots */
+
+/*
+   See:
+  
+   Rain Cloud Plots - PART 1 - Article Plots (file: Paper_164-WUSS2024.sas)
+
+   for details about the setup. 
+*/
+
+
+
+data have;
+  call streaminit(64);
+  vertical = 42;
+  do j = 1 to 42;
+    horizontal = rand("uniform", 24, 42);
+    output;
+  end;
+  drop i j;
+run;
+data have;
+  set have;
+  horizontal = horizontal - 13;
+run;
+proc print;
+run;
+
+
+
+/* 101 */
+%beforePlot(101)
+%rainCloudPlot(
+  have
+, vertical
+, horizontal
+, TITLE = %str(
+          title1 H=2 J=C "Here Come The Rain Again";
+          title2 H=1 J=C "Bartosz Jablonski";
+          )
+, FOOTNOTE = 
+, vscale = percent
+, vscalemax = 42
+, y2axislevels = 1
+, BOXPLOT=1
+, BOXPLOTFILL = 0.5
+, RAINDROPSIZE = 8px
+, COLORSLIST=CX222222
+, BOXPLOTLINESIZE = 2pt
+, MINRANGE = 0
+, MAXRANGE =  42
+, xaxistickstyle = ACROSS
+, xbothaxis = 0
+, xaxisValues=(0 to 42 by 42)
+, xaxisValuesFormat=F3.0
+, xaxisOther=MINOR 
+, widthpx = 1200
+, heightpx = 800
+)
+%afterPlot()
+
+
+%beforePlot(102)
+%rainCloudPlot(sashelp.cars, origin, invoice)
+%afterPlot()
+
+%beforePlot(103)
+%rainCloudPlot(sashelp.class, sex, height)
+%afterPlot()
+
+
+
+
+
+
+
+%beforePlot(104)
+%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
+, TITLE = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
+                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
+                )
+, FOOTNOTE = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
+)
+%afterPlot() /*"*/
+
+
+%beforePlot(105)
+%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
+, title = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
+                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
+                )
+, footnote = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
+
+, COLORSLIST = OrangeRed OliveDrab
+, BOXPLOTFILL = 0.5
+, BOXPLOTLINESIZE = 2px
+, BOXPLOTSYMBOLSIZE = 12px 8px
+)
+%afterPlot() 
+
+
+
+%beforePlot(106)
+%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
+, title = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
+                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
+                )
+, footnote = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
+, colorslist = OrangeRed OliveDrab
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+, RAINDROPSIZE = 3px
+, KERNEL_K = triangular
+, KERNEL_C = 0.99
+, VSCALE = Percent
+, VSCALEmax = 75
+)
+%afterPlot() 
+
+%beforePlot(107)
+%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
+%let valuesStyle = size=8 family="Courier New" style=italic;
+%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
+, title = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
+                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
+                )
+, footnote = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
+, colorslist = OrangeRed OliveDrab
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+, raindropsize = 3px
+, kernel_k = triangular
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 75
+
+, XLABELS = ("Analyzed variable")
+, XLABELPOS = CENTER
+, XLABELATTRS = &labelStyle.
+, XAXISVALUEATTRS = &valuesStyle.
+, XAXISTICKSTYLE = ACROSS
+, XBOTHAXIS = 0
+
+, XAXISVALUES=(1e4 to 18e4 by 1e4)
+, XAXISVALUESFORMAT=dollar12.2
+, XAXISOTHER=grid gridattrs=(thickness=0)
+             minor minorgrid minorgridattrs=(color=cxefefef pattern=dot) 
+
+, CATLABELS = ("Grouping variable")
+, CATLABELPOS = TOP
+, CATLABELATTRS = &labelStyle.
+, CATAXISVALUEATTRS = &valuesStyle.
+, FORMATED = 1
+
+, Y2AXIS = 1
+, Y2AXISLEVELS = 5
+, Y2AXISVALUEATTRS = &valuesStyle.
+, Y2AXISFORMAT = F5.2
+, Y2AXISLINES = 1
+
+, WIDTHPX = 1200
+, HEIGHTPX = 350
+)
+%afterPlot() 
+
+
+
+data WORK.AT_WUSS; 
+  function="TEXT"; transparency=0.3; 
+  textcolor="CornflowerBlue"; textweight="BOLD";
+  widthunit="PERCENT"; drawspace="GRAPHPERCENT";
+  width=500;
+
+  label="WUSS(*ESC*){sup '*'}";
+  textsize=96; anchor="CENTER";
+  textfont="Courier New";
+  x1=75; y1=20; rotate=0;
+  output;
+run;
+
+%beforePlot(108)
+%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
+%let valuesStyle = size=8 family="Courier New" style=italic;
+%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
+, title = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
+                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
+                )
+, footnote = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
+, colorslist = OrangeRed OliveDrab
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+, raindropsize = 3px
+, kernel_k = triangular
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 75
+, xlabels = ("Analyzed variable")
+, xlabelpos = center
+, xlabelattrs = &labelstyle.
+, xaxisvalueattrs = &valuesstyle.
+, xaxistickstyle = across
+, xbothaxis = 0
+, xaxisvalues=(1e4 to 18e4 by 1e4)
+, xaxisvaluesformat=dollar12.2
+, xaxisother=grid gridattrs=(thickness=0)
+             minor minorgrid minorgridattrs=(color=cxefefef pattern=dot) 
+, catlabels = ("Grouping variable")
+, catlabelpos = top
+, catlabelattrs = &labelstyle.
+, cataxisvalueattrs = &valuesstyle.
+, formated = 1
+, y2axis = 1
+, y2axislevels = 5
+, y2axisvalueattrs = &valuesstyle.
+, y2axisformat = f5.2
+, y2axislines = 1
+, widthpx = 1200
+, heightpx = 350
+
+, SGANNO = WORK.AT_WUSS
+, MEANSHIFTLINE=1
+, MEANSHIFTSTEP=0.01
+, MEANSHIFTCOLORS=gold blue
+)
+%afterPlot() 
+
+
+
+
+
+data WORK.AT_WUSS2; 
+  function="TEXT"; transparency=0.3; 
+  textcolor="CornflowerBlue"; textweight="BOLD";
+  widthunit="PERCENT"; drawspace="GRAPHPERCENT";
+  width=500;
+
+  label="WUSS(*ESC*){sup '2'}";
+  textsize=96; anchor="CENTER";
+  textfont="Courier New";
+  x1=60; y1=70; rotate=0;
+  output;
+run;
+
+%beforePlot(109,orientation=PORTRAIT)
+%let labelStyle = size=10 family="Courier New" color=MidnightBlue weight=bold;
+%let valuesStyle = size=8 family="Courier New" style=italic;
+%rainCloudPlot(sashelp.cars(where=(origin in: ("E" "U"))), origin, invoice
+, title = %nrstr(title1 J=C HEIGHT=2 "Distribution of cars prices";
+                 title2 J=C HEIGHT=1 COLOR=DarkGrey "Europe vs. US";
+                )
+, footnote = %str(footnote1 J=l H=1 C=Gray "1%) Data from SASHELP.CARS";) /*"*/
+, colorslist = OrangeRed OliveDrab
+, boxplotfill = 0.5
+, boxplotlinesize = 2px
+, boxplotsymbolsize = 12px 8px
+, raindropsize = 3px
+, kernel_k = triangular
+, kernel_c = 0.99
+, vscale = percent
+, vscalemax = 75
+, xlabels = ("Analyzed variable")
+, xlabelpos = top
+, xlabelattrs = &labelstyle.
+, xaxisvalueattrs = &valuesstyle.
+, xaxistickstyle = across
+, xbothaxis = 0
+, xaxisvalues=(1e4 to 18e4 by 1e4)
+, xaxisvaluesformat=dollar12.2
+, xaxisother=grid gridattrs=(thickness=0)
+             minor minorgrid minorgridattrs=(color=cxefefef pattern=dot) 
+, catlabels = ("Grouping variable")
+, catlabelpos = center
+, catlabelattrs = &labelstyle.
+, cataxisvalueattrs = &valuesstyle.
+, formated = 1
+, y2axis = 1
+, y2axislevels = 5
+, y2axisvalueattrs = &valuesstyle.
+, y2axisformat = f5.2
+, y2axislines = 1
+, widthpx = 1200
+, heightpx = 400
+, sganno = WORK.AT_WUSS2
+, meanshiftline=1
+, meanshiftstep=0.01
+, meanshiftcolors=gold blue
+
+, VERTICAL = 1
+, ODSGRAPHICSOPTIONS = NOBORDER
+, SGPLOTOPTIONS = NOAUTOLEGEND NOBORDER NOWALL PAD=0
+)
+%afterPlot()