Mozaika
mosaicplot(t1, shade = TRUE, las=2,
main ="gender and attitude to immigrants, t1", xlab ="attitude to immigrants, 1 = allow many, 4 = allow none", ylab="gender, 1 = male, 2 = female",
label = T, show.margins = T)
# - Blue color indicates that the observed value is higher than the expected value if the data were random
# - Red color specifies that the observed value is lower than the expected value if the data were random
Diana H