Football Fan
              1    2    3   4   5
Happiness 1   25   2    0   0   0
          2   2    40   0   0   0
          3   1    5    3   0   0
          4   0    3    1   1   0
          5   0    0    2   5   1

tbl=table(df$Football_fan,df$Happines)
chi2 = chisq.test(tbl, correct=FALSE)

Warning message in chisq.test(tbl, correct = FALSE):