Мозаикплот

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