olympic {VGAM} | R Documentation |
Final count of medal winners by country for the 2008 Summer Olympic games in Beijing.
data(olympic)
A data frame with 87 observations on the following 6 variables.
rank
country
gold
silver
bronze
totalmedal
The event was held during August 8–24, 2008, in Beijing.
http://www.associatedcontent.com/article/979484/2008_summer_olympic_medal_count_total.html.
The official English webite was http://en.beijing2008.cn.
grc
.
summary(olympic) ## maybe str(olympic) ; plot(olympic) ... ## Not run: 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")) ## End(Not run)