How can I indicate the percentage in a Chi-squared test in this case?
library(ggplot2)
table(df$empresa,df$delphinideo)
prop.table(table(df$empresa,df$delphinideo))
tc_emprexdelphinideo <- table(df$empresa,df$delphinideo)
chisq_emprexdelphinideo <- chisq.test(tc_emprexdelphinideo)
chisq_emprexdelphinideo
install.packages("vcd")
library(vcd)
mosaic(~ empresa + delphinideo,
direction = c("v", "h"),
data = df,
shade = TRUE)
