#Correlation Between alcohol and socializing 
x <- c(0:10)
y <- c(0, 2, 4, 5, 6, 8, 9, 7, 13, 10, 7)

plot(x, y, xlab = "Drinks", ylab = "People dancing", 
     main = "Corralation between alcohol and socializing", type = "p", pch = 2)

title(xlab="same % of alcohol", line=2, cex.lab=0.5)
abline(lm(y~x), col= "red")
abline(a = 0.0, b = 0.0 )

As we can see the correlation with the people dancing and the amount of drinks they have had is linear and positive. after a few drinks some people had to sit down due to intoxication. Some people cannot handle alcohol.