library (readr) <- read_csv ("pokemon.csv" )
Rows: 1194 Columns: 12
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr (5): Dex No, Name, Base Name, Type 1, Type 2
dbl (7): BST, HP, Attack, Defense, Sp. Attack, Sp. Defense, Speed
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
spc_tbl_ [1,194 × 12] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
$ Dex No : chr [1:1194] "0001" "0002" "0003" "0003" ...
$ Name : chr [1:1194] "Bulbasaur" "Ivysaur" "Venusaur" "Mega Venusaur" ...
$ Base Name : chr [1:1194] "Bulbasaur" "Ivysaur" "Venusaur" "Venusaur" ...
$ Type 1 : chr [1:1194] "GRASS" "GRASS" "GRASS" "GRASS" ...
$ Type 2 : chr [1:1194] "POISON" "POISON" "POISON" "POISON" ...
$ BST : num [1:1194] 318 405 525 625 309 405 534 634 634 314 ...
$ HP : num [1:1194] 45 60 80 80 39 58 78 78 78 44 ...
$ Attack : num [1:1194] 49 62 82 100 52 64 84 130 104 48 ...
$ Defense : num [1:1194] 49 63 83 123 43 58 78 111 78 65 ...
$ Sp. Attack : num [1:1194] 65 80 100 122 60 80 109 130 159 50 ...
$ Sp. Defense: num [1:1194] 65 80 100 120 50 65 85 85 115 64 ...
$ Speed : num [1:1194] 45 60 80 80 65 80 100 100 100 43 ...
- attr(*, "spec")=
.. cols(
.. `Dex No` = col_character(),
.. Name = col_character(),
.. `Base Name` = col_character(),
.. `Type 1` = col_character(),
.. `Type 2` = col_character(),
.. BST = col_double(),
.. HP = col_double(),
.. Attack = col_double(),
.. Defense = col_double(),
.. `Sp. Attack` = col_double(),
.. `Sp. Defense` = col_double(),
.. Speed = col_double()
.. )
- attr(*, "problems")=<externalptr>
[1] "BUG" "DARK" "DRAGON" "ELECTRIC" "FAIRY" "FIGHTING"
[7] "FIRE" "FLYING" "GHOST" "GRASS" "GROUND" "ICE"
[13] "NORMAL" "POISON" "PSYCHIC" "ROCK" "STEEL" "WATER"
levels (pokemon$ ` Type 1 ` ) <- c ("Inseto" , "Sombrio" , "Dragão" , "Elétrico" ,"Fada" , "Lutador" , "Fogo" , "Voador" , "Fantasma" , "Planta" , "Terrestre" , "Gelo" , "Normal" , "Venenoso" , "Psíquico" , "Pedra" , "Aço" , "Água" )levels (pokemon$ ` Type 2 ` )
[1] "-" "BUG" "DARK" "DRAGON" "ELECTRIC" "FAIRY"
[7] "FIGHTING" "FIRE" "FLYING" "GHOST" "GRASS" "GROUND"
[13] "ICE" "NORMAL" "POISON" "PSYCHIC" "ROCK" "STEEL"
[19] "WATER"
levels (pokemon$ ` Type 2 ` ) <- c ("Ausente" , "Inseto" , "Sombrio" , "Dragão" , "Elétrico" ,"Fada" , "Lutador" , "Fogo" , "Voador" , "Fantasma" , "Planta" , "Terrestre" , "Gelo" , "Normal" , "Venenoso" , "Psíquico" , "Pedra" , "Aço" , "Água" )
library (summarytools)freq (pokemon$ ` Tipo 1 ` )
Frequencies
pokemon$`Tipo 1`
Type: Factor
Freq % Valid % Valid Cum. % Total % Total Cum.
--------------- ------ --------- -------------- --------- --------------
Inseto 91 7.62 7.62 7.62 7.62
Sombrio 56 4.69 12.31 4.69 12.31
Dragão 49 4.10 16.42 4.10 16.42
Elétrico 73 6.11 22.53 6.11 22.53
Fada 31 2.60 25.13 2.60 25.13
Lutador 50 4.19 29.31 4.19 29.31
Fogo 75 6.28 35.59 6.28 35.59
Voador 10 0.84 36.43 0.84 36.43
Fantasma 47 3.94 40.37 3.94 40.37
Planta 105 8.79 49.16 8.79 49.16
Terrestre 46 3.85 53.02 3.85 53.02
Gelo 43 3.60 56.62 3.60 56.62
Normal 131 10.97 67.59 10.97 67.59
Venenoso 45 3.77 71.36 3.77 71.36
Psíquico 82 6.87 78.22 6.87 78.22
Pedra 67 5.61 83.84 5.61 83.84
Aço 43 3.60 87.44 3.60 87.44
Água 150 12.56 100.00 12.56 100.00
<NA> 0 0.00 100.00
Total 1194 100.00 100.00 100.00 100.00
Frequencies
pokemon$`Tipo 2`
Type: Factor
Freq % Valid % Valid Cum. % Total % Total Cum.
--------------- ------ --------- -------------- --------- --------------
Ausente 542 45.39 45.39 45.39 45.39
Inseto 9 0.75 46.15 0.75 46.15
Sombrio 33 2.76 48.91 2.76 48.91
Dragão 39 3.27 52.18 3.27 52.18
Elétrico 13 1.09 53.27 1.09 53.27
Fada 42 3.52 56.78 3.52 56.78
Lutador 41 3.43 60.22 3.43 60.22
Fogo 20 1.68 61.89 1.68 61.89
Voador 122 10.22 72.11 10.22 72.11
Fantasma 37 3.10 75.21 3.10 75.21
Planta 33 2.76 77.97 2.76 77.97
Terrestre 43 3.60 81.57 3.60 81.57
Gelo 22 1.84 83.42 1.84 83.42
Normal 18 1.51 84.92 1.51 84.92
Venenoso 47 3.94 88.86 3.94 88.86
Psíquico 49 4.10 92.96 4.10 92.96
Pedra 19 1.59 94.56 1.59 94.56
Aço 40 3.35 97.91 3.35 97.91
Água 25 2.09 100.00 2.09 100.00
<NA> 0 0.00 100.00
Total 1194 100.00 100.00 100.00 100.00
library (gtsummary)c ("Tipo 1" , "Tipo 2" ,"Status Base" ,"Vida" ,"Ataque" ,"Defesa" , "Ataque especial" , "Defesa especial" , "Velocidade" )]
# A tibble: 1,194 × 9
`Tipo 1` `Tipo 2` `Status Base` Vida Ataque Defesa `Ataque especial`
<fct> <fct> <dbl> <dbl> <dbl> <dbl> <dbl>
1 Planta Venenoso 318 45 49 49 65
2 Planta Venenoso 405 60 62 63 80
3 Planta Venenoso 525 80 82 83 100
4 Planta Venenoso 625 80 100 123 122
5 Fogo Ausente 309 39 52 43 60
6 Fogo Ausente 405 58 64 58 80
7 Fogo Voador 534 78 84 78 109
8 Fogo Dragão 634 78 130 111 130
9 Fogo Voador 634 78 104 78 159
10 Água Ausente 314 44 48 65 50
# ℹ 1,184 more rows
# ℹ 2 more variables: `Defesa especial` <dbl>, Velocidade <dbl>
tbl_summary (pokemon, label = list ())
Characteristic N = 1,194
Tipo 1
Inseto
91 (7.6%) Sombrio
56 (4.7%) Dragão
49 (4.1%) Elétrico
73 (6.1%) Fada
31 (2.6%) Lutador
50 (4.2%) Fogo
75 (6.3%) Voador
10 (0.8%) Fantasma
47 (3.9%) Planta
105 (8.8%) Terrestre
46 (3.9%) Gelo
43 (3.6%) Normal
131 (11%) Venenoso
45 (3.8%) Psíquico
82 (6.9%) Pedra
67 (5.6%) Aço
43 (3.6%) Água
150 (13%) Tipo 2
Ausente
542 (45%) Inseto
9 (0.8%) Sombrio
33 (2.8%) Dragão
39 (3.3%) Elétrico
13 (1.1%) Fada
42 (3.5%) Lutador
41 (3.4%) Fogo
20 (1.7%) Voador
122 (10%) Fantasma
37 (3.1%) Planta
33 (2.8%) Terrestre
43 (3.6%) Gelo
22 (1.8%) Normal
18 (1.5%) Venenoso
47 (3.9%) Psíquico
49 (4.1%) Pedra
19 (1.6%) Aço
40 (3.4%) Água
25 (2.1%) Status Base
461 (330, 520) Vida
70 (52, 85) Ataque
80 (56, 100) Defesa
70 (51, 90) Ataque especial
65 (50, 95) Defesa especial
70 (50, 90) Velocidade
68 (45, 91)