Revise figure 3.1

[melimelo24]

Figure 3.1 issues:

• captions a and b are inverted
• values on the "medals per country of athletes" figure are wrong? For instance it shows 8 for Great Britain but computing a summary shows that the value is 11:

Top lines of paralympic_1500 |> summarise(n = n(), .by =country_of_athlete) |> arrange(desc(n)):
Great Britain | 11
Kenya | 10
Algeria | 5
Russian Federation | 5
Tunisia | 5
Spain | 4

I suspect a filter has been applied but it is not clearly reported in the text :)