Here is what I have.
barplot(table(ordered(cancer$agecat,
c("Younger than 31","31 to 41","42 to 54","55 or Older"))),
main="Ordered Bar Chart of Age Categorie",ylim=c(0,120),
xlab="Number of People In Each Category")
This worked before, everything showed up fine but now nothing.