Gráfico para variáveis quantitativas
Jhenifer Victória Mattos Ramos
21/07/2021
Introdução
Pokémon é uma série de jogos eletrônicos desenvolvidos pela Game Freak e publicados pela Nintendo como parte da franquia de mídia Pokémon. Lançado pela primeira vez em 1996 no Japão para o console Game Boy, a principal série de jogos de RPGs, que continuou em cada geração em portáteis da Nintendo.
Explicando o trabalho (Altura)
Nesse trabalho veremos a relação entre a altura e rapides dos personagens de Pokemon. Para isso, o primeiro passo é a importação da base de dados.
library(readr)
df_pokemon <- read_csv("C:/Users/jheni/Base_de_dados-master/df_pokemon.RData")##
## -- Column specification --------------------------------------------------------
## cols(
## RDX2 = col_character()
## )## Warning: 365 parsing failures.
## row col expected actual file
## 2 RDX2 embedded null 'C:/Users/jheni/Base_de_dados-master/df_pokemon.RData'
## 2 NA 1 columns 2 columns 'C:/Users/jheni/Base_de_dados-master/df_pokemon.RData'
## 3 RDX2 embedded null 'C:/Users/jheni/Base_de_dados-master/df_pokemon.RData'
## 4 RDX2 embedded null 'C:/Users/jheni/Base_de_dados-master/df_pokemon.RData'
## 5 RDX2 embedded null 'C:/Users/jheni/Base_de_dados-master/df_pokemon.RData'
## ... .... ......... ............. ......................................................
## See problems(...) for more details.head(df)##
## 1 function (x, df1, df2, ncp, log = FALSE)
## 2 {
## 3 if (missing(ncp))
## 4 .Call(C_df, x, df1, df2, log)
## 5 else .Call(C_dnf, x, df1, df2, ncp, log)
## 6 }load("C:/Users/jheni/Base_de_dados-master/df_pokemon.RData")
table(df$height)##
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
## 2 13 45 56 55 66 33 43 32 58 36 45 27 29 41 23 20 16 11 19
## 21 22 23 24 25 26 27 28 29 30 32 33 35 37 38 40 42 45 50 52
## 7 6 2 1 4 1 2 1 1 2 2 1 2 1 1 1 1 2 1 1
## 54 58 62 65 70 88 92 145
## 1 1 1 1 1 1 1 1Gráfico de altura
Altura dos personagens de Pokemon em um gráfico de barras. No gráfico é possivel observar que alguns personagens da série podem chegar a mais de 10 metros de altura. Nesse sentido, o jogo eletrônico de realidade aumentada voltado para celulares, o Pokémon GO, resultou diversas vezes em discrepâncias bizarras no mundo real, pois sua altura no jogo não correspondia com sua verdadeira altura.
barplot (table (df$height), col = c("skyblue"), main = "Gráfico de barras")
## Gráfico de rapidez Nesse gráfico é possivel observar que entre os pokemons mais velozes temos: Electrode, Accelgor, Crobat, Jolteon, Ninjask, que possuem velocidade entre 120 e 160. Em contrapartida, entre os mais lentos estão: Parasect, Musharna, Avalugg, Torkoal e Shuckle, que possuem velocidade entre 5-30
table(df$speed)##
## 5 10 15 20 22 23 24 25 28 29 30 31 32 33 34 35 36 38 39 40
## 2 3 9 13 1 4 1 10 4 3 32 2 4 2 1 22 3 3 1 32
## 41 42 43 44 45 46 47 48 49 50 51 52 55 56 57 58 59 60 61 62
## 2 6 5 3 28 2 2 6 1 42 3 4 29 4 4 8 2 43 2 1
## 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82
## 2 5 36 4 4 6 1 34 5 4 2 3 13 3 2 3 1 30 3 1
## 83 84 85 87 88 89 90 91 92 93 95 97 98 99 100 101 102 103 104 105
## 3 3 27 1 1 1 27 4 2 2 25 5 3 3 24 6 2 1 2 10
## 106 108 109 110 111 112 113 114 115 116 118 120 122 123 125 126 130 140 145 150
## 2 6 2 10 2 2 1 1 8 2 1 4 1 1 3 1 4 1 1 1
## 160
## 1barplot (table (df$speed), col = c("#e619b9"), main = "Gráfico 2- Rapidez")
Resumo
summary(df)## id pokemon species_id height
## Min. : 1.0 Length:718 Min. : 1.0 Min. : 1.00
## 1st Qu.:180.2 Class :character 1st Qu.:180.2 1st Qu.: 6.00
## Median :359.5 Mode :character Median :359.5 Median : 10.00
## Mean :359.5 Mean :359.5 Mean : 11.41
## 3rd Qu.:538.8 3rd Qu.:538.8 3rd Qu.: 14.00
## Max. :718.0 Max. :718.0 Max. :145.00
## weight base_experience type_1 type_2
## Min. : 1.0 Min. : 36.00 Length:718 Length:718
## 1st Qu.: 95.0 1st Qu.: 65.25 Class :character Class :character
## Median : 280.0 Median :147.00 Mode :character Mode :character
## Mean : 568.2 Mean :141.55
## 3rd Qu.: 609.5 3rd Qu.:177.00
## Max. :9500.0 Max. :608.00
## attack defense hp special_attack
## Min. : 5.00 Min. : 5.00 Min. : 1.00 Min. : 10.00
## 1st Qu.: 53.00 1st Qu.: 50.00 1st Qu.: 50.00 1st Qu.: 45.00
## Median : 73.00 Median : 65.00 Median : 65.00 Median : 65.00
## Mean : 74.85 Mean : 70.67 Mean : 68.37 Mean : 68.47
## 3rd Qu.: 95.00 3rd Qu.: 85.00 3rd Qu.: 80.00 3rd Qu.: 90.00
## Max. :165.00 Max. :230.00 Max. :255.00 Max. :154.00
## special_defense speed color_1 color_2
## Min. : 20.00 Min. : 5.00 Length:718 Length:718
## 1st Qu.: 50.00 1st Qu.: 45.00 Class :character Class :character
## Median : 65.00 Median : 65.00 Mode :character Mode :character
## Mean : 69.09 Mean : 65.72
## 3rd Qu.: 85.00 3rd Qu.: 85.00
## Max. :230.00 Max. :160.00
## color_f egg_group_1 egg_group_2 url_image
## Length:718 Length:718 Length:718 Length:718
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## x y
## Min. :-49.152 Min. :-45.793
## 1st Qu.:-17.695 1st Qu.:-17.293
## Median : 0.705 Median : -0.628
## Mean : 0.000 Mean : 0.000
## 3rd Qu.: 15.905 3rd Qu.: 18.155
## Max. : 53.142 Max. : 46.593summary(df$height)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 1.00 6.00 10.00 11.41 14.00 145.00summary(df$speed)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 5.00 45.00 65.00 65.72 85.00 160.00