Use reorder_within() in Chapter 5. Closes juliasilge#47.

juliasilge · juliasilge · commit 12e121eecb82 · 2019-09-02T16:00:33.000-06:00
diff --git a/05-document-term-matrices.Rmd b/05-document-term-matrices.Rmd
@@ -140,11 +140,12 @@ inaug_tf_idf %>%
   group_by(document) %>%
   top_n(10, tf_idf) %>%
   ungroup() %>%
-  mutate(term = reorder(term, tf_idf)) %>%
+  mutate(term = reorder_within(term, tf_idf, document)) %>%
   ggplot(aes(term, tf_idf, fill = document)) +
   geom_col(show.legend = FALSE) +
   facet_wrap(~ document, scales = "free") +
   coord_flip() +
+  scale_x_reordered() +
   labs(x = "",
        y = "tf-idf")
 ```
