Category 13: Brown British Beer

BJCP-category-13.Rmd

---
title: "Category 13"
author: "Rob Friesel"
date: "10/20/2017"
output: html_document
---

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

cat13 <- data.frame(
  Style = c("13A. Dark Mild", "13B. British Brown Ale", "13C. English Porter"),
  IBU.low = c(10, 20, 18),
  IBU.high = c(25, 30, 35),
  OG.low = c(1.030, 1.040, 1.040),
  OG.high = c(1.038, 1.052, 1.052)
)
```

## Category 13: Brown British Beer
```{r echo=FALSE}
# SRM : 12 - 30

ggplot(cat13, aes(IBU.high, OG.high, group = Style, color = Style)) +
  geom_point(aes(IBU.high, OG.high, group = Style, color = Style)) +
  geom_point(aes(IBU.low, OG.low, group = Style, color = Style)) +
  geom_segment(aes(x = IBU.low, y = OG.low,
                   xend = IBU.high, yend = OG.high,
                   group = Style, color = Style)) +
  scale_color_manual(values = c("#C35404", "#811F02", "#4B0601")) +
  ylab("Original Gravity Range") +
  xlab("IBU Range")
```