Last data update: 2014.03.03
|
R: 2008 and 2012 Summer Olympic Final Medal Count Data
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)
Format
A data frame with 87 or 85 observations on the following 6 variables.
rank a numeric vector, overall ranking of the countries.
country a factor.
gold a numeric vector, number of gold medals.
silver a numeric vector, number of silver medals.
bronze a numeric vector, number of bronze medals.
totalmedal a numeric vector, total number of medals.
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.
See Also
grc .
Examples
summary(olym08)
summary(olym12)
## maybe str(olym08) ; plot(olym08) ...
## Not run: 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"))
## End(Not run)
Results
|