galaaz 0.4.0

data/examples/sthda_ggplot/all.rb

@@ -0,0 +1,68 @@
+# coding: utf-8
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'galaaz'
+require 'ggplot'
+
+# install.packages('quantreg')
+# install.packages('hexbin')
+# Library 'quantreg' is needed in misc
+R.install_and_loads('quantreg', 'hexbin')
+
+# Package Hmisc does not yet install on graalvm because of
+# problems with package data.table
+# install.packages('Hmisc')
+# R.install_and_loads('Hmisc')
+
+def exec(name)
+  puts "=" * (name.size + 12)
+  puts "Executing '#{name}'"
+  puts "=" * (name.size + 12)
+  require_relative name
+end
+
+exec "qplots/scatter_plots"
+exec 'qplots/box_violin_dot'
+exec 'one_variable_continuous/histogram_density'
+exec 'scatter_gg'
+exec 'one_variable_continuous/density_gg'
+exec 'one_variable_continuous/geom_area'
+exec 'one_variable_continuous/geom_density'
+exec 'one_variable_continuous/geom_dotplot'
+exec 'one_variable_continuous/geom_freqpoly'
+exec 'one_variable_continuous/geom_histogram'
+exec 'one_variable_continuous/stat'
+exec 'one_variable_discrete/bar'
+exec 'two_variables_cont_cont/geom_point'
+exec 'two_variables_cont_cont/geom_smooth'
+exec 'two_variables_cont_cont/misc'
+exec 'two_variables_cont_bivariate/geom_bin2d'
+exec 'two_variables_cont_bivariate/geom_hex'
+exec 'two_variables_cont_bivariate/geom_density2d'
+exec 'two_variables_cont_function/geom_area'
+exec 'two_variables_disc_cont/geom_boxplot'
+exec 'two_variables_disc_cont/geom_violin'
+exec 'two_variables_disc_cont/geom_dotplot'
+exec 'two_variables_disc_cont/geom_jitter'
+exec 'two_variables_disc_cont/geom_line'
+exec 'two_variables_disc_cont/geom_bar'
+exec 'two_variables_disc_disc/geom_jitter'
+exec 'two_variables_error/geom_crossbar'

data/examples/sthda_ggplot/one_variable_continuous/density_gg.rb

@@ -0,0 +1,52 @@
+# coding: utf-8
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# and distribute this software and its documentation, without fee and without a signed 
+# licensing agreement, is hereby granted, provided that the above copyright notice, this 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'galaaz'
+require 'ggplot'
+
+R.set__seed(1234)
+
+wdata = R.data__frame(
+  sex: R.c("F", "M").rep(each: 200).factor,
+  weight: R.c(R.rnorm(200, 55), R.rnorm(200,58)))
+
+puts wdata.head
+
+R.awt
+
+# Use geometry function
+print wdata.ggplot(E.aes(x: :weight)) + R.geom_density
+
+sleep(2)
+R.grid__newpage
+
+# OR use stat function
+print wdata.ggplot(E.aes(x: :weight)) + R.stat_density
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+# removes the window and creates a new one
+R.dev__off

data/examples/sthda_ggplot/one_variable_continuous/geom_area.rb

@@ -0,0 +1,61 @@
+# coding: utf-8
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# and distribute this software and its documentation, without fee and without a signed 
+# licensing agreement, is hereby granted, provided that the above copyright notice, this 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'galaaz'
+require 'ggplot'
+
+R.set__seed(1234)
+
+wdata = R.data__frame(
+  sex: R.c("F", "M").rep(each: 200).factor,
+  weight: R.c(R.rnorm(200, 55), R.rnorm(200,58)))
+
+puts wdata.head
+
+# We start by creating a plot, named 'a', that we’ll finish next by adding layers
+a = wdata.ggplot(E.aes(x: :weight))
+
+R.awt
+
+# Basic plot
+print a + R.geom_area(stat: "bin")
+
+sleep(2)
+R.grid__newpage
+
+# change fill colors by sex
+print a + R.geom_area(E.aes(fill: :sex),
+                      stat: "bin", alpha: 0.6) +
+      R.theme_classic
+
+
+sleep(2)
+R.grid__newpage
+
+print a + R.geom_area(E.aes_string(y: "..density.."), stat: "bin")
+sleep(2)
+
+# a = gets.chomp
+
+# removes the window and creates a new one
+R.dev__off

data/examples/sthda_ggplot/one_variable_continuous/geom_density.rb

@@ -0,0 +1,77 @@
+# coding: utf-8
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# and distribute this software and its documentation, without fee and without a signed 
+# licensing agreement, is hereby granted, provided that the above copyright notice, this 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'galaaz'
+require 'ggplot'
+
+R.set__seed(1234)
+
+wdata = R.data__frame(
+  sex: R.c("F", "M").rep(each: 200).factor,
+  weight: R.c(R.rnorm(200, 55), R.rnorm(200,58)))
+
+puts wdata.head
+
+# We start by creating a plot, named 'a', that we’ll finish next by adding layers
+a = wdata.ggplot(E.aes(x: :weight))
+
+# Aggregate the data by sex
+mu = R.aggregate(wdata.weight, by: R.list(wdata.sex), FUN: :mean)
+mu.names = R.c("sex", "grp_mean")
+puts mu
+
+R.awt
+
+# Basic plot
+print a + R.geom_density
+
+sleep(2)
+R.grid__newpage
+
+# change line colors by sex
+print a + R.geom_density(E.aes(color: :sex)) 
+
+sleep(2)
+R.grid__newpage
+
+# Change fill color by sex
+# Use semi-transparent fill: alpha = 0.4
+print a + R.geom_density(E.aes(fill: :sex), alpha: 0.4)
+   
+sleep(2)
+R.grid__newpage
+
+# Add mean line and Change color manually
+# Note that Ruby requires hash parameters to come at the end of the parameter
+# list, so data: mu, needs to come after E.aes
+print a + R.geom_density(E.aes(color: :sex)) +
+      R.geom_vline(E.aes(xintercept: :grp_mean, color: :sex), data: mu) +
+      R.scale_color_manual(values: R.c("#999999", "#E69F00"))
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+# removes the window and creates a new one
+R.dev__off

data/examples/sthda_ggplot/one_variable_continuous/geom_dotplot.rb

@@ -0,0 +1,69 @@
+# coding: utf-8
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# and distribute this software and its documentation, without fee and without a signed 
+# licensing agreement, is hereby granted, provided that the above copyright notice, this 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'galaaz'
+require 'ggplot'
+
+R.set__seed(1234)
+
+wdata = R.data__frame(
+  sex: R.c("F", "M").rep(each: 200).factor,
+  weight: R.c(R.rnorm(200, 55), R.rnorm(200,58)))
+
+puts wdata.head
+
+# We start by creating a plot, named 'a', that we’ll finish next by adding layers
+a = wdata.ggplot(E.aes(x: :weight))
+
+# Aggregate the data by sex
+mu = R.aggregate(wdata.weight, by: R.list(wdata.sex), FUN: :mean)
+mu.names = R.c("sex", "grp_mean")
+puts mu
+
+R.awt
+
+# Basic plot
+print a + R.geom_dotplot
+
+# Basic plot
+
+sleep(2)
+R.grid__newpage
+
+# change fill and color by sex
+print a + R.geom_dotplot(E.aes(fill: :sex)) 
+
+sleep(2)
+R.grid__newpage
+
+# Change fill color manually 
+print a + R.geom_dotplot(E.aes(fill: :sex)) +
+      R.scale_fill_manual(values: R.c("#999999", "#E69F00"))
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+# removes the window and creates a new one
+R.dev__off

data/examples/sthda_ggplot/one_variable_continuous/geom_freqpoly.rb

@@ -0,0 +1,69 @@
+# coding: utf-8
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# and distribute this software and its documentation, without fee and without a signed 
+# licensing agreement, is hereby granted, provided that the above copyright notice, this 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'galaaz'
+require 'ggplot'
+
+R.set__seed(1234)
+
+wdata = R.data__frame(
+  sex: R.c("F", "M").rep(each: 200).factor,
+  weight: R.c(R.rnorm(200, 55), R.rnorm(200,58)))
+
+puts wdata.head
+
+# We start by creating a plot, named 'a', that we’ll finish next by adding layers
+a = wdata.ggplot(E.aes(x: :weight))
+
+# Aggregate the data by sex
+mu = R.aggregate(wdata.weight, by: R.list(wdata.sex), FUN: :mean)
+mu.names = R.c("sex", "grp_mean")
+puts mu
+
+R.awt
+
+# Basic plot
+print a + R.geom_freqpoly
+
+sleep(2)
+R.grid__newpage
+
+# change y axis to density value
+# and change theme
+print a + R.geom_freqpoly(E.aes_string(y: "..density..")) +
+      R.theme_minimal
+
+sleep(2)
+R.grid__newpage
+
+# change color and linetype by sex
+print a + R.geom_freqpoly(E.aes(color: :sex, linetype: :sex)) +
+      R.theme_minimal
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+# removes the window and creates a new one
+R.dev__off

data/examples/sthda_ggplot/one_variable_continuous/geom_histogram.rb

@@ -0,0 +1,62 @@
+# coding: utf-8
+
+##########################################################################################
+# @author Rodrigo Botafogo
+#
+# Copyright © 2018 Rodrigo Botafogo. All Rights Reserved. Permission to use, copy, modify, 
+# and distribute this software and its documentation, without fee and without a signed 
+# licensing agreement, is hereby granted, provided that the above copyright notice, this 
+# paragraph and the following two paragraphs appear in all copies, modifications, and 
+# distributions.
+#
+# IN NO EVENT SHALL RODRIGO BOTAFOGO BE LIABLE TO ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, 
+# INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING LOST PROFITS, ARISING OUT OF THE USE OF 
+# THIS SOFTWARE AND ITS DOCUMENTATION, EVEN IF RODRIGO BOTAFOGO HAS BEEN ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#
+# RODRIGO BOTAFOGO SPECIFICALLY DISCLAIMS ANY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, 
+# THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE 
+# SOFTWARE AND ACCOMPANYING DOCUMENTATION, IF ANY, PROVIDED HEREUNDER IS PROVIDED "AS IS". 
+# RODRIGO BOTAFOGO HAS NO OBLIGATION TO PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, 
+# OR MODIFICATIONS.
+##########################################################################################
+
+require 'galaaz'
+require 'ggplot'
+
+R.set__seed(1234)
+
+wdata = R.data__frame(
+  sex: R.c("F", "M").rep(each: 200).factor,
+  weight: R.c(R.rnorm(200, 55), R.rnorm(200,58)))
+
+puts wdata.head
+
+# We start by creating a plot, named 'a', that we’ll finish next by adding layers
+a = wdata.ggplot(E.aes(x: :weight))
+
+# Aggregate the data by sex
+mu = R.aggregate(wdata.weight, by: R.list(wdata.sex), FUN: :mean)
+mu.names = R.c("sex", "grp_mean")
+puts mu
+
+R.awt
+
+# Basic plot
+print a + R.geom_histogram
+
+sleep(2)
+R.grid__newpage
+
+# change line colors by sex
+print a + R.geom_histogram(E.aes(color: :sex), fill: "white",
+                           position: "dodge")
+
+sleep(2)
+R.grid__newpage
+
+
+# a = gets.chomp
+
+# removes the window and creates a new one
+R.dev__off