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)

Format

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.

Details

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

Source

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

References

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

See Also

grc.

Examples

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)