Salmon-chum-Columbia-River-ESU-CRchum2020.Rmd

---
title: Salmon-chum-Columbia-River-ESU-CRchum2020
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Salmon-chum-Columbia-River-ESU-CRchum2020}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

# Data

```{r}
data('Salmon-chum-Columbia-River-ESU-CRchum2020', package='VRData')
```

### [View raw data](../data/Salmon-chum-Columbia-River-ESU-CRchum2020.html) — [Download raw data](../data/Salmon-chum-Columbia-River-ESU-CRchum2020.csv)

```{r, echo = FALSE}
out$NUMBER_OF_SPAWNERS[out$NUMBER_OF_SPAWNERS == -99] <- NA
ggplot2::ggplot(out, ggplot2::aes(x=.data$YEAR, y=.data$NUMBER_OF_SPAWNERS)) +
   ggplot2::geom_point(na.rm = TRUE) +
   ggplot2::ggtitle('Spawner Counts') +
   ggplot2::facet_wrap(~COMMON_POPULATION_NAME)
```

```{r, echo = FALSE}
out$FRACWILD[out$FRACWILD == -99] <- NA
ggplot2::ggplot(out, ggplot2::aes(x=.data$YEAR, y=.data$FRACWILD)) +
   ggplot2::geom_point(na.rm = TRUE) +
   ggplot2::ggtitle('Fraction Wild') +
   ggplot2::ylim(0,1) +
   ggplot2::facet_wrap(~COMMON_POPULATION_NAME)
```

# Common Metrics