Atividade 5
Ravena Kulnig
19/09/2019
Boxplot Pokémon
Passo 1:
Importação dos dados:
library(knitr)
df_pokemon.RData <-load("C:/Users/Marcial/Downloads/df_pokemon.RData")Passo 2:
Tabela com o cruzamento dos dados: Escolhi “Tipo 1” e “Altura” como variáveis.
Tabela<-table(df$type_1,df$height)
Tabela##
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
## bug 1 1 11 2 6 5 3 5 1 7 3 7 0 2 5 1 0 1 1 0 0
## dark 0 0 0 2 5 2 1 1 2 2 3 2 0 2 2 2 0 1 0 0 0
## dragon 0 0 1 0 0 2 1 1 0 1 2 0 0 2 1 1 0 2 1 2 0
## electric 0 2 3 5 3 3 0 4 1 2 1 3 0 2 2 2 0 1 1 0 1
## fairy 1 2 2 1 0 3 0 2 0 1 1 0 1 1 1 0 0 0 0 0 0
## fighting 0 0 0 0 1 3 2 2 1 2 0 2 2 5 2 1 0 0 0 0 1
## fire 0 0 0 2 4 5 5 1 4 4 2 2 2 1 2 2 4 0 3 1 1
## flying 0 0 0 0 1 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0
## ghost 0 0 1 3 1 2 1 1 2 2 1 1 1 0 2 2 1 0 0 0 0
## grass 0 3 3 8 5 5 4 4 4 8 3 3 2 1 0 1 3 1 0 5 0
## ground 0 1 1 1 2 1 5 1 0 5 3 0 0 0 3 0 0 0 1 3 0
## ice 0 0 0 3 1 0 1 2 1 1 4 0 2 2 1 0 1 1 0 1 0
## normal 0 1 11 7 8 10 3 5 2 7 6 10 1 4 6 2 1 3 1 1 1
## poison 0 0 0 3 2 2 1 3 2 1 0 2 3 1 0 1 1 2 1 1 0
## psychic 0 2 5 5 2 7 2 1 4 3 1 0 3 1 4 3 1 0 0 1 0
## rock 0 0 1 3 5 1 1 1 2 5 0 3 4 3 2 1 2 1 1 1 0
## steel 0 1 2 1 1 4 0 2 1 0 0 1 1 0 0 1 2 0 1 0 2
## water 0 0 4 10 8 11 3 7 5 7 6 9 5 2 6 3 4 3 0 3 1
##
## 22 23 24 25 26 27 28 29 30 32 33 35 37 38 40 42 45 50 52 54 58
## bug 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## dark 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
## dragon 1 0 0 0 0 0 0 1 1 1 0 0 0 0 1 0 0 1 0 0 0
## electric 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## fairy 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
## fighting 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## fire 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0
## flying 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## ghost 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0
## grass 2 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
## ground 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## ice 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## normal 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0
## poison 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
## psychic 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
## rock 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
## steel 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
## water 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0
##
## 62 65 70 88 92 145
## bug 0 0 0 0 0 0
## dark 0 0 0 0 0 0
## dragon 0 0 1 0 0 0
## electric 0 0 0 0 0 0
## fairy 0 0 0 0 0 0
## fighting 0 0 0 0 0 0
## fire 0 0 0 0 0 0
## flying 0 0 0 0 0 0
## ghost 0 0 0 0 0 0
## grass 0 0 0 0 0 0
## ground 0 0 0 0 0 0
## ice 0 0 0 0 0 0
## normal 0 0 0 0 0 0
## poison 0 0 0 0 0 0
## psychic 0 0 0 0 0 0
## rock 0 0 0 1 0 0
## steel 0 0 0 0 1 0
## water 1 1 0 0 0 1Passo 3:
Boxplot de Altura por Tipo1:
boxplot((df$height~df$type_1), col=c("#FFFFCC","#C7E9B4","#7FCDBB","#41B6C4","#2C7FB8","#253494"), main = "Altura por Tipos-Boxplot", xlab = "Tipos", ylab = "Altura")
Análise:
Pode-se ver, assim, que o Pokémon mais alto, é o do tipo de Água: Wailord. 