Nothing
## ----setup, warning=FALSE, message=FALSE, echo=FALSE---------------------
library(dplyr)
## ----install, eval=FALSE-------------------------------------------------
#
# install.packages('c3')
#
# # OR
#
# devtools::install_github("mrjoh3/c3")
#
## ----data, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
library(c3)
data <- data.frame(a = abs(rnorm(20) * 10),
b = abs(rnorm(20) * 10),
date = seq(as.Date("2014-01-01"), by = "month", length.out = 20))
c3(data)
## ----pipe, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
data %>% c3()
## ----spline, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
data %>%
c3() %>%
c3_line('spline')
## ----step, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
data %>%
c3(x = 'date') %>%
c3_line('area-step')
## ----bar, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
data[1:10, ] %>%
c3() %>%
c3_bar(stacked = TRUE,
rotate = TRUE)
## ----mixed, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
data$c <- abs(rnorm(20) *10)
data$d <- abs(rnorm(20) *10)
data %>%
c3() %>%
c3_mixedGeom(type = 'bar',
stacked = c('b','d'),
types = list(a='area',
c='spline')
)
## ----y2, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
data %>%
select(date, a, b) %>%
c3(x = 'date',
axes = list(a = 'y',
b = 'y2')) %>%
c3_mixedGeom(types = list(a = 'line',
b = 'area')) %>%
y2Axis()
## ----scatter, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
iris %>%
c3(x = 'Sepal_Length',
y = 'Sepal_Width',
group = 'Species') %>%
c3_scatter()
## ----pie, warning=FALSE, message=FALSE, fig.align='center', fig.width=4, fig.height=3----
data.frame(sugar = 20,
fat = 45,
salt = 10) %>%
c3() %>%
c3_pie()
## ----donut, warning=FALSE, message=FALSE, fig.align='center', fig.width=4, fig.height=3----
data.frame(red = 82, green = 33, blue = 93) %>%
c3(colors = list(red = 'red',
green = 'green',
blue = 'blue')) %>%
c3_donut(title = '#d053ee')
## ----gauge, warning=FALSE, message=FALSE, fig.align='center', fig.width=6, fig.height=3----
data.frame(data = 80) %>%
c3() %>%
c3_gauge()
## ----grid, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
data %>%
c3() %>%
grid('y') %>%
grid('x',
show = F,
lines = data.frame(value = c(3, 10),
text= c('Line 1','Line 2')))
## ----region, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
data %>%
c3() %>%
region(data.frame(axis = 'x',
start = 5,
end = 6))
## ----subchart, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
data %>%
c3(x = 'date') %>%
subchart()
## ----brewer, warning=FALSE, message=FALSE, fig.align='center', fig.width=4, fig.height=3----
data.frame(sugar = 20,
fat = 45,
salt = 10,
vegetables = 60) %>%
c3() %>%
c3_pie() %>%
RColorBrewer()
## ----viridis, warning=FALSE, message=FALSE, fig.align='center', fig.width=4, fig.height=3----
data.frame(sugar = 20,
fat = 45,
salt = 10,
vegetables = 60) %>%
c3() %>%
c3_pie() %>%
c3_viridis()
## ----point, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
data %>%
c3(x = 'date') %>%
point_options(r = 6,
expand.r = 2)
## ----onclick, eval=FALSE-------------------------------------------------
#
# data %>%
# c3(onclick = htmlwidgets::JS('function(d, element){console.log(d)}'))
#
## ----tooltip, warning=FALSE, message=FALSE, fig.align='center', fig.width=8, fig.height=3----
library(htmlwidgets)
data %>%
c3() %>%
tooltip(format = list(title = JS("function (x) { return 'Data ' + x; }"),
name = JS('function (name, ratio, id, index) { return name; }'),
value = JS('function (value, ratio, id, index) { return ratio; }')))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.