---
title: "The tactile theme"
subtitle: "tactile"
author: "Johan Larsson"
date: "`r Sys.Date()`"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{The tactile theme}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r setup, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

**tactile** introduces a new theme for **latice** that does a few things,
namely

* minimizes paddings around the plot,
* halves axis tick lengths,
* uses a color theme based on **RColorBrewer**,
* decreases title size *slightly*,
* Sets strip backgrounds to grey.

We now turn to illustrating the differences. First, we use
`lattice::show.settings()` for an overview over the default settings.

```{r, fig.show = "hold", fig.width = 6, fig.height = 4}
library(tactile)
show.settings()
show.settings(tactile.theme())
```

Then we plot a sample plot (from
[http://latticeextra.r-forge.r-project.org/](http://latticeextra.r-forge.r-project.org/)).

```{r, fig.width = 6, fig.height = 4.5}
set.seed(0)

## create a plot to demonstrate graphical settings
obj <- xyplot(
  Sepal.Length + Sepal.Width ~ Petal.Length + Petal.Width,
  iris,
  type = c("p", "r"),
  jitter.x = TRUE,
  jitter.y = TRUE,
  factor = 5,
  auto.key = list(lines = TRUE, rectangles = TRUE, space = "top")
)

obj <- update(
  obj,
  legend = list(
    right = list(
      fun = "draw.colorkey",
      args = list(list(at = 0:100))
    )
  )
)

## draw with default theme
obj
```

```{r, fig.width = 6, fig.height = 4.5}
## draw with tactile.theme()
update(obj, par.settings = tactile.theme())
```