This is the hot dog example from Visualize That, Chapter4.
We will first download the data from the book’s website.
The second thing we will do is to the Set Working Directory. To do this in RStudio through the pull-down menus, Session > Set Working Directory > Choose Directory. Then Browse to the directory where you have downloaded and upzipped the files.
Or you can copy the directory from Windows Explorer and use setwd() command.
setwd("C:/Users/Bhawna/Documents/data/")
The working directory was changed to C:/Users/Bhawna/Documents/data inside a notebook chunk. The working directory will be reset when the chunk is finished running. Use the knitr root.dir option in the setup chunk to change the the working directory for notebook chunks.
Next we will load the data.
hotdogs <- read.csv("C:/Users/Bhawna/Documents/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")

LS0tDQp0aXRsZTogIlZpc3VhbGl6ZSBUaGF0IC0gQ2hhcHRlciA0IC0gaG90IGRvZ3MiDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpUaGlzIGlzIHRoZSBob3QgZG9nIGV4YW1wbGUgZnJvbSBWaXN1YWxpemUgVGhhdCwgQ2hhcHRlcjQuDQoNCldlIHdpbGwgZmlyc3QgZG93bmxvYWQgdGhlIGRhdGEgZnJvbSB0aGUgYm9vaydzIFt3ZWJzaXRlXShodHRwOi8vd3d3LndpbGV5LmNvbS9XaWxleUNEQS9XaWxleVRpdGxlL3Byb2R1Y3RDZC0wNDcwOTQ0ODg5Lmh0bWwpLg0KDQpUaGUgc2Vjb25kIHRoaW5nIHdlIHdpbGwgZG8gaXMgdG8gdGhlIFNldCBXb3JraW5nIERpcmVjdG9yeS4gIFRvIGRvIHRoaXMgaW4gUlN0dWRpbyB0aHJvdWdoIHRoZSBwdWxsLWRvd24gbWVudXMsIFNlc3Npb24gPiBTZXQgV29ya2luZyBEaXJlY3RvcnkgPiBDaG9vc2UgRGlyZWN0b3J5LiAgVGhlbiBCcm93c2UgdG8gdGhlIGRpcmVjdG9yeSB3aGVyZSB5b3UgaGF2ZSBkb3dubG9hZGVkIGFuZCB1cHppcHBlZCB0aGUgZmlsZXMuICANCg0KT3IgeW91IGNhbiBjb3B5IHRoZSBkaXJlY3RvcnkgZnJvbSBXaW5kb3dzIEV4cGxvcmVyIGFuZCB1c2Ugc2V0d2QoKSBjb21tYW5kLg0KDQpgYGB7cn0NCnNldHdkKCJDOi9Vc2Vycy9CaGF3bmEvRG9jdW1lbnRzL2RhdGEvIikNCmBgYA0KDQpOZXh0IHdlIHdpbGwgbG9hZCB0aGUgZGF0YS4NCg0KYGBge3J9DQpob3Rkb2dzIDwtIHJlYWQuY3N2KCJDOi9Vc2Vycy9CaGF3bmEvRG9jdW1lbnRzL2RhdGEvaG90LWRvZy1jb250ZXN0LXdpbm5lcnMuY3N2Iiwgc2VwPSIsIiwgaGVhZGVyPVRSVUUpDQoNClZpZXcoaG90ZG9ncykNCmBgYA0KDQpBIGZpcnN0IGJhciBjaGFydC4NCg0KYGBge3J9DQojIERlZmF1bHQgYmFyY2hhcnQNCmJhcnBsb3QoaG90ZG9ncyREb2dzLmVhdGVuKQ0KDQojIFllYXIgbGFiZWxzDQpiYXJwbG90KGhvdGRvZ3MkRG9ncy5lYXRlbiwgbmFtZXMuYXJnPWhvdGRvZ3MkWWVhcikNCg0KIyBBeGlzIGxhYmVscw0KYmFycGxvdChob3Rkb2dzJERvZ3MuZWF0ZW4sIG5hbWVzLmFyZz1ob3Rkb2dzJFllYXIsIHhsYWI9IlllYXIiLCB5bGFiPSJIb3QgZG9ncyBhbmQgYnVucyAoSERCKSBlYXRlbiIpDQoNCiMgRmlsbCBjb2xvciBhbmQgYm9yZGVyDQpiYXJwbG90KGhvdGRvZ3MkRG9ncy5lYXRlbiwgbmFtZXMuYXJnPWhvdGRvZ3MkWWVhciwgY29sPSJyZWQiLCBib3JkZXI9TkEsIHhsYWI9IlllYXIiLCB5bGFiPSJIb3QgZG9ncyBhbmQgYnVucyAoSERCKSBlYXRlbiIpDQpgYGANCg0KTmV4dCwgaGlnaGxpZ2h0aW5nIHRoZSB5ZWFycyB0aGUgVVMgY29tcGV0aXRvciB3b24uDQoNCmBgYHtyfQ0KIyBIaWdobGlnaHQgVVNBIGNvbG9ycw0KZmlsbF9jb2xvcnMgPC0gYygpDQpmb3IgKCBpIGluIDE6bGVuZ3RoKGhvdGRvZ3MkQ291bnRyeSkgKSB7DQoJaWYgKGhvdGRvZ3MkQ291bnRyeVtpXSA9PSAiVW5pdGVkIFN0YXRlcyIpIHsNCgkJZmlsbF9jb2xvcnMgPC0gYyhmaWxsX2NvbG9ycywgIiM4MjExMjIiKQ0KCX0gZWxzZSB7DQoJCWZpbGxfY29sb3JzIDwtIGMoZmlsbF9jb2xvcnMsICIjY2NjY2NjIikNCgl9DQp9DQpiYXJwbG90KGhvdGRvZ3MkRG9ncy5lYXRlbiwgbmFtZXMuYXJnPWhvdGRvZ3MkWWVhciwgY29sPWZpbGxfY29sb3JzLCBib3JkZXI9TkEsIHhsYWI9IlllYXIiLCB5bGFiPSJIb3QgZG9ncyBhbmQgYnVucyAoSERCKSBlYXRlbiIpDQoNCmBgYA0KDQpSZWNvcmQgeWVhcnMuDQoNCmBgYHtyfQ0KIyBIaWdobGlnaHQgcmVjb3JkIHllYXJzIHdpdGggY29sb3INCmZpbGxfY29sb3JzIDwtIGMoKQ0KZm9yICggaSBpbiAxOmxlbmd0aChob3Rkb2dzJE5ldy5yZWNvcmQpICkgew0KCWlmIChob3Rkb2dzJE5ldy5yZWNvcmRbaV0gPT0gMSkgew0KCQlmaWxsX2NvbG9ycyA8LSBjKGZpbGxfY29sb3JzLCAiIzgyMTEyMiIpDQoJfSBlbHNlIHsNCgkJZmlsbF9jb2xvcnMgPC0gYyhmaWxsX2NvbG9ycywgIiNjY2NjY2MiKQ0KCX0NCn0NCmJhcnBsb3QoaG90ZG9ncyREb2dzLmVhdGVuLCBuYW1lcy5hcmc9aG90ZG9ncyRZZWFyLCBjb2w9ZmlsbF9jb2xvcnMsIGJvcmRlcj1OQSwgeGxhYj0iWWVhciIsIHlsYWI9IkhvdCBkb2dzIGFuZCBidW5zIChIREIpIGVhdGVuIikNCmBgYA0KDQpDaGFuaW5nIHRoZSBzcGFjaW5nDQoNCmBgYHtyfQ0KIyBTcGFjaW5nDQpiYXJwbG90KGhvdGRvZ3MkRG9ncy5lYXRlbiwgbmFtZXMuYXJnPWhvdGRvZ3MkWWVhciwgY29sPWZpbGxfY29sb3JzLCBib3JkZXI9TkEsIHNwYWNlPTAuMywgeGxhYj0iWWVhciIsIHlsYWI9IkhvdCBkb2dzIGFuZCBidW5zIChIREIpIGVhdGVuIiwgbWFpbj0iTmF0aGFuJ3MgSG90IERvZyBFYXRpbmcgQ29udGVzdCBSZXN1bHRzLCAxOTgwLTIwMTAiKQ0KYGBgDQoNCmBgYHtyfQ0KYmFycGxvdChob3Rkb2dzJERvZ3MuZWF0ZW4sIG5hbWVzLmFyZz1ob3Rkb2dzJFllYXIsIGNvbD1maWxsX2NvbG9ycywgYm9yZGVyPU5BLCBzcGFjZT0wLjUsIHhsYWI9IlllYXIiLCB5bGFiPSJIb3QgZG9ncyBhbmQgYnVucyAoSERCKSBlYXRlbiIpDQpgYGANCg0KQWRkaW5nIGEgdGl0bGUuDQoNCmBgYHtyfQ0KIyBNYWluIHRpdGxlDQpiYXJwbG90KGhvdGRvZ3MkRG9ncy5lYXRlbiwgbmFtZXMuYXJnPWhvdGRvZ3MkWWVhciwgY29sPWZpbGxfY29sb3JzLCBib3JkZXI9TkEsIHNwYWNlPTAuMjUsIHhsYWI9IlllYXIiLCB5bGFiPSJIb3QgZG9ncyBhbmQgYnVucyAoSERCKSBlYXRlbiIsIG1haW49Ik5hdGhhbidzIEhvdCBEb2cgRWF0aW5nIENvbnRlc3QgUmVzdWx0cywgMTk4MC0yMDEwIikNCmBgYA0KDQo=