VGAM (version 0.7-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"))