CARROS

    data(mtcars)
    CARROS<-mtcars
    remove(mtcars)
    colnames(CARROS) <- c("Kmporlitro","Cilindros","Preco","HP","Amperagem_circ_eletrico",
    "Peso","RPM","Tipodecombustivel","TipodeMarcha","NumdeMarchas","NumdeValvulas")
    CARROS\$TipodeMarcha<-as.factor(CARROS\$TipodeMarcha)
    CARROS\$Tipodecombustivel<-as.factor(CARROS\$Tipodecombustivel)
    levels(CARROS\$Tipodecombustivel) <- c('Gasolina','Álcool')
    levels(CARROS\$TipodeMarcha) <- c('Automático', 'Manual')
    nomes<-c("Km por litro","Número de Cilindros","Preço",
    "HP = Horse Power (potência do motor)","Amperagem_circ_eletrico = Amperagem média (o principal indicador da bateria)","Peso (em toneladas) do Carro",
    "RPM = Rotações Por Minuto","Tipo de combustível (0 = Gasolina, 1 = Álcool)","Tipo de Câmbio (0 = Automático, 1 = Manual)",
    "Número de Marchas","Número de Válvulas")
    attr(CARROS, "variable.labels") <- nomes
    attributes(CARROS)
    names(CARROS)
    summary(CARROS)

#################################################################################################################################
# Titanicp[,"sobreviveu"] eh o mesmo de Titanicp$sobreviveu
library(vcdExtra)
data(Titanicp, package="vcdExtra")
Titanicp <- Titanicp[!is.na(Titanicp$age),]

nomes<-c("classe", "sobreviveu", "sexo", "idade","irmaos","pais_filhos")
colnames(Titanicp)<-nomes
dicionario<-c("Classe do passageiro", " Passageiro sobreviveu?",
              "Sexo do passageiro", "Idade do passageiro",
              "Número de irmãos","Número de pais / filhos a bordo")

attr(Titanicp, "variable.labels") <- dicionario
attributes(Titanicp)

Titanicp[,"sobreviveu"] <- sub("survived","sobreviveu", Titanicp[,"sobreviveu"])
Titanicp[,"sobreviveu"] <- sub("died","morreu", Titanicp[,"sobreviveu"])

Titanicp[,"sexo"] <- sub("female","feminino", Titanicp[,"sexo"])
Titanicp[,"sexo"] <- sub("male","masculino", Titanicp[,"sexo"])

Titanicp[,"classe"] <- sub("1st","primeira", Titanicp[,"classe"])
Titanicp[,"classe"] <- sub("2nd","segunda", Titanicp[,"classe"])
Titanicp[,"classe"] <- sub("3rd","terceira", Titanicp[,"classe"])
head(Titanicp)
names(Titanicp)
tabela<-table(Titanicp[,"classe"],Titanicp[,"sobreviveu"])
round(prop.table(tabela,1)*100,2)
summary(Titanicp)

#################################################################################################################################
names(df)
df$type_1<-as.factor(df$type_1)
df$type_2<-as.factor(df$type_2)
df$egg_group_1<-as.factor(df$egg_group_1)
df$egg_group_2<-as.factor(df$egg_group_2)
summary(df)