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);
pie(numbers, labels=cats, col=colors, font=2, font.main=3);
##install.packages("qcc");
library(qcc);
names(numbers)<-cats;
pareto.chart(numbers, ylab="Frequency",main="",
col=colors, font=2, cex.lab=1.5, cex.axis=1.5);