pan>
<span class="co">#&gt;   filter(Species == "setosa") %&gt;%</span>
<span class="co">#&gt;   ggplot(aes(Sepal.Length, Sepal.Width)) + </span>
<span class="co">#&gt;   geom_point()</span>
<span class="co">#&gt; ```</span>
<span class="co">#&gt; ## Iris versicolor</span>
<span class="co">#&gt; </span>
<span class="co">#&gt; This species of flower is great! It has a mean sepal length of </span>
<span class="co">#&gt; `r mean(iris[iris$Species == "versicolor", "Sepal.Length"])`, and </span>
<span class="co"