s[iris$Species == "SPECIES_NAME", "Sepal.Length"])`, and a
mean sepal width of `.r mean(iris[iris$Species == "SPECIES_NAME", "Sepal.Width"])`. 
That looks like this on a graph!

.```{r}
iris %&gt;%
  filter(Species == "SPECIES_NAME") %&gt;%
  ggplot(aes(Sepal.Length, Sepal.Width)) + 
  geom_point()
.```
</code></pre>
<p>When using <code>heddlr</code>, we’ll usually go ahead and save each of those patterns in their own files – for our example report, we’ll name those files <code>setup_pattern.Rmd</code