 class="st">"SPECIES_NAME"</span>)<span class="kw">[[</span><span class="fl">1</span>]]
<span class="co">#&gt; [1] "## Iris setosa\n\nThis species of flower is great! It has a mean sepal length of \n`r mean(iris[iris$Species == \"setosa\", \"Sepal.Length\"])`, and \nmean sepal width of `r mean(iris[iris$Species == \"setosa\", \"Sepal.Width\"])`. \nThat looks like this on a graph!\n\n```{r}\niris %&gt;%\n  filter(Species == \"setosa\") %&gt;%\n  ggplot(aes(Sepal.Length, Sepal.Width)) + \n  geom_point()\n```\