thematic.Rmd

---
title: "Thematic demo"
output: 
  html_document
---

```{r setup, include=FALSE}
library(bootstraplib)
bs_theme_base_colors(bg = "black", fg = "white")
bs_theme_accent_colors(primary = "salmon")
thematic::thematic_rmd()
```

## {.tabset .tabset-pills}

### ggplot2 

```{r, message=FALSE, echo = FALSE}
library(ggplot2)
ggplot(diamonds[sample(nrow(diamonds), 1000), ], aes(carat, price)) +
  geom_point(alpha = 0.2) +
  geom_smooth() +
  facet_wrap(~cut) + ggtitle("Diamond price by carat and cut")
```

### Lattice 

```{r echo = FALSE}
lattice::show.settings()
```

### Base

```{r echo = FALSE}
pairs(
  iris[,1:4], pch = 19, 
  col = iris$Species, lower.panel = NULL
)
```