Merge pull request #49 from SASPAC/dev

The BasePlus package [ver. 2.4.0]

README.md

@@ -56,7 +56,7 @@ libname NEW "%workPath()/new";
 ```
 and more.
 
-SHA256 digest for the latest version of `BasePlus`: F*FB102C9B12E870666C15A651017D48E0141E47D64C11437350D0EC75A7E9E609
+SHA256 digest for the latest version of `BasePlus`: F*19FE220C82DE4B9990B4AC352A9D9DEF5FAF2FD601BE756B2F3A2AC39CDAF381
 
 [**Documentation for BasePlus**](./baseplus.md "Documentation for BasePlus")
 

baseplus.md

@@ -9,22 +9,22 @@
 ### Version information:
   
 - Package: BasePlus
-- Version: 2.0.1
-- Generated: 2024-07-24T07:58:59
+- Version: 2.4.0
+- Generated: 2025-08-07T17:06:16
 - Author(s): Bartosz Jablonski (yabwon@gmail.com), Quentin McMullen (qmcmullen@gmail.com)
 - Maintainer(s): Bartosz Jablonski (yabwon@gmail.com)
 - License: MIT
-- File SHA256: `F*FB102C9B12E870666C15A651017D48E0141E47D64C11437350D0EC75A7E9E609` for this version
-- Content SHA256: `C*0444AC5B54150AE5424D335FF89A03D831F00F60898C99250CD59E0C5C5B0398` for this version
+- File SHA256: `F*19FE220C82DE4B9990B4AC352A9D9DEF5FAF2FD601BE756B2F3A2AC39CDAF381` for this version
+- Content SHA256: `C*83DEF0C93481B1C77494531E5CE9F8EB8E4C15AB3CC48D1E9C0223C13A84DB3F` for this version
   
 ---
  
-# The `BasePlus` package, version: `2.0.1`;
+# The `BasePlus` package, version: `2.4.0`;
   
 ---
  
 
-# The BasePlus package [ver. 2.0.1] <a name="baseplus-package"></a> ###############################################
+# The BasePlus package [ver. 2.4.0] <a name="baseplus-package"></a> ###############################################
 
 The **BasePlus** package implements useful
 functions and functionalities I miss in the BASE SAS.
@@ -403,7 +403,7 @@ localization (only if additional content was deployed during the installation pr
  
 --------------------------------------------------------------------
  
-*SAS package generated by SAS Package Framework, version `20240711`*
+*SAS package generated by SAS Package Framework, version `20250729`*
  
 --------------------------------------------------------------------
  
@@ -838,6 +838,7 @@ The basic syntax is the following, the `<...>` means optional parameters:
   <,longFormat=>
   <,fileExt=>
   <,maxDepth=>
+  <,backslashSens=>
 )
 ~~~~~~~~~~~~~~~~~~~~~~~
 
@@ -868,6 +869,11 @@ The basic syntax is the following, the `<...>` means optional parameters:
 * `maxDepth=0`                - *Optional*, if not zero then indicates
                                 maximum depth of search in the root path.
 
+* `backslashSens=0`           - *Optional*, if not zero then it indicates 
+                                that backslash(`\`) symbol in files and dirs 
+                                names is detectable under Linux. Accepted 
+                                values: `0` and `1`. Ignored under Windows. 
+
 
 ### EXAMPLES AND USECASES: ####################################################
 
@@ -989,7 +995,12 @@ The QgetVars() returns quoted value [by %superq()].
 
 See examples below for the details.
 
-The `%getVars()` macro executes like a pure macro code.
+When `mcArray=` is not used the `%getVars()` macro executes like 
+a pure macro code. When `mcArray=` is not null (creation of a
+macro variable array is requested) them a single semicolon is returned.
+
+When `validvarname=ANY` in set special care should be kept.
+See dedicated examples below.
 
 ### SYNTAX: ###################################################################
 
@@ -1003,6 +1014,7 @@ The basic syntax is the following, the `<...>` means optional parameters:
  <,quote=>
  <,mcArray=> 
  <,ignoreCases>
+ <,nlit=>
 )
 ~~~~~~~~~~~~~~~~~~~~~~~
 
@@ -1025,23 +1037,32 @@ The basic syntax is the following, the `<...>` means optional parameters:
 
 * `mcArray=`         - *Optional*, default value is blank.
                        1) When *null* - the macro behaves like a macro function 
-                          and returns a text string with variables list.
-                       2) When *not null* - behaviour of the macro is altered.
+                          and ban be used in the `%put` or `%let=` statements.
+                          The returned text is a string with variables list.
+                       2) When *not null* - behavior of the macro is altered.
                           In such case a macro array of selected variables, named 
                           with `mcArray` value as a prefix, is created.
                           Furthermore a macro named as `mcArray` value is generated.
                           (see the macroArray package for the details).
                           When `mcArray=` parameter is active the `getVars` macro 
-                          cannot be called within the `%put` statement. Execution like: 
-                           `%put %getVars(..., mcArray=XXX);` will result with  
-                          an Explicit & Radical Refuse Of Run (aka ERROR).
+                          should not be called within the `%put` or `%let=` statements. 
+                          A single semicolon is produced as the macro result, hence
+                          execution like: `%put %getVars(..., mcArray=XXX) some text;` 
+                          will result with an Explicit & Radical Refuse Of Run (aka ERROR).
 
-* `ignoreCases=`     - *Optional*, default value is 1.  
+* `ignoreCases=`     - *Optional*, default value is 1.
                         Indicates if search should be case insensitive.
 
+* `nlit=`            - *Optional*, default value is 0.
+                        Introduced to improve `validvarname=ANY` handling.
+                        Indicates if the `NLITERAL()` function should be 
+                        executed to cover spacial characters.
+
  
 ### EXAMPLES AND USECASES: ####################################################
 
+**When `validvarname=` option is _not_ `ANY`.** 
+
 **EXAMPLE 1.** A list of all variables from the 
                sashelp.class dataset:
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
@@ -1267,6 +1288,44 @@ run;
   %put %do_over(XYZ);
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 
+**When the `validvarname=ANY` option is set.** 
+
+**EXAMPLE 12.** Get all variables and handle special characters.
+                Without `nlit=1` the code will fail.
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
+  options validvarname = any;
+  data varnameANY;
+    set sashelp.class(obs=3);
+
+    'A&B'n=42;
+    'space name'n=101;
+    '2025-08'n=234;
+    '2025%09'n=235;
+    "2025'10"n=236;
+    '2025"11'n=237;
+  run; 
+
+  %put %getVars(varnameANY, nlit=1);
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+**EXAMPLE 13.** Create macro variable array ABC for all variables.
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
+  %getVars(varnameANY, mcArray=ABC, nlit=1);
+  %put %ABC(1) %ABC(6) %ABC(7) %ABC(11);
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+**EXAMPLE 14.** Get only variables with illegal characters in names.
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
+  %let notV7compliant = %getVars(varnameANY, pattern=[^a-z0-9_], nlit=1);
+  %put &notV7compliant.;
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+
+**EXAMPLE 14.** Print variables starting with a digit.
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~sas
+  %put %getVars(varnameANY, pattern=^\d, nlit=1);
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
 ---
 
   
@@ -1929,6 +1988,11 @@ The basic syntax is the following, the `<...>` means optional parameters:
 * `ignoreCases=`     - *Optional*, default value is 1.  
                         Indicates if search should be case insensitive.
 
+* `nlit=`            - *Optional*, default value is 0.
+                        Introduced to improve `validvarname=ANY` handling.
+                        Indicates if the `NLITERAL()` function should be 
+                        executed to cover spacial characters.
+
  
 ### EXAMPLES AND USECASES: ####################################################
 
@@ -2035,6 +2099,9 @@ plots of kernel density estimates, jitter data values, and box-and-whiskers plot
 
 See examples below for the details.
 
+The "Here Comes the Rain (Cloud Plot) Again" (B. Jablonski, 2024) article
+describing the macro is attached as an additional content to the package.
+
 ### SYNTAX: ###################################################################
 
 The basic syntax is the following, the `<...>` means optional parameters:
@@ -2052,6 +2119,7 @@ The basic syntax is the following, the `<...>` means optional parameters:
  <,boxPlotSymbolSize=>
  <,boxPlotLineSize=>
  <,boxPlotFill=>
+ <,whiskerScale=>
  <,meanShiftLine=>
  <,meanShiftStep=>
  <,meanShiftColors=>
@@ -2147,6 +2215,12 @@ The basic syntax is the following, the `<...>` means optional parameters:
                          Transparency of the box plot.
                          Ranges from 0.0 (opaque) to 1.0 (full translucent).
 
+* `whiskerScale=`      - *Optional*, default value `1.5`.                         
+                         It provides `WS` parameter in the `Q1 - WS*IQR`
+                         formula and the `Q3 + WS*IQR` formula.
+                         Provided value should be a positive number. 
+                         Otherwise it is set to 0.
+
 * `meanShiftLine`      - *Optional*, default value `0`.
                          Indicates if a line connecting mean symbol 
                          on the Box Plot should be added.
@@ -2366,12 +2440,14 @@ The basic syntax is the following, the `<...>` means optional parameters:
 
 The box-and-whiskers plot has the following interpretation: 
 - left vertical bar indicates the *minimum*,
-- left whisker line starts at `max(Q1 - 1.5IQR, minimum)` and ends at lower quartile (Q1),
+- left whisker line starts at `max(Q1 - WS*IQR, minimum)` and ends at lower quartile (Q1),
 - diamond indicates mean,
 - vertical bar inside of the box indicates median,
-- right whisker line starts at upper quartile (Q3) and ends at `min(Q3 + 1.5IQR, maximum)`,
+- right whisker line starts at upper quartile (Q3) and ends at `min(Q3 + WS*IQR, maximum)`,
 - right vertical bar indicates the *maximum*.
 
+The `WS` value is provided through `whiskerScale=` parameter. Default value is `1.5`.
+
 With above setup it may happen that 
 there is a gap between the minimum marker and the beginning of the left whisker 
 or 
@@ -2533,6 +2609,7 @@ The output can be seen in the `md` file.
   , vertical = 1
   , title = %nrstr(title1 J=C HEIGHT=3 "The VERTICAL plotting is cool, ...";)
   , footnote = %nrstr(footnote1 J=L HEIGHT=2 "... isn't it?";)
+  , whiskerScale = 1.5
   )
 
 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
@@ -6382,7 +6459,7 @@ The basic syntax is the following, the `<...>` means optional parameters:
 
 3. `false` - *Required*, value returned when condition is false.
 
-4 `v=`     - *Optional*, v for verbose. If set to `1` extra notes
+* `v=`     - *Optional*, v for verbose. If set to `1` extra notes
               are printed.
 ---
 
@@ -7585,7 +7662,7 @@ The basic syntax is the following, the `<...>` means optional parameters:
  
 # License <a name="license"></a> ######
  
-Copyright (c) 2020 - 2023 Bartosz Jablonski
+Copyright (c) 2020 - 2025 Bartosz Jablonski
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

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()