Atividade 5 Boxplot Pokemon
Rayanne da Gama
19 de setembro de 2019
IMPORTANDO OS DADOS
A base de dados utilizada foi do Pokémon
df_pokemon.RData <- load("C:/Users/Gabriel/Downloads/df_pokemon.RData")ESCOLHA DAS VARIÁVEIS
As variáveis escolhidas foram: Velocidade e Tipos de Pokémon, pois conforme o tipo a velocidade do Pokémon em um combate pode variar.
Segue abaixo a tabela com os valores:
Tabela <-table(df$speed,df$type_1)
Tabela##
## bug dark dragon electric fairy fighting fire flying ghost grass
## 5 1 0 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0 1
## 15 3 0 0 0 1 0 0 0 0 1
## 20 2 0 0 0 1 0 2 0 1 1
## 22 0 0 0 0 0 0 0 0 0 0
## 23 0 0 0 0 1 0 0 0 0 0
## 24 0 0 0 0 0 0 0 0 0 0
## 25 3 0 0 0 0 1 0 0 2 0
## 28 0 0 0 0 0 0 0 0 0 0
## 29 1 0 0 0 1 0 0 0 0 0
## 30 3 0 0 0 1 0 1 0 2 6
## 31 0 0 0 0 0 0 0 0 0 1
## 32 0 0 0 0 0 0 0 0 0 0
## 33 0 0 0 0 0 0 0 0 0 0
## 34 0 0 0 0 0 0 0 0 0 0
## 35 2 1 0 1 1 3 1 0 1 3
## 36 2 0 0 0 0 0 0 0 0 1
## 38 0 1 0 0 0 0 0 0 1 1
## 39 0 0 0 0 0 0 0 0 0 0
## 40 5 0 1 1 1 1 1 0 0 4
## 41 0 0 0 0 0 0 0 0 0 0
## 42 2 0 1 0 1 0 0 0 0 0
## 43 0 0 0 0 0 1 0 0 0 0
## 44 0 0 0 0 0 0 0 0 0 0
## 45 3 1 0 3 1 3 2 0 2 2
## 46 0 0 0 0 0 0 0 0 0 1
## 47 1 0 0 0 0 0 0 0 0 0
## 48 0 1 1 0 0 0 0 0 0 0
## 49 0 0 0 0 1 0 0 0 0 0
## 50 1 1 3 1 0 1 1 0 0 4
## 51 0 0 0 0 0 0 0 0 1 1
## 52 0 0 0 0 1 0 0 0 0 1
## 55 2 0 0 1 0 1 2 1 1 4
## 56 0 0 0 0 0 0 0 0 1 1
## 57 1 0 1 0 0 0 0 0 0 1
## 58 0 2 0 0 0 1 0 0 0 0
## 59 0 0 0 0 0 0 0 0 0 0
## 60 3 2 1 4 2 2 2 0 0 6
## 61 0 0 0 0 0 0 1 0 0 0
## 62 0 0 0 0 0 0 0 0 0 0
## 63 0 0 0 0 0 0 0 0 0 1
## 64 0 0 0 0 0 0 1 0 0 2
## 65 6 3 0 1 0 1 6 0 1 1
## 66 1 1 0 0 0 0 0 0 0 1
## 67 0 0 1 0 0 0 0 0 0 0
## 68 0 0 0 0 0 0 0 0 0 1
## 69 0 0 0 0 0 0 0 0 0 0
## 70 2 2 1 3 0 2 0 0 1 3
## 71 0 1 0 0 0 0 0 0 0 0
## 72 0 0 0 0 1 0 1 0 0 0
## 73 0 1 0 0 0 0 1 0 0 0
## 74 0 0 0 0 0 0 0 0 0 0
## 75 1 1 0 0 1 0 0 0 0 0
## 76 0 0 0 1 0 1 0 0 0 0
## 77 0 0 0 0 0 0 1 0 0 0
## 78 0 0 0 0 0 0 0 0 0 0
## 79 0 0 0 0 0 0 0 0 0 0
## 80 0 1 3 0 1 1 3 0 3 4
## 81 0 0 0 0 0 0 1 0 0 0
## 82 0 0 1 0 0 0 0 0 0 0
## 83 0 0 0 0 0 0 2 0 0 1
## 84 0 0 0 0 0 0 1 0 1 0
## 85 5 0 0 0 0 1 0 0 1 1
## 87 0 0 0 0 0 1 0 0 0 0
## 88 0 0 0 0 0 0 0 0 0 0
## 89 1 0 0 0 0 0 0 0 0 0
## 90 1 0 2 1 0 1 3 0 1 2
## 91 0 1 0 1 0 0 0 0 0 0
## 92 1 0 0 0 0 0 0 0 0 0
## 93 0 0 0 0 0 0 1 0 0 0
## 95 2 1 3 5 0 1 2 0 1 2
## 97 0 0 1 0 0 0 0 0 0 0
## 98 0 1 0 0 0 0 0 0 0 0
## 99 1 1 0 0 1 0 0 0 0 0
## 100 1 0 1 2 0 0 4 0 0 1
## 101 0 0 0 1 0 0 1 0 0 1
## 102 0 0 1 0 0 0 0 0 0 0
## 103 0 0 0 1 0 0 0 0 0 0
## 104 0 0 0 0 0 0 1 0 0 0
## 105 1 1 0 2 0 1 1 0 1 0
## 106 0 1 0 0 0 0 1 0 0 0
## 108 1 0 0 0 0 0 1 0 0 1
## 109 1 0 0 1 0 0 0 0 0 0
## 110 0 0 2 1 0 0 0 0 1 1
## 111 0 0 0 1 0 0 0 1 0 0
## 112 1 0 0 0 0 0 0 0 0 0
## 113 0 0 0 0 0 0 0 0 0 1
## 114 0 0 0 0 0 0 0 0 0 0
## 115 0 1 0 1 0 0 0 0 0 0
## 116 0 0 0 1 0 0 0 0 0 1
## 118 0 0 0 0 0 1 0 0 0 0
## 120 0 0 0 0 0 0 0 0 0 1
## 122 0 0 0 0 0 0 0 0 0 0
## 123 0 0 0 0 0 0 0 1 0 0
## 125 0 2 0 0 0 0 0 0 0 0
## 126 0 0 0 0 0 0 1 0 0 0
## 130 0 0 0 1 0 0 0 0 0 0
## 140 0 0 0 1 0 0 0 0 0 0
## 145 1 0 0 0 0 0 0 0 0 0
## 150 0 0 0 0 0 0 0 0 0 0
## 160 1 0 0 0 0 0 0 0 0 0
##
## ground ice normal poison psychic rock steel water
## 5 0 0 1 0 0 0 0 0
## 10 1 0 0 0 0 1 0 0
## 15 0 0 1 0 0 1 0 2
## 20 0 0 3 0 1 2 0 0
## 22 0 0 0 0 0 0 0 1
## 23 0 0 0 0 1 1 1 0
## 24 0 0 0 0 1 0 0 0
## 25 1 1 0 1 0 1 0 0
## 28 0 2 1 0 0 0 1 0
## 29 0 0 0 0 1 0 0 0
## 30 0 0 4 1 3 4 4 3
## 31 0 0 1 0 0 0 0 0
## 32 2 0 0 0 0 0 0 2
## 33 0 0 0 0 1 0 1 0
## 34 0 0 0 0 0 0 0 1
## 35 2 0 0 1 0 2 1 3
## 36 0 0 0 0 0 0 0 0
## 38 0 0 0 0 0 0 0 0
## 39 0 0 0 0 0 0 0 1
## 40 4 1 3 1 2 1 1 5
## 41 0 0 0 1 0 1 0 0
## 42 0 0 1 0 1 0 0 0
## 43 0 0 1 0 0 1 0 2
## 44 0 1 0 1 0 0 0 1
## 45 1 1 2 0 2 2 0 3
## 46 0 0 0 0 0 1 0 0
## 47 1 0 0 0 0 0 0 0
## 48 0 0 2 0 1 1 0 0
## 49 0 0 0 0 0 0 0 0
## 50 1 5 6 3 1 3 5 6
## 51 0 0 0 0 0 1 0 0
## 52 0 0 0 0 0 0 0 2
## 55 2 0 5 3 1 2 0 4
## 56 0 0 1 1 0 0 0 0
## 57 0 0 1 0 0 0 0 0
## 58 0 0 0 0 0 3 0 2
## 59 0 1 0 0 0 0 0 1
## 60 0 0 7 1 2 0 1 10
## 61 0 0 0 0 0 1 0 0
## 62 0 0 1 0 0 0 0 0
## 63 0 0 0 0 0 0 0 1
## 64 0 0 0 0 0 0 0 2
## 65 2 3 1 4 2 0 0 5
## 66 0 0 0 0 0 0 0 1
## 67 0 0 0 0 1 0 0 2
## 68 1 0 1 0 1 1 0 1
## 69 0 0 0 0 0 0 0 1
## 70 1 0 4 0 1 4 2 8
## 71 0 0 2 0 0 1 0 1
## 72 0 0 1 0 1 0 0 0
## 73 0 0 0 0 0 0 0 0
## 74 1 0 0 1 0 0 0 1
## 75 1 1 4 1 0 1 1 1
## 76 0 0 0 1 0 0 0 0
## 77 0 0 1 0 0 0 0 0
## 78 0 0 1 0 0 0 0 2
## 79 0 1 0 0 0 0 0 0
## 80 0 2 3 1 4 1 0 3
## 81 0 0 0 0 0 0 0 2
## 82 0 0 0 0 0 0 0 0
## 83 0 0 0 0 0 0 0 0
## 84 0 0 0 1 0 0 0 0
## 85 1 1 6 2 1 0 0 8
## 87 0 0 0 0 0 0 0 0
## 88 1 0 0 0 0 0 0 0
## 89 0 0 0 0 0 0 0 0
## 90 1 0 7 1 2 0 2 3
## 91 0 0 1 0 0 0 0 1
## 92 1 0 0 0 0 0 0 0
## 93 0 0 1 0 0 0 0 0
## 95 2 1 1 1 2 0 0 1
## 97 0 0 1 0 1 0 0 2
## 98 0 0 0 0 0 0 0 2
## 99 0 0 0 0 0 0 0 0
## 100 1 0 7 0 3 0 1 3
## 101 1 0 1 0 0 0 0 1
## 102 0 0 1 0 0 0 0 0
## 103 0 0 0 0 0 0 0 0
## 104 0 0 0 0 1 0 0 0
## 105 0 1 1 0 1 0 0 0
## 106 0 0 0 0 0 0 0 0
## 108 0 0 0 0 0 1 1 1
## 109 0 0 0 0 0 0 0 0
## 110 0 1 1 0 2 1 0 0
## 111 0 0 0 0 0 0 0 0
## 112 0 0 1 0 0 0 0 0
## 113 0 0 0 0 0 0 0 0
## 114 0 0 0 0 1 0 0 0
## 115 0 0 3 0 1 0 0 2
## 116 0 0 0 0 0 0 0 0
## 118 0 0 0 0 0 0 0 0
## 120 1 0 1 0 1 0 0 0
## 122 0 0 0 0 0 0 0 1
## 123 0 0 0 0 0 0 0 0
## 125 0 0 1 0 0 0 0 0
## 126 0 0 0 0 0 0 0 0
## 130 0 0 0 1 1 1 0 0
## 140 0 0 0 0 0 0 0 0
## 145 0 0 0 0 0 0 0 0
## 150 0 0 0 0 1 0 0 0
## 160 0 0 0 0 0 0 0 0GRÁFICO BOXPLOT (quali x quanti)
boxplot(df$speed~df$type_1, col = c("yellow", "blue"), main = "Velocidade por tipo de Pokemon", xlab= "Tipos de Pokemon", ylab= "Velocidade")
CONCLUSÃO
Conclui-se que o tipo de pokémon que tem a maior média de velocidade é o do tipo voador, pois estes Pokémon tem uma maior rapidez e mobilidade por estar no ar durante o combate. Já o que possui menor média é o tipo fairy.