```{r echo=FALSE}
library("knitr")
# upload all images to imgur.com
opts_knit$set(
  upload.fun = imgur_upload,
  base.url = NULL
)
```

```{r}
library("ggplot2")
```

## Scatter plot

```{r tidy=FALSE}
ggplot(mtcars, aes(cyl, hp)) + 
  geom_point() + 
  theme_grey(base_size = 18)
```

## Bar plot

```{r}
ggplot(iris, aes(Species, Sepal.Length)) + 
  stat_boxplot() +
  theme_grey(base_size = 18)
```
