Data

[aharach]

• [x] detecting missing value
• [x] populating missing value
• [x] hist plot
• [x] Random plot. issue for some variable
• [x] Mosaic plot. label issue. or find another function.
• [x] Load data from other source
• [x] Normal test in modal
• [x] Variable Summary
• [x] Load data 2nd time cause crash
• [x] Data variable percentile table or plot
• [ ] Compress the data imported for better calculation efficiency
• [x] After new factors added in, refreshing selectInput but keep current selection
• [ ] Allowing different data source (quandl, csv, SAS, etc..)

[aharach]

ggMMplot2 <- function(var1, var2,bins = 10){

if(is.numeric(var1) && unique(var1)>bins) { var1_lab <- seq(min(var1),max(var1),length.out = bins) var1 <- cut(var1,var1_lab,include.lowest =TRUE) } else var1_lab <- as.character(var1)

if(is.numeric(var2) && unique(var2)>bins) { var2_lab <- seq(min(var2),max(var2),length.out = bins) var2 <- cut(var2,var2_lab,include.lowest =TRUE) } else var2_lab <- as.character(var2)

levVar1 <- length(levels(var1)) levVar2 <- length(levels(var2))

plotData <- data.frame(prop.table(table(var1, var2)))

plotData$marginVar1 <- prop.table(table(var1))

plotData$var2Height <- plotData$Freq / plotData$marginVar1

plotData$var1Center <- c(0, cumsum(plotData$marginVar1)[1:levVar1 -1]) + plotData$marginVar1 / 2

ggplot(plotData, aes(x=var1Center, y=var2Height)) + geom_bar(stat = "identity", aes(width = marginVar1, fill = var2), col = "Black",position="stack") + geom_text(aes(label = var1_lab, x = var1Center, y = 1.05)) +theme_bw() }

[aharach]

http://rcharts.io/viewer/?5862751#.VFFHWfmsVaU

require(devtools)

install_github('rCharts', 'ramnathv')

require(rCharts)

get data used by dimple for all of its examples as a first test

data <- read.delim( "http://pmsi-alignalytics.github.io/dimple/data/example_data.tsv" )

eliminate . to avoid confusion in javascript

colnames(data) <- gsub("[.]","",colnames(data))

example 13 vertical marimekko

d1 <- dPlot( UnitSales ~ Channel, groups = "Owner", data = data, type = "bar" ) d1$xAxis(type = "addAxis", measure = "UnitSales", showPercent = TRUE) d1$yAxis(type = "addPctAxis") d1$legend( x = 200, y = 10, width = 400, height = 20, horizontalAlign = "right" )

test with storyboard

d1$set(storyboard = "Date") d1