numbers <- c(3574,1328,6548,1316,1053,626);
colors <- c("blue", "green", "orange", "cyan", "cadetblue4", "darkmagenta");
cats <- c("Connecticut", "Maine", "Massachusetts",
"New Hampshire", "Rhode Island", "Vermont");
barplot(numbers, names.arg=cats, col=colors, cex.lab=1.5,
cex.axis=1.5, cex.names=1.5, font=2, font.main=3);