>#&gt; mean sepal width of `r mean(iris[iris$Species == "versicolor", "Sepal.Width"])`. </span>
<span class="co">#&gt; That looks like this on a graph!</span>
<span class="co">#&gt; </span>
<span class="co">#&gt; ```{r}</span>
<span class="co">#&gt; iris %&gt;%</span>
<span class="co">#&gt;   filter(Species == "versicolor") %&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">#&