Qualitativa vs Qualitativa

# Variavel Qualitativa vs Variavel Qualitativa

#######################################################################
# Tabela de Frequencias (absoluta e relativa)
#######################################################################

# Tabela Cruzada

#o primeiro presenta parte horizontal e o segundo a vertical

f.absolutas <- table(cancer$Grau,cancer$Local)
f.relativas <- f.absolutas/c(sum(f.absolutas[1,]),sum(f.absolutas[2,]),sum(f.absolutas[3,]))

#######################################################################
# Diagrama de Colunas
#######################################################################

barplot(table(cancer$Local),ylab="Frequencia Absoluta",xlab="Hipertensao")

barplot(table(cancer$Local)/nrow(dados),ylab="Frequencia Relativa",xlab="Hipertensao",col=c("green","red"))

# Grafico de barras Cruzados

f.absolutas <- table(cancer$Grau,cancer$Local)
f.relativas <- f.absolutas/c(sum(f.absolutas[1,]),sum(f.absolutas[2,]))

bmp("questaoe.bmp")
barplot(f.relativas,beside=T,col=c("orange","yellow","blue"),xlab="Grau de diferenciacao do tumor",ylab="Frequencia Relativa",names.arg=c("Arco", "Fossa", "Faringe"))
legend("topleft",fill=c("orange","yellow","blue"),legend=c("Bem diferenciado","Moderadamante","Pouco"),bty="n")
graphics.off()