Just a quick note- now that you got this far (!), you could look into the `forcats`

package for reordering factors (https://github.com/jtr13/codehelp/blob/master/R/reorder.md).

Also for formatting the `geom_text`

above, you may want to look into the `scales`

package, specifically the number function with the accuracy argument.

```
+ geom_text(aes(label = scales::number(mean, accuracy = 0.1)))
```