galaaz 0.4.0

data/examples/sthda_ggplot/two_variables_cont_bivariate/geom_hex.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'
+
+Polyglot.eval("R", "library('hexbin')")
+
+diamonds = ~:diamonds
+
+c = diamonds.ggplot(E.aes(:carat, :price))
+
+R.awt
+
+# Default plot 
+print c + R.geom_hex
+
+sleep(2)
+R.grid__newpage
+
+# Change the number of bins
+print c + R.geom_hex(bins: 10)
+
+
+sleep(2)
+R.grid__newpage
+
+
+# a = gets.chomp
+
+# removes the window
+R.dev__off

data/examples/sthda_ggplot/two_variables_cont_cont/geom_point.rb

@@ -0,0 +1,65 @@
+# 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'
+
+mtcars = ~:mtcars
+mtcars.cyl = R.as__factor(mtcars.cyl)
+puts mtcars
+
+b = mtcars.ggplot(E.aes(x: :wt, y: :mpg))
+
+# @bug: Next statement is not converting cyl to factor. Should investigate
+# (~:mtcars).cyl = R.as__factor((~:mtcars).cyl)
+# puts ~:mtcars
+# b = R.ggplot(:mtcars, E.aes(x: :wt, y: :mpg))
+   
+R.awt
+
+# Basic plot
+print b + R.geom_point
+
+sleep(2)
+R.grid__newpage
+
+# change the color and the point 
+# by the levels of cyl variable
+print b + R.geom_point(E.aes(color: :cyl, shape: :cyl)) 
+
+sleep(2)
+R.grid__newpage
+
+# Change color manually
+print b + R.geom_point(E.aes(color: :cyl, shape: :cyl)) +
+      R.scale_color_manual(values: R.c("#999999", "#E69F00", "#56B4E9")) +
+      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/two_variables_cont_cont/geom_smooth.rb

@@ -0,0 +1,66 @@
+# 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'
+
+mtcars = ~:mtcars
+mtcars.cyl = R.as__factor(mtcars.cyl)
+puts mtcars
+
+b = mtcars.ggplot(E.aes(x: :wt, y: :mpg))
+   
+R.awt
+
+# Regression line only
+print b + R.geom_smooth(method: :lm)
+
+sleep(2)
+R.grid__newpage
+
+# Point + regression line
+# Remove the confidence interval 
+print b + R.geom_point + 
+      R.geom_smooth(method: :lm, se: false)
+
+sleep(2)
+R.grid__newpage
+
+# loess method: local regression fitting
+print b + R.geom_point + R.geom_smooth
+
+sleep(2)
+R.grid__newpage
+
+# Change color and shape by groups (cyl)
+print b + R.geom_point(E.aes(color: :cyl, shape: :cyl)) + 
+      R.geom_smooth(E.aes(color: :cyl, shape: :cyl), 
+                    method: :lm, se: false, fullrange: true)
+
+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_cont/misc.rb

@@ -0,0 +1,83 @@
+# 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'
+
+Polyglot.eval("R", "library('quantreg')")
+
+R.awt
+
+# geom_quantile(): Add quantile lines from a quantile regression
+print R.ggplot(~:mpg, E.aes(:cty, :hwy)) +
+      R.geom_point + R.geom_quantile +
+      R.theme_minimal
+
+
+sleep(2)
+R.grid__newpage
+
+print R.ggplot(~:mpg, E.aes(:cty, :hwy)) +
+      R.geom_point + R.stat_quantile(quantiles: R.c(0.25, 0.5, 0.75))
+
+sleep(2)
+R.grid__newpage
+
+# geom_rug(): Add marginal rug to scatter plots
+# Add marginal rugs using faithful data
+
+print (~:faithful).ggplot(E.aes(x: :eruptions, y: :waiting)) +
+      R.geom_point + R.geom_rug
+
+sleep(2)
+R.grid__newpage
+
+# geom_jitter(): Jitter points to reduce overplotting
+
+plot = (~:mpg).ggplot(E.aes(:displ, :hwy))
+
+# Default scatter plot
+plot = plot + R.geom_point
+
+# Use jitter to reduce overplotting
+plot = plot + R.geom_jitter(
+         position: R.position_jitter(width: 0.5, height: 0.5))
+print plot
+
+sleep(2)
+R.grid__newpage
+
+#
+mtcars = ~:mtcars
+mtcars.cyl = R.as__factor(mtcars.cyl)
+b = mtcars.ggplot(E.aes(x: :wt, y: :mpg))
+
+print b + R.geom_text(E.aes(label: R.rownames(mtcars)))
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+# removes the window
+R.dev__off

data/examples/sthda_ggplot/two_variables_cont_function/geom_area.rb

@@ -0,0 +1,63 @@
+# 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'
+
+economics = ~:economics
+
+d = economics.ggplot(E.aes(x: :date, y: :unemploy))
+
+R.awt
+
+# Area plot
+print d + R.geom_area
+
+sleep(2)
+R.grid__newpage
+
+# Line plot: connecting observations, ordered by x
+print d + R.geom_line
+
+sleep(2)
+R.grid__newpage
+
+# Connecting observations by stairs
+# a subset of economics data set is used
+R.set__seed(1234)
+
+# Remember that nrow is an R::Vector.  To use it in a Ruby range we
+# need to 'pop' its value as Numeric
+ss = economics[R.sample((1..economics.nrow.pop), 20), :all]
+
+print ss.ggplot(E.aes(x: :date, y: :unemploy)) + 
+      R.geom_step
+
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+# removes the window
+R.dev__off

data/examples/sthda_ggplot/two_variables_disc_cont/geom_bar.rb

@@ -0,0 +1,85 @@
+# 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'
+
+df = R.data__frame(dose: R.c("D0.5", "D1", "D2"),
+                   len: R.c(4.2, 10, 29.5))
+
+puts df.head
+
+df2 = R.data__frame(supp: R.rep(R.c("VC", "OJ"), each: 3),
+                   dose: R.rep(R.c("D0.5", "D1", "D2"), 2),
+                   len: R.c(6.8, 15, 33, 4.2, 10, 29.5))
+puts df2.head
+
+f = df.ggplot(E.aes(x: :dose, y: :len))
+
+R.awt
+
+# Basic bar plot
+print f + R.geom_bar(stat: "identity")
+
+sleep(2)
+R.grid__newpage
+
+# Change fill color and add labels
+print f + R.geom_bar(stat: "identity", fill: "steelblue") +
+      R.geom_text(E.aes(label: :len), vjust: -0.3, size: 3.5) +
+      R.theme_minimal
+
+sleep(2)
+R.grid__newpage
+
+# Change bar plot line colors by groups
+print f + R.geom_bar(E.aes(color: :dose),
+             stat: "identity", fill: "white")
+
+sleep(2)
+R.grid__newpage
+
+# Change bar plot fill colors by groups
+print f + R.geom_bar(E.aes(fill: :dose), stat: "identity")
+
+sleep(2)
+R.grid__newpage
+
+g = df2.ggplot(E.aes(x: :dose, y: :len, fill: :supp)) 
+
+# Stacked bar plot
+print g + R.geom_bar(stat: "identity")
+
+sleep(2)
+R.grid__newpage
+
+# Use position=position_dodge()
+print g + R.geom_bar(stat: "identity", position: R.position_dodge)
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+# removes the window
+R.dev__off

data/examples/sthda_ggplot/two_variables_disc_cont/geom_boxplot.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'
+
+tooth_growth = ~:ToothGrowth
+tooth_growth.dose = tooth_growth.dose.as__factor
+puts tooth_growth
+
+e = tooth_growth.ggplot(E.aes(x: :dose, y: :len))
+
+R.awt
+
+# Default plot
+print e + R.geom_boxplot
+
+sleep(2)
+R.grid__newpage
+
+# Notched box plot
+print e + R.geom_boxplot(notch: true)
+
+sleep(2)
+R.grid__newpage
+
+# Color by group (dose)
+print e + R.geom_boxplot(E.aes(color: :dose))
+
+sleep(2)
+R.grid__newpage
+
+# Change fill color by group (dose)
+print e + R.geom_boxplot(E.aes(fill: :dose))
+
+sleep(2)
+R.grid__newpage
+
+# a = gets.chomp
+
+# removes the window
+R.dev__off