title: fct_reorder/ggplot2 not ordering as desired
body: <p>I am working on the most recent TidyTuesday data and had an issue in my plot. New Jersey is shown above Nashville despite Nashville overall has more values. I am unsure how to fix this.</p>
  <p>I think it has something to do with the one tweet by user etmckinley being sorted in Nashville first since it alphabetically comes before username sqlsekou. Perhaps there is a way to reverse the sorting and have it work correctly?</p>
  <p>If not, how else can I order the data correctly to have Nashville above New Jersey?</p>
  <pre><code>library(tidyverse)
  tweets &lt;- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2021/2021-06-15/tweets.csv')
  
  top_states &lt;- tweets %&gt;% 
    filter(
      location != &quot;iPhone: 34.704040,-86.722909&quot;,
      location != &quot;Kevin.Elder@GCSU.edu&quot;
    ) %&gt;% 
    drop_na(location) %&gt;% 
    count(location, sort = TRUE) %&gt;% 
    slice_max(n, n = 7) %&gt;% 
    pull(location)
  
  tweets %&gt;% 
    filter(
      location != &quot;iPhone: 34.704040,-86.722909&quot;,
      location != &quot;Kevin.Elder@GCSU.edu&quot;
    ) %&gt;% 
    drop_na(location) %&gt;% 
    count(location, username, sort = TRUE) %&gt;% 
    filter(location %in% top_states) %&gt;% 
    mutate(location = fct_reorder(location, n)) %&gt;% 
    mutate(username = fct_reorder(username, -n)) %&gt;% 
    ggplot(aes(n, location, fill = username)) +
      geom_col() +
      scale_fill_brewer(palette = &quot;Set3&quot;) +
      labs(
        x = &quot;Quantity of tweets&quot;,
        y = &quot;Location&quot;,
        title = &quot;Tweets by location over 3 month period&quot;,
        subtitle = &quot;Filled by username&quot;
      )
  </code></pre>
  <p><a href="https://i.stack.imgur.com/JbhwN.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/JbhwN.png" alt="enter image description here" /></a></p>