Sochi Olympic Medals

For those who are addicted to R and haven’t the time to click the mouse on a web browser you too can still be informed about the results of the 2014 Sochi Winter Olympics. I was inspired by a SO response around the London games a couple years back.

Packages to Load

packs <- c("knitr", "ggplot2", "XML", "reshape2", "rCharts")
lapply(packs, require, character.only = TRUE)

The Script

olympics <- 
function(theurl = "http://www.sochi2014.com/en/medal-standings", include.zero = FALSE) {
 
    invisible(lapply(c('ggplot2', 'XML', 'reshape2') , require, character.only=TRUE))
 
    ## Grab Data, Clean and Reshape
    raw <- readHTMLTable(theurl, header=FALSE, 
        colClasses = c(rep("factor", 2), rep("numeric", 4)))
    raw <- as.data.frame(raw)[, -1]
    colnames(raw) <- c("Country", "Gold", "Silver", "Bronze", "Total")
    raw <- with(raw, raw[order(Total, Gold, Silver, Bronze), ])
    if (!include.zero) {
        raw <- raw[raw[, "Total"] != 0, ]
    }
    raw[, "Country"] <- factor(raw[, "Country"], levels = raw[, "Country"])
    rownames(raw) <- NULL
    mdat <- melt(raw, value.name = "Count", variable.name = "Place", id.var = "Country")
    mdat[, "Place"] <- factor(mdat[, "Place"], levels=c("Gold", "Silver", "Bronze", "Total"))  
    ## Plot the Data
    plot1 <- ggplot(mdat, aes(x = Count, y = Country, colour = Place)) +
      geom_point() +
      facet_grid(.~Place) + theme_bw()+
      scale_colour_manual(values=c("#CC6600", "#999999", "#FFCC33", "#000000")) 
    print(plot1)
 
    return(invisible(raw))
}

The Visual Results

x <- olympics()

As a Data Table

dTable(x)$show('inline', include_assets = TRUE, cdn = TRUE)

WordPress and Data Table don’t play well together so you’ll need to run the code to see it in action.

Discussion

I have chosen a dot plot to display the data because it’s easy to quickly get a sense of the data yet be able to compare relatively easily. Dot plots take advantage of the powerful pre-attentive attribute of distance (The most powerful way to visually convey quantitative information). Stephen Few gives his two cents about dot plots here.

I’m lazy but this would be a fun Shiny app to build. [EDIT @Ty Henkaline answers the call for a Shiny app and provides the ui.R and server.R]

Thanks to @Ramnath for help implementing the chart as a jQuery DataTable.

---

*Created using the reports package

---

@tylerrinker Nice work! Here is a short script to visualize it using rCharts and NVD3 https://t.co/x3BiCKLgVX

— Ramnath Vaidyanathan (@ramnath_vaidya) February 10, 2014

@tylerrinker Kudos for demo of how to use #rstats to pull real-time medal standings for #Olympics2014 at #Sochi! http://t.co/F4nJqFYQ8Y

— Ty Henkaline (@tyhenkaline) February 10, 2014

Advertisement