Combo bar line

chartjs_combo.Rmd

---
title: "Flex Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    horizontal_layout: fill
---

```{r setup, include=FALSE}
# Load packages and initialize data here
library(flexdashboard)
library(chartjs)
```

Bars Chart
=======================================

### Bar Chart

```{r}
chartjs() %>%
  cjsBar(labels = LETTERS[1:10]) %>%
  cjsSeries(data = c(abs(c(rnorm(8))), NA, 0.5), label = "Series 1") %>%
  cjsSeries(data = abs(c(rnorm(10))), label = "Series 2") %>%
  cjsSeries(data = abs(c(rnorm(10))), label = "Series 3") %>% 
  cjsLegend() %>%
  cjsTitle("Bar Chart", fontSize = 30)
```

Line Chart
=======================================

### Line Chart

```{r}
chartjs() %>%
  cjsLine(labels = LETTERS[1:10]) %>%
  cjsSeries(data = c(abs(c(rnorm(8))), NA, 0.5), label = "Series 1") %>%
  cjsSeries(data = abs(c(rnorm(10))), label = "Series 2") %>%
  cjsSeries(data = abs(c(rnorm(10))), label = "Series 3") %>% 
  cjsLegend() %>% 
  cjsTitle("Line Chart", fontSize = 30)
```

Pie Chart
=======================================

### Pie Chart

```{r}
chartjs() %>%
  cjsPie(labels = LETTERS[1:4]) %>%
  cjsSeries(data = abs(c(rnorm(4)))) %>% 
  cjsLegend() %>%
  cjsTitle("Pie Chart", fontSize = 30)
```

Doughnut Chart
=======================================

### Doughnut Chart

```{r}
chartjs() %>%
  cjsDoughnut(labels = LETTERS[1:4]) %>%
  cjsSeries(data = abs(c(rnorm(4)))) %>% 
  cjsLegend() %>%
  cjsTitle("Doughnut Chart", fontSize = 30)
```

Radar Chart
=======================================

### Radar Chart

```{r}
chartjs() %>%
  cjsRadar(labels = c("Strength", "Perception", "Endurance", "Charisma", "Intelligence", "Agility", "Luck")) %>%
  cjsSeries(data = c(10, 4, 10, 2, 4, 6, 8)) %>% 
  cjsSeries(data = c(4, 8, 5, 8, 7, 7, 5)) %>% 
  cjsEditScale(axis = NULL, ticks = list(beginAtZero = TRUE)) %>% 
  cjsLegend() %>%
  cjsTitle("Radar Chart", fontSize = 30)
```

Combo bar line
=======================================

### Combo

```{r combo bar line}
chartjs(height = "200px") %>%
  cjsBar(labels = LETTERS[1:8]) %>%
  cjsSeries(data = abs(c(rnorm(8))), label = "Series 1") %>%
  cjsSeries(data = abs(c(rnorm(8))), label = "Series 2") %>%
  cjsSeries(data = abs(c(rnorm(8))), label = "Series 3", type = "line") %>%
  cjsLegend(position = "bottom", labels = list(fontSize = 32))
```