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