# NOT RUN {
str(Weather94)
attach(Weather94)
names(Number) <- Weather.Type
barplot(Number,col="lightblue",las=2,cex.names=.65,main="Problem 1.30")
# las=2 places bar names vertically
detach(Weather94)
# }
Run the code above in your browser using DataLab