---
title: "1 input variable specimen"
output:
  html_document:
    df_print: paged
vignette: >
  %\VignetteIndexEntry{1v_specimen}
  %\VignetteEngine{knitr::rmarkdown}
  %\usepackage[utf8]{inputenc}
---

<style>
  .main-container {
  max-width: 1200px !important;
  }
  h1.title {
  font-family: Helvetica, Arial, sans-serif;
  font-size: 20px;
  color: #4d4d4d;
  margin-top: 100px;
  }
  h1 {
  font-family: Helvetica, Arial, sans-serif;
  font-size: 20px;
  color: 4d4d4d;
  margin-top: 35px;
  }
  h2 {
  font-family: Helvetica, Arial, sans-serif;
  font-size: 16px;
  color: #4d4d4d;
  margin-top: 25px;
  font-weight: bold;
  }
  h3 {
  font-family: Helvetica, Arial, sans-serif;
  font-size: 14px;
  color: #4d4d4d;
  margin-top: 15px;
  font-weight: bold;
  }
  h4 {
  font-family: Helvetica, Arial, sans-serif;
  font-size: 14px;
  color: #4d4d4d;
  margin-top: 10px;
  font-style: oblique;
  }
  h4.author {
  font-family: Helvetica, Arial, sans-serif;
  font-size: 10pt;
  margin-top: 0px;
  }
  h4.date {
  font-family: Helvetica, Arial, sans-serif;
  font-size: 10pt;
  margin-top: 0px;
  }
</style>

Specimen of the graphics that only require 1 input variable and that, up to now, are being considered by the brinton's `wideplot()`, `longplot()` and `plotup()` functions.

```{r, echo=FALSE, message=FALSE, warning=FALSE, comment=FALSE}
knitr::opts_chunk$set(
  message=FALSE, 
  warning=FALSE, 
  comment=NA, 
  dev='png', 
  echo=FALSE
  )
# length(unique(data$vars))/6 + 0.5
```

```{r, echo=FALSE, message=FALSE}
# library(dplyr)
```


# Logical

```{r logical_01, fig.width=12, fig.height=0.83}
knitr::include_graphics('figures/logical_01-1.png')
cat("lgc = c('line graph', 'point graph', 'point-to-point graph')")
```

```{r logical_02, fig.width=12, fig.height=0.83}
knitr::include_graphics('figures/logical_02-1.png')
cat("lgc = c('tile plot', 'linerange graph')")
```

```{r logical_03, fig.width=12, fig.height=0.83}
knitr::include_graphics('figures/logical_03-1.png')
cat("lgc = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
```

```{r logical_04, fig.width=12, fig.height=0.83}
knitr::include_graphics('figures/logical_04-1.png')
cat("lgc = c('bar graph', 'bw bar graph', 'color bar graph')")
```

# Ordered factor

```{r ordered_01, fig.width=12, fig.height=1.5}
knitr::include_graphics('figures/ordered_01-1.png')
cat("ord = c('line graph', 'point graph', 'point-to-point graph')")
```

```{r ordered_02, fig.width=12, fig.height=1.5}
knitr::include_graphics('figures/ordered_02-1.png')
cat("ord = c('tile plot', 'linerange graph')")
```

```{r ordered_03, fig.width=12, fig.height=1.5}
knitr::include_graphics('figures/ordered_03-1.png')
cat("lgc = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
```

```{r ordered_04, fig.width=12, fig.height=1.5}
knitr::include_graphics('figures/ordered_04-1.png')
cat("ord = c('bar graph', 'bw bar graph', 'color bar graph')")
```

# Factor

```{r factor_01, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_01-1.png')
cat("fac = c('line graph', 'freq. reordered line graph', 'alphab. reordered line graph')")
```

```{r factor_02, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_02-1.png')
cat("fac = c('point-to-point graph', 'freq. reordered point-to-point graph', 'alphab. reordered point-to-point graph')")
```

```{r factor_03, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_03-1.png')
cat("fac = c('linerange graph', 'freq. reordered linerange graph', 'alphab. reordered linerange graph')")
```

```{r factor_04, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_04-1.png')
cat("fac = c('point graph', 'freq. reordered point graph', 'alphab. reordered point graph')")
```

```{r factor_05, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_05-1.png')
cat("fac = c('tile plot', 'freq. reordered tile plot', 'alphab. reordered tile plot')")
```

```{r factor_06, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_06-1.png')
cat("fac = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
```

```{r factor_07, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_07-1.png')
cat("fac = c('freq. reordered binned heatmap', 
    'bw freq. reordered binned heatmap', 
    'color freq. reordered binned heatmap')")
```

```{r factor_08, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_08-1.png')
cat("fac = c('alphab. reordered binned heatmap', 
    'bw alphab. reordered binned heatmap', 
    'color alphab. reordered binned heatmap')")
```

```{r factor_09, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_09-1.png')
cat("fac = c('bar graph', 'bw bar graph', 'color bar graph')")
```

```{r factor_10, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_10-1.png')
cat("fac = c('freq. reordered bar graph', 'bw freq. reordered bar graph', 'color freq. reordered bar graph')")
```

```{r factor_11, fig.width=12, fig.height=1.17}
knitr::include_graphics('figures/factor_11-1.png')
cat("fac = c('alphab. reordered bar graph', 'bw alphab. reordered bar graph', 'color alphab. reordered bar graph')")
```

# Character

```{r character_01, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_01-1.png')
cat("cha = c('line graph', 'freq. reordered line graph', 'alphab. reordered line graph')")
```

```{r character_02, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_02-1.png')
cat("cha = c('point-to-point graph', 'freq. reordered point-to-point graph', 'alphab. reordered point-to-point graph')")
```

```{r character_03, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_03-1.png')
cat("cha = c('linerange graph', 'freq. reordered linerange graph', 'alphab. reordered linerange graph')")
```

```{r character_04, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_04-1.png')
cat("cha = c('point graph', 'freq. reordered point graph', 'alphab. reordered point graph')")
```

```{r character_05, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_05-1.png')
cat("cha = c('tile plot', 'freq. reordered tile plot', 'alphab. reordered tile plot')")
```

```{r character_06, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_06-1.png')
cat("cha = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
```

```{r character_07, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_07-1.png')
cat("cha = c('freq. reordered binned heatmap', 
    'bw freq. reordered binned heatmap', 
    'color freq. reordered binned heatmap')")
```

```{r character_08, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_08-1.png')
cat("cha = c('alphab. reordered binned heatmap', 
    'bw alphab. reordered binned heatmap', 
    'color alphab. reordered binned heatmap')")
```

```{r character_09, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_09-1.png')
cat("cha = c('bar graph', 'bw bar graph', 'color bar graph')")
```

```{r character_10, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_10-1.png')
cat("cha = c('freq. reordered bar graph', 'bw freq. reordered bar graph', 'color freq. reordered bar graph')")
```

```{r character_11, fig.width=12, fig.height=3}
knitr::include_graphics('figures/character_11-1.png')
cat("cha = c('alphab. reordered bar graph', 'bw alphab. reordered bar graph', 'color alphab. reordered bar graph')")
```

# Datetime

```{r datetime_01, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/datetime_01-1.png')
cat("dtt = c('line graph', 'stepped line graph')")
```

```{r datetime_02, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/datetime_02-1.png')
cat("dtt = c('point-to-point graph', 'stepped point-to-point graph')")
```

```{r datetime_05, fig.width=12, fig.height=2.4}
# gridExtra::grid.arrange(brinton::plotup(flights_dt50, "departure", "point graph", output = 'plots pane'),
#                         heights=grid::unit(c(2.4), c("in")),
#                         ncol=5)
knitr::include_graphics('figures/datetime_05-1.png')
cat("dtt = c('point graph')")
```

```{r datetime_03, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/datetime_03-1.png')
cat("dtt = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
```

```{r datetime_04, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/datetime_04-1.png')
cat("dtt = c('bw heatmap', 'color heatmap')")
```

# Numeric

```{r numeric_01, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_01-1.png')
cat("num = c('area graph')")
```

```{r numeric_17, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_17-1.png')
cat("num = c('stepped area graph', 'bw stepped area graph', 'color stepped area graph')")
```

```{r numeric_18, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_18-1.png')
cat("num = c('seq. stripe graph', 'bw seq. stripe graph', 'color seq. stripe graph')")
```

```{r numeric_02, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_02-1.png')
cat("num = c('line graph', 'stepped line graph')")
```

```{r numeric_16, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_16-1.png')
cat("num = c('point-to-point graph', 'stepped point-to-point graph')")
```

```{r numeric_03, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_03-1.png')
cat("num = c('point graph', 'bw point graph', 'color point graph')")
```

```{r numeric_04, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_04-1.png')
cat("num = c('binned point graph', 'bw binned point graph', 'color binned point graph')")
```

```{r numeric_05, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_05-1.png')
cat("num = c('point graph with trend line', 'bw point graph with trend line', 'color point graph with trend line')")
```

```{r numeric_06, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_06-1.png')
cat("num = c('binned heatmap', 'bw binned heatmap', 'color binned heatmap')")
```

```{r numeric_15, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_15-1.png')
cat("num = c('bw heatmap', 'color heatmap')")
```

```{r numeric_07, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_07-1.png')
cat("num = c('stripe graph', 'bw stripe graph', 'color stripe graph')")
```

```{r numeric_08, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_08-1.png')
cat("num = c('binned stripe graph', 'binned stripe graph', 'binned stripe graph')")
```

```{r numeric_09, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_09-1.png')
cat("num = c('bar graph', 'bw bar graph', 'color bar graph')")
```

```{r numeric_10, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_10-1.png')
cat("num = c('histogram', 'bw histogram', 'color histogram')")
```

```{r numeric_11, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_11-1.png')
cat("num = c('freq. polygon')")
```

```{r numeric_12, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_12-1.png')
cat("num = c('density plot', 'filled density plot')")
```

```{r numeric_13, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_13-1.png')
cat("num = c('violin plot', 'filled violin plot')")
```

```{r numeric_14, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_14-1.png')
cat("num = c('box plot', '3 uniaxial', 'qq plot')")
```

```{r numeric_19, fig.width=12, fig.height=2.4}
knitr::include_graphics('figures/numeric_19-1.png')
cat("num = c('ecdf plot', 'point ecdf plot', 'stepped ecdf plot')")
```

