Como adiciono a porcentagem em um teste Qui-Quadrado no eixo y?
library(ggplot2)
#TABELA DE CONTINGENCIA 2x2
table(df$empresa,df$delphinideo)
#tabela de contingência (freq.relativa)
prop.table(table(df$empresa,df$delphinideo))
#Criar um objeto como tabela de contigencia
tc_emprexdelphinideo ← table(df$empresa,df$delphinideo)
#para testar a associação entre as duas variáveis
chisq_emprexdelphinideo ← chisq.test(tc_emprexdelphinideo)
chisq_emprexdelphinideo
#MOSAICO ESTATISTICO
install.packages(“vcd”)
library(vcd)
mosaic(~ empresa + delphinideo)
direction = c(“v”, “h”),
data = df,
shade = TRUE)
