galaaz 0.4.0

data/examples/sthda_ggplot/one_variable_continuous/histogram_density.rb

@@ -0,0 +1,55 @@
+# 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
+
+# Histogram  plot
+# Change histogram fill color by group (sex)
+wdata.qplot(:weight, geom: "histogram", fill: :sex)
+
+sleep(2)
+R.grid__newpage
+
+# Density plot
+# Change density plot line color by group (sex)
+# change line type
+wdata.qplot(:weight, geom: "density", color: :sex,
+            linetype: :sex)
+
+sleep(2)
+R.grid__newpage
+
+# removes the window and creates a new one
+R.dev__off
+

data/examples/sthda_ggplot/one_variable_continuous/stat.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
+
+# Empirical Cumulative Density Function
+print a + R.stat_ecdf
+
+sleep(2)
+R.grid__newpage
+
+# quantile plot
+print (~:mtcars).ggplot(E.aes(sample: :mpg)) + R.stat_qq
+
+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_discrete/bar.rb

@@ -0,0 +1,54 @@
+# 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'
+
+# puts ~:mpg
+
+b = R.ggplot(:mpg, E.aes(:fl))
+
+R.awt
+
+# Basic plot
+print b + R.geom_bar
+
+sleep(2)
+R.grid__newpage
+
+# Change fill color
+print b + R.geom_bar(fill: "steelblue", color: "steelblue") +
+      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/qplots/box_violin_dot.rb

@@ -0,0 +1,57 @@
+# 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
+
+# Basic box plot from data frame
+wdata.qplot(:sex, :weight, geom: "boxplot", fill: :sex)
+
+sleep(2)
+R.grid__newpage
+
+# Violin plot
+wdata.qplot(:sex, :weight, geom: "violin")
+
+sleep(2)
+R.grid__newpage
+
+# Dot plot
+wdata.qplot(:sex, :weight, geom: "dotplot", stackdir: "center",
+            binaxis: "y", dotsize: 0.5)
+
+sleep(2)
+R.grid__newpage
+
+# removes the window and creates a new one
+R.dev__off

data/examples/sthda_ggplot/qplots/scatter_plots.rb

@@ -0,0 +1,67 @@
+# 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'
+
+# Load the data
+mtcars = ~:mtcars
+df = mtcars[:all, R.c("mpg", "cyl", "wt")]
+
+# Convert cyl to a factor variable
+df.cyl = R.as__factor(df.cyl)
+puts df.head
+
+R.awt
+
+# Basic scatter plot
+print R.qplot(x: :mpg, y: :wt, data: df, geom: "point")
+
+# wait 2 seconds for the next plog
+sleep(2)
+# clear the page
+R.grid__newpage
+
+# Scatter plot with smoothed line
+# Calling qplot on a dataframe does not require the data: parameter
+# nor print
+df.qplot(:mpg, :wt, geom: R.c("point", "smooth"))
+
+# wait 2 seconds for the next plog
+sleep(2)
+# clear the page
+R.grid__newpage
+
+# The following code will change the color and the shape of points by groups.
+# The column cyl will be used as grouping variable. In other words, the color
+# and the shape of points will be changed by the levels of cyl.
+df.qplot(:mpg, :wt, colour: :cyl, shape: :cyl)
+
+
+# wait 2 seconds for the next plog
+sleep(2)
+# clear the page
+R.grid__newpage
+
+# removes the window and creates a new one
+R.dev__off

data/examples/sthda_ggplot/scatter_gg.rb

@@ -0,0 +1,60 @@
+# 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.awt
+
+mtcars = ~:mtcars
+
+puts mtcars
+
+# Basic scatter plot
+# Rementer that with ggplot, print is necessary to output
+# the plot.
+print mtcars.ggplot(E.aes(x: :wt, y: :mpg)) + 
+      R.geom_point
+
+sleep(2)
+R.grid__newpage
+
+# Change the point size, and shape
+print mtcars.ggplot(E.aes(x: :wt, y: :mpg)) +
+      R.geom_point(size: 2, shape: 23)
+
+sleep(2)
+R.grid__newpage
+
+# The function aes_string() can be used as follow:
+print mtcars.ggplot(R.aes_string(x: "wt", y: "mpg")) +
+      R.geom_point(size: 2, shape: 10)
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+
+# removes the window and creates a new one
+R.dev__off

data/examples/sthda_ggplot/two_variables_cont_bivariate/geom_bin2d.rb

@@ -0,0 +1,49 @@
+# 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'
+
+diamonds = ~:diamonds
+
+c = diamonds.ggplot(E.aes(:carat, :price))
+
+R.awt
+
+# Default plot 
+print c + R.geom_bin2d
+
+sleep(2)
+R.grid__newpage
+
+# Change the number of bins
+print c + R.geom_bin2d(bins: 15)
+
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+# removes the window
+R.dev__off

data/examples/sthda_ggplot/two_variables_cont_bivariate/geom_density2d.rb

@@ -0,0 +1,64 @@
+# 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'
+
+faithful = ~:faithful
+puts faithful
+
+sp = faithful.ggplot(E.aes(x: :eruptions, y: :waiting)) 
+
+R.awt
+
+# example from ggplot contour using the z dimension
+faithfuld = ~:faithfuld
+print faithfuld.ggplot(E.aes(:waiting, :eruptions, z: :density)) +
+      R.geom_contour
+
+sleep(2)
+R.grid__newpage
+
+# Default plot
+print sp + R.geom_density_2d
+
+sleep(2)
+R.grid__newpage
+
+# Add points
+print sp + R.geom_point + R.geom_density_2d
+
+sleep(2)
+R.grid__newpage
+
+# Use stat_density_2d with geom = "polygon"
+print sp + R.geom_point + 
+      R.stat_density_2d(E.aes_string(fill: '..level..'), geom: "polygon")
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+# removes the window
+R.dev__off