# Arquivo "script", para executar uma linha ou seleção digite  [Ctrl] R 
#------------------------------------------------------------------------
#
require(lattice)
# Leitura dos dados no arquivo "Nike_Malhotra_4aEd_462.csv"  ------------
dados <- read.table("Nike_Malhotra_4aEd_462.csv",header=TRUE,sep=";")
names(dados)
#
# Variáveis categógicas: Número, Uso, Gênero ----------------------------
dados$Número <- factor(dados$Número)
dados$Uso <- factor(dados$Uso,labels=c("Pouco Frequente","Frequência Média","Muito Frequente"))
dados$Gênero <- factor(dados$Gênero,labels=c("Mulher","Homem"))
#
# Disponibiliza as variáveis do dataframe -------------------------------
attach(dados)
#
# Estatísticas descritivas ----------------------------------------------
summary(dados)
#
table(Gênero)
prop.table(table(Gênero))
#
table(Uso)
prop.table(table(Uso))
#
table(Uso,Gênero)
prop.table(table(Uso,Gênero))
#
# Gráfico Boxplot
boxplot(Idade~Gênero,ylab="Idade (Anos)",xlab ="Gênero",range=0)
boxplot(Idade~Uso,ylab="Idade (Anos)",xlab ="Uso",range=0)
# 
#########################################################################
#
# Consciência: "Eu conheço a marca Nike"
summary(Consciência)
tapply(Consciência,Gênero,mean)
tapply(Consciência,Uso,mean)
# Gráfico de colunas
barplot(table(Consciência),xlab="Grau de concordância: Eu conheço a marca Nike",ylab="Contagem")
tb1 <- table(Gênero,Consciência)
barplot(tb1, beside = TRUE, legend = rownames(tb),xlab="Grau de concordância: Eu conheço a marca Nike",ylab="Contagem")
boxplot(Idade~Consciência,ylab="Idade (Anos)",xlab ="Consciência",range=0)
bwplot(Consciência ~ Gênero| Uso ,layout=c(3,1), data=dados)
# 
# Atitude, pré-disposição: "Eu gosto da marca Nike" 
summary(Atitude)
tapply(Atitude,Gênero,mean)
tapply(Atitude,Uso,mean)
# Gráfico de colunas
barplot(table(Atitude),xlab="Grau de concordância: Eu gosto da marca Nike",ylab="Contagem")
tb2 <- table(Gênero,Atitude)
barplot(tb2, beside = TRUE, legend = rownames(tb),xlab="Grau de concordância: Eu gosto da marca Nike",ylab="Contagem")
boxplot(Idade~Atitude,ylab="Idade (Anos)",xlab ="Atitude",range=0)
bwplot(Atitude ~ Gênero| Uso ,layout=c(3,1), data=dados)
#
# Preferência: "Eu prefiro a marca Nike à demais" 
summary(Preferência)
tapply(Preferência,Gênero,mean)
tapply(Preferência,Uso,mean)
# Gráfico de colunas
barplot(table(Preferência),xlab="Grau de concordância: Eu prefiro a marca Nike à demais",ylab="Contagem")
tb3 <- table(Gênero,Preferência)
barplot(tb3, beside = TRUE, legend = rownames(tb),xlab="Grau de concordância: Eu prefiro a marca Nike à demais",ylab="Contagem")
boxplot(Idade~Preferência,ylab="Idade (Anos)",xlab ="Preferência",range=0)
bwplot(Preferência~ Gênero| Uso ,layout=c(3,1), data=dados)
#
# Intenção: "Eu pretendo comprar Nike na próxima compra" 
summary(Intenção)
tapply(Intenção,Gênero,mean)
tapply(Intenção,Uso,mean)
# Gráfico de colunas
barplot(table(Intenção),xlab="Grau de concordância: Eu pretendo comprar Nike na próxima compra",ylab="Contagem")
tb4 <- table(Gênero,Intenção)
barplot(tb4, beside = TRUE, legend = rownames(tb),xlab="Grau de concordância: Eu pretendo comprar Nike na próxima compra",ylab="Contagem")
boxplot(Idade~Intenção,ylab="Idade (Anos)",xlab ="Intenção",range=0)
bwplot(Intenção~ Gênero| Uso ,layout=c(3,1), data=dados)
#
# Lealdade: "Eu pretendo comprar sempre a marca Nike" 
summary(Lealdade)
tapply(Lealdade,Gênero,mean)
tapply(Lealdade,Uso,mean)
# Gráfico de colunas
barplot(table(Lealdade),xlab="Grau de concordância: Eu pretendo comprar sempre a marca Nike",ylab="Contagem")
tb5 <- table(Gênero,Lealdade)
barplot(tb5, beside = TRUE, legend = rownames(tb),xlab="Grau de concordância: Eu pretendo comprar sempre a marca Nike",ylab="Contagem")
boxplot(Idade~Lealdade,ylab="Idade (Anos)",xlab ="Lealdade",range=0)
bwplot(Lealdade ~ Gênero| Uso ,layout=c(3,1), data=dados)
#
# Comparação entre variáveis
# Boxplot para duas variáveis distintas, por ex.
# Intenção e Lealdade ----------
par(mfrow=c(1,5))
ylim <- range(1,7)
boxplot(Consciência~Gênero,ylab="Consciência",ylim=ylim)
boxplot(Atitude~Gênero,ylab="Atitude",ylim=ylim)
boxplot(Preferência~Gênero,ylab="Preferência",ylim=ylim)
boxplot(Intenção~Gênero,ylab="Intenção",ylim=ylim)
boxplot(Lealdade~Gênero,ylab="Lealdade",ylim=ylim)
par(mfrow=c(1,1))
#
# -----------------------------------------------------------------