In r2rahul/expdata: Exploratory Data Analysis using data.table

Versoning Report TimeStamp

Timestamp: r Sys.time()

list_packages <- c("data.table", "knitr", "DT", "sparkline")
if (length(setdiff(list_packages, rownames(installed.packages()))) > 0) {
  install.packages(setdiff(list_packages, rownames(installed.packages())))  
}
library(data.table)
library(expdata)
library(knitr)
library(DT)
library(sparkline)

edadata <- data.table(get(params$data))

Data Summary

Meta Data

m <- nrow(edadata)
meta <- data.frame(Attribute = c("Num Columns", "Num Row"), Value = c(ncol(edadata), m))
datatable(meta)

Preview Data

data.table(head(edadata))

Numeric Type

• First Set of Descriptions Numeric Variables

num_out <- data.table(num_summary(edadata))
num_out[, var_dist := column_inlinebox(edadata)]
cselect1 <- c(1:7, 21)
out <- datatable(num_out[, cselect1, with = FALSE], escape = FALSE, filter = 'top', options = list(paging = FALSE, 
fnDrawCallback = htmlwidgets::JS(
  '
function(){
  HTMLWidgets.staticRender();
}
'
)
))
out <- spk_add_deps(out)
out <- formatStyle(out, columns = c("miss %", "zero %"),
    color = styleInterval(0.1, c('#636363', '#f03b20'))
  )

formatPercentage(out, columns = c("miss %", "zero %") , digits = 2)

• Second Set of Description for Numeric Variables

num_out <- num_summary(edadata)
cselect2 <- c(1:3, 8:11)
datatable(num_out[, cselect2, with = FALSE])

• Third Set of Description for Numeric Variables

num_out <- num_summary(edadata)
cselect3 <- c(1:3, 12:16)
datatable(num_out[, cselect3, with = FALSE])

• Fourth Set of Description for Numeric Variables

num_out <- num_summary(edadata)
cselect4 <- c(1:3, 17:20)
datatable(num_out[, cselect4, with = FALSE])

Character type

char_out <- char_summary(edadata)
datatable(char_out)

Date Type

• Date Summary Part 1

date_out <- date_summary(edadata)
dselect1 <- c(1:7)
datatable(date_out[, dselect1, with = FALSE])

• Date Summary Part 2

date_out <- date_summary(edadata)
dselect2 <- c(1:3, 8:10)
datatable(date_out[, dselect2, with = FALSE])

Logical type

log_out <- log_summary(edadata)
datatable(log_out)

Since, there are no logical variable function returned the warning message and stopped.

Factor Type

fac_out <- factor_summary(edadata)
datatable(fac_out)

Session Information

sessionInfo()

r2rahul/expdata documentation built on May 18, 2019, 2:36 a.m.