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");
pie(numbers, labels=cats, col=colors, font=2, font.main=3);