olympics: 2008 and 2012 Summer Olympic Final Medal Count Data

Description

Final medal count, by country, for the Summer 2008 and 2012 Olympic Games.

Usage

data(olym08)
data(olym12)

Arguments

Details

The events were held during (i) August 8--24, 2008, in Beijing; and (ii) 27 July--12 August, 2012, in London.

References

The official English website was/is http://en.beijing2008.cn and http://www.london2012.com. Help from Viet Hoang Quoc is gratefully acknowledged.

Examples

Run this code

summary(olym08)
summary(olym12)
## maybe str(olym08) ; plot(olym08) ...
par(mfrow = c(1, 2))
myylim <- c(0, 55)
with(head(olym08, n = 8),
barplot(rbind(gold, silver, bronze),
        col = c("gold", "grey", "brown"),  # No "silver" or "bronze"!
#               "gold", "grey71", "chocolate4",
        names.arg = country, cex.names = 0.5, ylim = myylim,
        beside = TRUE, main = "2008 Summer Olympic Final Medal Count",
        ylab = "Medal count", las = 1,
        sub = "Top 8 countries; 'gold'=gold, 'grey'=silver, 'brown'=bronze"))
with(head(olym12, n = 8),
barplot(rbind(gold, silver, bronze),
        col = c("gold", "grey", "brown"),  # No "silver" or "bronze"!
        names.arg = country, cex.names = 0.5, ylim = myylim,
        beside = TRUE, main = "2012 Summer Olympic Final Medal Count",
        ylab = "Medal count", las = 1,
        sub = "Top 8 countries; 'gold'=gold, 'grey'=silver, 'brown'=bronze"))