s of flower is great! It has a mean sepal length of 
`.r mean(iris[iris$Species == "virginica", "Sepal.Length"])`, and a
mean sepal width of `.r mean(iris[iris$Species == "virginica", "Sepal.Width"])`. 
That looks like this on a graph!

.```{r}
iris %&gt;%
  filter(Species == "virginica") %&gt;%
  ggplot(aes(Sepal.Length, Sepal.Width)) + 
  geom_point()
.```
</code></pre>
<p>This is a great report, and it probably didn’t take that long to create. However, one day Joe down the hall points out that there ar