---
title: "Poor fonts in R Markdown plots"
date: "February 3, 2017"
output: 
  pdf_document:
    fig_caption: yes
---

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

This famous (Fisher's or Anderson's) iris data set gives the measurements in centimeters of the variables sepal length and width and petal length and width, respectively, for 50 flowers from each of 3 species of iris. The species are _Iris setosa_, _versicolor_, and _virginica_. 

```{r, fig.cap="This is a graph with poor fonts."}
library(ggplot2)
ggplot(data = iris, aes(x = Sepal.Length, y = Petal.Width, col = Species)) +
  geom_point() +
  ggtitle("Petal width versus sepal length by species") +
  ylab("Petal width") + 
  xlab("Sepal length")
```

`iris` is a data frame with 150 cases (rows) and 5 variables (columns) named `Sepal.Length`, `Sepal.Width`, `Petal.Length`, `Petal.Width`, and `Species`. 
