Loading Libraries

library(knitr)
library(printr)
library(rCharts)

Dataset used in this document

HairEyeColor

haireye <- as.data.frame(HairEyeColor)
haireye
Hair Eye Sex Freq
Black Brown Male 32
Brown Brown Male 53
Red Brown Male 10
Blond Brown Male 3
Black Blue Male 11
Brown Blue Male 50
Red Blue Male 10
Blond Blue Male 30
Black Hazel Male 10
Brown Hazel Male 25
Red Hazel Male 7
Blond Hazel Male 5
Black Green Male 3
Brown Green Male 15
Red Green Male 7
Blond Green Male 8
Black Brown Female 36
Brown Brown Female 66
Red Brown Female 16
Blond Brown Female 4
Black Blue Female 9
Brown Blue Female 34
Red Blue Female 7
Blond Blue Female 64
Black Hazel Female 5
Brown Hazel Female 29
Red Hazel Female 7
Blond Hazel Female 5
Black Green Female 2
Brown Green Female 14
Red Green Female 7
Blond Green Female 8

economics

library(ggplot2)
head(economics)
date pce pop psavert uempmed unemploy
1967-06-30 507.8 198712 9.8 4.5 2944
1967-07-31 510.9 198911 9.8 4.7 2945
1967-08-31 516.7 199113 9.0 4.6 2958
1967-09-30 513.3 199311 9.8 4.9 3143
1967-10-31 518.5 199498 9.7 4.7 3066
1967-11-30 526.2 199657 9.4 4.8 3018

\(\\\)

Plot 1: Simple Bar Chart

dat <- subset(haireye, Sex == "Female" & Eye == "Blue")

p1 <- mPlot(x = 'Hair', 
            y = list('Freq'), 
            data = dat, 
            type = 'Bar', 
            labels = list("Count"))

p1$show('inline', include_assets = TRUE)
Loading required package: reshape2

\(\\\)

Plot 2: Simple Bar Chart, tag: “No Hover

p2 <- mPlot(x = 'Hair', 
            y = list('Freq'), 
            data = dat, 
            type = 'Bar', 
            labels = list("Count"))

p2$set(hideHover = "auto")

p2$show('inline', include_assets = TRUE)

\(\\\)

Plot 3: Multi Bar Chart

dat <- subset(haireye, Sex == "Female")

p3 <- mPlot(Freq ~ Eye, 
            group = "Hair", 
            data = dat, 
            type = "Bar", 
            labels = 1:4)

p3$show('inline', include_assets = TRUE)

\(\\\)

Plot 4: Line Chart

dat <- transform(economics, date = as.character(date))

p4 <- mPlot(x = "date", 
            y = list("psavert", "uempmed"),
            data = dat, 
            type = 'Line',
            pointSize = 0, 
            lineWidth = 1)

p4$set(xLabelFormat = "#! function (x) { return x.toString(); } !#")

p4$show('inline', include_assets = TRUE)

\(\\\)

Plot 5: Area Chart

dat <- transform(economics, date = as.character(date))

p4 <- mPlot(x = "date", 
            y = list("psavert", "uempmed"),
            data = dat, 
            type = 'Area',
            pointSize = 0, 
            lineWidth = 1)

p4$set(xLabelFormat = "#! function (x) { return x.toString(); } !#")

p4$show('inline', include_assets = TRUE)

Reference