test.Rmd

---
title: "Test"
author: "Joël Gombin"
date: "15 février 2016"
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r fig1}
plot(1:10)
```


```{r fig2}
# set default font family to serif
par(family="serif")
plot(1:10)
```


```{r fig3, dev = "cairo_pdf", dev.args=list(family = "mono")}
plot(1:10)

```

```{r fig4}
library(ggplot2)
qplot(mpg, wt, data = mtcars)
```

```{r fig5, dev = "cairo_pdf", dev.args=list(family = "mono")}
qplot(mpg, wt, data = mtcars)
```

```{r fig6}
library(grid)
grid.newpage()
grid.text("Test1233")
```

```{r fig7, dev = "cairo_pdf", dev.args=list(family = "mono")}
library(grid)
grid.newpage()
grid.text("Test1233")
```

```{r fig8, dev = "cairo_pdf", dev.args=list(family = "mono")}
library(grid)
grid.newpage()
grid.text("Test1233", gp = gpar(family = "serif"))
```

```{r fig9}
par(family="")
library(tmap)
data(World)
qtm(World, title = "Test")
```

```{r fig10}
qtm(World, title = "Test", style = "classic") 
```

```{r fig11}
par(family="mono")
qtm(World, title = "Test", style = "classic") 
```

```{r fig12, dev = "cairo_pdf", dev.args=list(family = "mono")}
par(family="")
qtm(World, title = "Test", style = "classic") 
```