Atividade 5
Jamili Mohamed
19 de setembro de 2019
Exportando a base da dados
Escolhi a base de dados Pokémon e as variáveis Defesa e Tipo 2.
load("C:/Users/labccet/Downloads/Base_de_dados-master/Base_de_dados-master/df_pokemon.RData")Tabela relacionando a defesa com o tipo de Pokémon
tabela<-table(df$defense,df$type_2)
tabela##
## bug dark dragon electric fairy fighting fire flying ghost grass
## 5 0 0 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0 0 0
## 15 0 0 0 0 1 0 0 0 0 0
## 20 0 1 0 0 1 0 0 0 0 0
## 23 0 0 0 0 0 0 0 0 0 0
## 25 0 0 0 0 1 0 0 0 0 0
## 28 0 0 0 0 0 0 0 0 0 0
## 30 0 0 0 0 0 0 1 6 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 1 0 0
## 35 0 1 1 0 1 0 0 1 0 0
## 37 0 0 0 0 0 0 0 0 0 0
## 38 0 0 0 1 0 0 0 0 0 0
## 39 0 0 0 0 0 0 0 0 0 0
## 40 0 2 0 0 1 1 0 2 0 0
## 41 0 0 0 0 0 0 0 0 0 0
## 42 0 0 0 0 0 0 0 2 0 0
## 43 0 0 0 0 0 0 0 2 0 0
## 44 0 0 0 0 0 0 0 1 0 0
## 45 0 1 0 0 2 0 0 7 1 0
## 47 0 1 0 0 0 0 0 0 0 0
## 48 0 0 0 0 0 0 0 0 0 1
## 49 0 0 0 0 0 0 0 0 0 0
## 50 1 0 2 1 1 0 1 12 2 2
## 51 0 0 0 0 0 0 0 0 0 0
## 52 0 0 0 0 0 1 0 1 0 0
## 53 0 0 0 0 0 0 0 0 0 0
## 54 0 0 0 0 0 0 0 0 0 0
## 55 0 0 0 0 0 1 2 4 0 1
## 56 0 0 0 0 0 0 0 0 0 0
## 57 0 0 0 0 1 0 0 0 0 0
## 58 0 0 0 1 0 0 0 0 0 0
## 59 0 0 0 0 0 0 0 0 0 0
## 60 0 2 0 1 1 1 1 3 0 0
## 61 0 0 0 0 0 0 0 0 0 0
## 62 0 0 0 0 0 0 0 2 0 0
## 63 0 0 0 0 0 0 0 1 0 0
## 64 0 0 0 0 0 0 0 0 0 0
## 65 0 0 0 0 2 3 1 3 0 0
## 66 0 0 0 0 0 0 0 0 0 0
## 67 0 2 0 0 0 0 0 0 0 0
## 68 0 0 0 0 0 0 0 0 0 0
## 69 0 0 0 0 0 0 0 0 0 0
## 70 0 0 1 0 0 2 0 7 2 4
## 71 0 0 0 0 0 1 0 1 0 0
## 72 0 0 0 0 0 1 0 0 0 0
## 73 0 0 0 0 0 0 0 0 0 0
## 75 0 0 0 0 0 1 0 4 1 0
## 76 0 0 0 0 0 0 0 0 0 1
## 77 0 0 1 0 0 0 0 0 1 1
## 78 0 1 0 0 0 0 0 1 0 0
## 79 0 0 0 0 0 0 0 1 0 0
## 80 0 1 2 0 1 1 0 5 1 2
## 82 0 0 0 0 0 0 0 0 0 0
## 83 0 0 0 0 0 0 0 1 0 0
## 84 0 0 0 1 0 0 0 0 0 0
## 85 0 1 0 0 2 0 0 2 0 1
## 86 0 0 0 0 0 0 0 1 0 0
## 87 0 0 0 0 0 0 0 0 0 0
## 88 0 0 0 0 0 0 0 0 0 0
## 89 0 0 0 0 0 0 0 0 0 0
## 90 1 0 2 0 0 2 1 5 0 1
## 91 0 0 0 0 1 0 0 0 0 0
## 95 0 0 1 0 0 1 0 3 0 0
## 97 0 0 0 0 0 0 0 0 0 1
## 99 0 0 0 0 0 0 0 0 0 0
## 100 1 0 1 0 0 0 2 2 1 1
## 102 0 0 0 0 0 0 0 1 0 0
## 103 0 0 0 0 0 0 0 0 0 0
## 105 0 0 0 0 0 0 0 2 0 0
## 106 0 0 0 0 0 0 0 0 0 0
## 108 0 1 0 0 0 0 0 0 0 0
## 110 0 2 0 0 0 0 0 0 0 0
## 112 0 0 0 0 0 0 0 0 0 0
## 115 0 0 0 0 0 1 0 0 0 0
## 116 0 0 0 0 0 0 0 0 0 0
## 118 0 0 0 0 0 0 0 0 0 0
## 119 0 0 1 0 0 0 0 0 0 0
## 120 0 0 2 1 0 0 0 0 0 0
## 121 0 0 0 0 0 0 0 0 0 0
## 122 0 0 0 0 0 1 0 0 0 1
## 125 0 0 0 0 0 0 0 1 0 0
## 129 0 0 0 0 0 1 0 0 0 0
## 130 0 0 0 0 0 0 0 1 0 0
## 131 0 0 0 0 0 0 0 0 0 0
## 133 0 0 0 0 0 0 0 0 0 0
## 135 0 0 0 0 0 0 0 0 0 0
## 140 0 0 0 0 0 0 0 1 0 0
## 145 0 0 0 0 0 0 0 0 0 0
## 150 0 0 0 0 1 0 0 0 2 0
## 160 0 0 0 0 0 0 0 0 0 0
## 168 0 0 0 0 0 0 0 0 0 0
## 180 0 0 0 0 0 0 0 0 0 0
## 184 0 0 0 0 0 0 0 0 0 0
## 200 0 0 0 0 0 0 0 0 0 0
## 230 0 0 0 0 0 0 0 0 0 0
##
## ground ice normal poison psychic rock steel water
## 5 0 0 0 0 0 0 0 0
## 10 0 0 0 0 0 0 0 0
## 15 0 0 0 0 1 0 0 0
## 20 0 0 0 0 0 0 0 0
## 23 0 0 0 0 0 0 0 0
## 25 0 0 0 0 0 0 0 0
## 28 0 0 0 0 0 0 0 0
## 30 0 0 0 2 0 0 0 0
## 32 0 0 0 0 0 0 0 1
## 33 0 0 1 0 0 0 0 0
## 34 0 0 0 0 0 0 0 0
## 35 0 0 0 3 1 0 0 0
## 37 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 0
## 40 2 0 0 2 0 0 0 0
## 41 0 0 0 0 0 0 0 0
## 42 0 0 0 0 0 0 0 0
## 43 1 0 0 0 0 0 0 0
## 44 0 0 0 0 0 0 0 0
## 45 2 0 0 3 0 0 0 0
## 47 0 0 0 0 0 0 0 0
## 48 0 0 0 0 0 0 0 0
## 49 0 0 0 1 0 0 0 0
## 50 1 2 0 3 0 0 0 1
## 51 0 0 0 0 0 0 0 0
## 52 0 0 1 0 0 0 0 0
## 53 0 0 0 0 1 0 0 0
## 54 0 0 0 0 0 0 0 0
## 55 1 1 0 1 2 0 0 0
## 56 0 0 0 0 0 0 0 0
## 57 0 0 0 0 0 0 0 0
## 58 0 0 1 0 0 0 0 0
## 59 0 0 0 1 0 0 0 0
## 60 0 0 0 2 0 0 1 2
## 61 0 0 0 0 0 0 0 0
## 62 0 0 0 0 0 0 0 0
## 63 0 0 0 1 0 0 0 0
## 64 0 0 0 0 0 0 0 0
## 65 1 1 0 3 3 0 0 0
## 66 0 0 0 0 0 0 0 0
## 67 0 0 0 0 0 0 0 1
## 68 1 0 0 0 0 0 0 0
## 69 0 0 0 0 0 0 0 0
## 70 3 0 0 4 0 0 3 1
## 71 0 0 0 0 0 0 0 0
## 72 0 1 1 0 1 0 0 0
## 73 1 0 0 0 0 0 0 0
## 75 1 1 0 1 1 0 0 0
## 76 0 0 0 0 0 0 0 0
## 77 2 0 0 0 1 0 0 0
## 78 0 0 0 0 0 0 0 0
## 79 0 0 0 0 0 0 0 0
## 80 2 2 0 0 4 0 0 0
## 82 0 0 0 0 0 0 0 0
## 83 0 0 0 1 0 0 0 0
## 84 0 0 0 0 0 0 0 0
## 85 1 0 0 1 3 2 0 0
## 86 0 0 0 0 1 0 0 0
## 87 1 0 0 0 0 0 0 0
## 88 0 0 0 0 1 0 1 0
## 89 0 0 0 1 0 0 0 0
## 90 2 1 0 0 1 0 0 2
## 91 0 0 0 0 0 0 1 0
## 95 1 0 0 0 0 1 2 0
## 97 0 0 0 0 0 0 0 0
## 99 0 0 0 1 0 0 0 0
## 100 1 0 0 0 2 1 2 1
## 102 0 0 0 0 0 0 0 0
## 103 0 0 0 0 0 1 0 0
## 105 1 0 0 0 1 0 1 1
## 106 0 0 0 0 0 0 1 0
## 108 0 0 0 0 0 0 0 0
## 110 0 0 0 0 1 0 0 0
## 112 0 0 0 0 0 0 1 0
## 115 1 0 0 0 0 0 1 1
## 116 0 0 0 0 1 0 0 0
## 118 0 0 0 0 0 0 1 0
## 119 0 0 0 0 0 0 0 0
## 120 0 0 0 0 0 2 0 0
## 121 1 0 0 0 0 0 0 0
## 122 0 0 0 0 0 0 0 0
## 125 0 0 0 0 0 1 0 1
## 129 0 0 0 0 0 0 0 0
## 130 1 0 0 0 1 2 0 0
## 131 0 0 0 0 0 0 1 0
## 133 0 0 0 0 0 1 0 0
## 135 0 0 0 0 0 0 0 0
## 140 0 0 0 0 0 1 1 0
## 145 0 0 0 0 0 0 1 0
## 150 0 0 0 0 0 0 0 0
## 160 1 0 0 0 0 0 0 0
## 168 0 0 0 0 0 0 1 0
## 180 0 1 0 0 0 1 0 0
## 184 0 0 0 0 0 0 0 0
## 200 1 0 0 0 0 0 0 0
## 230 0 0 0 0 0 1 0 0Boxplot relacionando os dados
boxplot(df$defense~df$type_2, col=c("#cd7ad6","#6dacbd","#c953be","#bfbe82","#e87b94","#fa230f","#bce092"),
main = 'Defesa dos Pok攼㸹mons',
xlab = 'Tipos', ylab = 'Defesa')
Conclusão
Logo, concluo que os pokémons com a defesa mais fortes são os de tipo Rock.
