s-u/part1.md

## part1.md

      
    Raw
  

              part1.md
            
          
    rCharts in rCloud

This is a demo of using rCharts along with rCloud. It requires installation of rCharts >= 0.4.2 and the latest version of rCloud.
Our first step is to load rCharts and set the appropriate options so that the charts are rendered as inline iframes.
library(rCharts)
options(
  rcharts.mode = 'iframesrc', 
  rcharts.cdn = TRUE,
  RCHART_WIDTH = 700,
  RCHART_HEIGHT = 400
)

In this demo, we will explore the different chart types supported by the visualization library NVD3, which is a wrapper around d3.js, and provides several interactive controls out of the box.

  
## part2.md

      
    Raw
  

              part2.md
            
          
    Scatter Chart

p1 <- nPlot(mpg ~ wt, group = 'cyl', data = mtcars, type = 'scatterChart')
p1$xAxis(axisLabel = 'Weight')
p1


## part3.md

      
    Raw
  

              part3.md
            
          
    Multibar Chart

hair_eye = as.data.frame(HairEyeColor)
p2 <- nPlot(Freq ~ Hair, group = 'Eye', data = subset(hair_eye, Sex == "Female"), type = 'multiBarChart')
p2$chart(color = c('brown', 'blue', '#594c26', 'green'))
p2


## part4.md

      
    Raw
  

              part4.md
            
          
    Multibar Horizontal Chart

p3 <- nPlot(~ cyl, group = 'gear', data = mtcars, type = 'multiBarHorizontalChart')
p3$chart(showControls = F)
p3


## part5.md

      
    Raw
  

              part5.md
            
          
    Pie Chart

p4 <- nPlot(~ cyl, data = mtcars, type = 'pieChart')
p4


## part6.md

      
    Raw
  

              part6.md
            
          
    Donut Chart

p5 <- nPlot(~ cyl, data = mtcars, type = 'pieChart')
p5$chart(donut = TRUE)
p5


## part7.md

      
    Raw
  

              part7.md
            
          
    Line Chart

data(economics, package = 'ggplot2')
p6 <- nPlot(uempmed ~ date, data = economics, type = 'lineChart')
p6


## part8.md

      
    Raw
  

              part8.md
            
          
    Line with Focus Chart

ecm <- reshape2::melt(economics[,c('date', 'uempmed', 'psavert')], id = 'date')
p7 <- nPlot(value ~ date, group = 'variable', data = ecm, type = 'lineWithFocusChart')
p7$xAxis( tickFormat="#!function(d) {
  return d3.time.format('%b %Y')(new Date( d * 86400000 ));
}!#" )
p7$x2Axis( tickFormat="#!function(d) {
  return d3.time.format('%Y')(new Date( d * 86400000 ));
}!#" )
p7$xAxis( NULL, replace = T)
p7


## part9.md

      
    Raw
  

              part9.md
            
          
    Stacked Area Chart

dat <- data.frame(
  t = rep(0:23, each = 4), 
  var = rep(LETTERS[1:4], 4), 
  val = round(runif(4*24,0,50))
)
p8 <- nPlot(val ~ t, group =  'var', data = dat, type = 'stackedAreaChart', id = 'chart')
p8


## scratch.R
# scratch file