Conditional Colors in R (from Visualize This)

hotdog.R

# This is unnecessary:
# fillColors <- c()
# for (i in 1:length(hotdogs$Country)) {
#   if (hotdogs$Country[i] == "United States") {
#     fillColors <- c(fillColors, "#821010")
#   } else {
#     fillColors <- c(fillColors, "#aaaaaa")
#   }
# }

barplot(hotdogs$Dogs.eaten, border=NA, names.arg=hotdogs$Year, xlab="Year", ylab="Number Eaten", 
        col=ifelse(hotdogs$Country=="United States", "#821010", "#aaaaaa"))