Visualize That - Chapter 4 - hot dogs

This is the hot dog example from Visualize That, Chapter4.

We will first download the data from the book’s website.

The second thing you will need to do is replace the path to where you have downloaded and unzipped the files for Chapter 4.

You will need to replace the path in the read.csv() command to your path. On Windows the path should have double backslashes or single forward slashes.

Next we will load the data.

hotdogs <- read.csv("/home/esuess/classes/2016-2017/02 Winter 2017/Stat 6610/Book/ch04/data/hot-dog-contest-winners.csv", sep=",", header=TRUE)
View(hotdogs)

A first bar chart.

# Default barchart
barplot(hotdogs$Dogs.eaten)

# Year labels
barplot(hotdogs$Dogs.eaten, names.arg=hotdogs$Year)

# Axis labels
barplot(hotdogs$Dogs.eaten, names.arg=hotdogs$Year, xlab="Year", ylab="Hot dogs and buns (HDB) eaten")

# Fill color and border
barplot(hotdogs$Dogs.eaten, names.arg=hotdogs$Year, col="red", border=NA, xlab="Year", ylab="Hot dogs and buns (HDB) eaten")

Next, highlighting the years the US competitor won.

# Highlight USA colors
fill_colors <- c()
for ( i in 1:length(hotdogs$Country) ) {
    if (hotdogs$Country[i] == "United States") {
        fill_colors <- c(fill_colors, "#821122")
    } else {
        fill_colors <- c(fill_colors, "#cccccc")
    }
}
barplot(hotdogs$Dogs.eaten, names.arg=hotdogs$Year, col=fill_colors, border=NA, xlab="Year", ylab="Hot dogs and buns (HDB) eaten")

Record years.

# Highlight record years with color
fill_colors <- c()
for ( i in 1:length(hotdogs$New.record) ) {
    if (hotdogs$New.record[i] == 1) {
        fill_colors <- c(fill_colors, "#821122")
    } else {
        fill_colors <- c(fill_colors, "#cccccc")
    }
}
barplot(hotdogs$Dogs.eaten, names.arg=hotdogs$Year, col=fill_colors, border=NA, xlab="Year", ylab="Hot dogs and buns (HDB) eaten")

Chaning the spacing

# Spacing
barplot(hotdogs$Dogs.eaten, names.arg=hotdogs$Year, col=fill_colors, border=NA, space=0.3, xlab="Year", ylab="Hot dogs and buns (HDB) eaten", main="Nathan's Hot Dog Eating Contest Results, 1980-2010")

barplot(hotdogs$Dogs.eaten, names.arg=hotdogs$Year, col=fill_colors, border=NA, space=0.5, xlab="Year", ylab="Hot dogs and buns (HDB) eaten")

Adding a title.

# Main title
barplot(hotdogs$Dogs.eaten, names.arg=hotdogs$Year, col=fill_colors, border=NA, space=0.25, xlab="Year", ylab="Hot dogs and buns (HDB) eaten", main="Nathan's Hot Dog Eating Contest Results, 1980-2010")