knitr::opts_chunk$set(fig.width=12, fig.height=6, fig.path='Figs/',
                      echo=FALSE, warning=FALSE, message=FALSE)
library(dimpler)
library(plyr)

data <- read.csv("data/dataCCCN.csv")
dimpler(data, "dimpleBubble-cccn")

Número Ventas 1

data <- read.csv("data/dataCC.csv")
dimpler(data,"dimpleBarVer-cc")
# 
data2 <- ddply(data, .(Cat2,Cat1), nrow)
# 
dimpler(data2,"dimpleAreaHorFac-ccn")

Número Ventas 2

data3 <- data
dimpler(data3,"dimpleBarVer-cc")
dimplerBarVer(data3)

Número Ventas 3

# dimpler(data,"dimpleAreaHor-ccn")

Número Ventas 4

# dimpler(data,"dimpleAreaHorCard-ccn")


jpmarindiaz/dimpler documentation built on May 19, 2019, 10:46 p.m.