VGAM (version 0.8-4.1)

olympic: 2008 Summer Olympic Final Medal Count Data

Description

Final count of medal winners by country for the 2008 Summer Olympic games in Beijing.

Usage

data(olympic)

source

http://www.associatedcontent.com/article/979484/2008_summer_olympic_medal_count_total.html.

Details

The event was held during August 8--24, 2008, in Beijing.

References

The official English webite was http://en.beijing2008.cn.

See Also

grc.

Examples

summary(olympic)
## maybe str(olympic) ; plot(olympic) ...
with(head(olympic, n = 8),
barplot(rbind(gold,silver,bronze),
        col = c("gold","grey","brown"),  # No "silver" or "bronze"!
        names.arg = country, cex.names = 0.5,
        beside = TRUE, main = "2008 Summer Olympic Final Medal Count",
        ylab = "Medal count", las = 1,
        sub = "Top 8 countries; 'gold'=gold, 'grey'=silver, 'brown'=bronze"))