data(oly12)
mtab <- with(oly12, table(Country, Gold))
(mtab <- head(sort(mtab[, "1"] + 2 * mtab[, "2"], decreasing = TRUE), 10))
if (FALSE) {
barplot(mtab, col = "gold", cex.names = 0.8, names = abbreviate(names(mtab)),
beside = TRUE, main = "2012 Summer Olympic Final Gold Medal Count",
ylab = "Gold medal count", las = 1, sub = "Top 10 countries")
}
Run the code above in your browser using DataLab