I'd like to order the bars in a grouped bar chart.

This is my tibble.

```
# A tibble: 13 x 3                
   number    name                   prop     
       <dbl> <chr>                  <int>    
           1 Dog                     0.0664  
           1 Cow                     0.0628  
           1 Pig                     0.0166  
           1 Garden                  0.0163  
           2 Moose                   0.0619  
           2 Cliff                   0.0517  
           2 Hike                    0.0214  
           2 Dog                     0.0147  
           2 Cow                     0.0141  
           3 Pig                     0.0615  
           3 Garden                  0.0245  
           3 Moose                   0.0135  
           3 Cow                     0.0132  

```

I'd like to make a grouped bar chart where the groups are sorted from greatest to least for values of `prop`. I want the groups to be sorted from greatest to least, so the x-axis should read from left to right: `1, 2, 3` and then, within each group, I want it to be greatest to least.

The bars for the number `1` should be `Dog` then `Cow` then `Pig` then `Garden`

This is what I tried.

```
library(tidyverse)
library(ggplot2)

tib.ready <- tib %>% 
  mutate(name = fct_reorder(name, prop, sum)) %>% 
  group_by(number) %>% 
  mutate(name = fct_reorder(name, prop, sum)) %>% 
  ungroup() %>% 
  mutate(number = fct_reorder(factor(number), prop, sum)) 

```

I tried the solution that Matias Andina linked to. 

```
tib_ready <- with(tib_ready, 
       tib_ready[order(name, -as.numeric(prop)), ])

tib_ready %>%
ggplot(aes(number, prop, fill = name, label = name)) +
      geom_col(position = "dodge") +
      coord_flip()

```