ordering facet_wrap levels by frequency

Question

I'm trying to do a waffle chart for the championships won by F1 drivers so far. The chart comes out good but it comes out with alphabetical labels. I want it to start from the most titles won to the least.

I've tried ordering and fct_relevel. But nothing works. Below is the code

ggplot(data = dfc, aes(fill=Champions, values=one)) +
  geom_waffle(color = "cornsilk", size=0.25, n_rows=7)+
  facet_wrap(~Champions, nrow = 3, strip.position = "bottom",labeller = label_wrap_gen(6))

And this is the result I'm looking for.

You can find the entire code here

The dataset looks like

Season    Champions    Team   one
1              a           x     1
2              a           x     1
3              b           y     1
4              a           x     1
5              c           z     1

`Error: At least one layer must contain all faceting variables: \`Champions\``. (It is not in your sample data.) — r2evans, Sep 08 '21 at 17:01
Please trim your code to make it easier to find your problem. Follow these guidelines to create a [minimal reproducible example](https://stackoverflow.com/help/minimal-reproducible-example). — Community, Sep 08 '21 at 17:11
@RichardTelford yeah, tried that as well. Didn't work, but the answer worked (fct_infreq) — Pavan, Sep 09 '21 at 06:07

score 0 · Accepted Answer · answered Sep 08 '21 at 21:40

Here's a solution using forcats (also part of the tidyverse package).

fct_infreq() orders factors according to their frequency in the data, and you can use that to specify the ordering of the levels in your data.

dfc$Champions <- factor(dfc$Champions, levels=levels(fct_infreq(dfc$Champions)))

ggplot(data = dfc, aes(fill=Champions, values=one)) +
  geom_waffle(color = "cornsilk", size=0.25, n_rows=7) +
  facet_wrap(~Champions, nrow = 3, strip.position = "bottom", labeller = label_wrap_gen(6))

ordering facet_wrap levels by frequency

1 Answers1