Displays hottest days using R

weather.r

# Nashville's hottest days in 2011
weather2011 <- read.csv('wunder-data-2011.txt', sep=',', header=TRUE)

fill_colors <- c()

for (i in 1:length(weather2011$tmax)) {
	if (weather2011$tmax[i] > 80) {
		fill_colors <- c(fill_colors, '#CC0000')
	} else {
		fill_colors <- c(fill_colors, '#CCCCCC')
	}
}

barplot(weather2011$tmax, names.arg=weather2011$timestamp, col=fill_colors, border=NA, xlab="Day", ylab="Max Temp", main="Nashville's hottest days in 2011")