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
a numeric vector, overall ranking of the countries.
country
a character vector.
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.
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)