23
24
The event was held during August 8--24, 2008, in Beijing.
25
27
% This is a simple two-way contingency table of counts.
29
\url{http://www.associatedcontent.com/article/979484/2008_summer_olympic_medal_count_total.html}.
31
\url{http://www.associatedcontent.com/article/979484/2008_summer_olympic_medal_count_total.html}.
44
47
## maybe str(olympic) ; plot(olympic) ...
46
with(head(olympic, n=8),
47
barplot(rbind(gold,silver,bronze),
48
col=c("gold","grey","brown"), # No "silver" or "bronze"!
49
names.arg=country, cex.names=0.5,
50
beside=TRUE, main="2008 Summer Olympic Final Medal Count",
51
ylab="Medal count", las=1,
52
sub="Top 8 countries; 'gold'=gold, 'grey'=silver, 'brown'=bronze"))
48
\dontrun{ with(head(olympic, n = 8),
49
barplot(rbind(gold,silver,bronze),
50
col = c("gold","grey","brown"), # No "silver" or "bronze"!
51
names.arg = country, cex.names = 0.5,
52
beside = TRUE, main = "2008 Summer Olympic Final Medal Count",
53
ylab = "Medal count", las = 1,
54
sub = "Top 8 countries; 'gold'=gold, 'grey'=silver, 'brown'=bronze")) }