饮酒情况调查
对上述调查者饮酒情况做分析
rm(list = ls())
library(RColorBrewer)
drink<-c(3,4,1,1,3,4,3,3,1,3,2,1,2,1,2,3,2,3,1,1,1,1,4,3,1)
drinkcount<-table(drink)
names(drinkcount)<-c('红酒','白酒','黄酒','啤酒')
barplot(drinkcount,main='饮酒情况调查',col=brewer.pal(12,"Set3")[1:4])
rm(list = ls())
drink<-c(3,4,1,1,3,4,3,3,1,3,2,1,2,1,2,3,2,3,1,1,1,1,4,3,1)
drink.count<-table(drink)
names(drink.count)<-c('红酒','白酒','黄酒','啤酒')
pie(drink.count,main='饮酒情况调查',col=c('purple','green','cyan','red'))