Final Presentation about Alcohol Consumption from Portuguese School

Background of our study

• The University of Kansas Survey of Alcohol in 1998 found that students who received a grade of a D or F consumed an average of 23.5 drinks per week. Additionally, 41% of the respondents skipped classes because of excessive alcohol consumption. (www.facstaff.bucknell.edu/awolaver/alcohol/academic.doc).

Question 1 : How alcohol consumption is correlated to academic performance.

Question 2：How your desire for higher education correlates with alcohol consumption

Quesntion 3: How family influences students’ alcohol consumption

wcolor <- c("#fed976","#feb24c","#fd8d3c","#f03b20","#bd0026")
W1 <-waffle(AD,rows=10, size=1,
             title = "Workday alcohol consumption \namong students whose \nparents live apart",
             colors=wcolor, 
            xlab="1 box = 1% of students whose parents live apart",
             legend_pos= "top")


w2 <-waffle(AW,rows=10, size=1,
             title = "Weekend alcohol consumption \namong students whose \nparents live apart",
             colors=wcolor,xlab="1 box = 1% of students whose parents live apart",
             legend_pos= "top")


w3<-waffle(TD,rows=10, size=1,
             title = "Workday alcohol consumption \namong students whose \nparents live together",
             colors=wcolor,xlab="1 box = 1% of students whose parents live together",
             legend_pos= "top")

w4<-waffle(TW,rows=10, size=1,
             title = "Weekend alcohol consumption \namong students whose \nparents live together",
             colors=wcolor,xlab="1 box = 1% of students whose parents live together",
             legend_pos= "top")


grid.arrange(W1,w3,ncol=2)

grid.arrange(w2,w4,ncol=2)