Introdução

load("C:/Users/Felipe/Downloads/Base_de_dados-master/df_pokemon.RData")
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(flextable)
head(df)
## # A tibble: 6 x 22
##      id pokemon    species_id height weight base_experience type_1 type_2 attack
##   <dbl> <chr>           <int>  <int>  <int>           <int> <chr>  <chr>   <int>
## 1     1 bulbasaur           1      7     69              64 grass  poison     49
## 2     2 ivysaur             2     10    130             142 grass  poison     62
## 3     3 venusaur            3     20   1000             236 grass  poison     82
## 4     4 charmander          4      6     85              62 fire   <NA>       52
## 5     5 charmeleon          5     11    190             142 fire   <NA>       64
## 6     6 charizard           6     17    905             240 fire   flying     84
## # ... with 13 more variables: defense <int>, hp <int>, special_attack <int>,
## #   special_defense <int>, speed <int>, color_1 <chr>, color_2 <chr>,
## #   color_f <chr>, egg_group_1 <chr>, egg_group_2 <chr>, url_image <chr>,
## #   x <dbl>, y <dbl>

Média e Desvio Padrão

ft <- df %>% select(type_1, attack) %>% group_by(type_1) %>% summarise(Média_att=mean(attack),
                                                                       Desvio_att=sd(attack),
                                                                       Quantidade_Tipo_1=n()) %>% 
  
  data.frame() %>% flextable()


ft <- bg(ft, bg = "royalblue", part = "header")
ft <- bg(ft, bg = "gray", part = "body")
ft

Boxplot

boxplot(attack~type_1, data = df,
        col=c("red","blue","yellow","orange","grey","brown","black","pink","white","green","light blue","dark green","yellow","red","purple","violet","pink","brown"),main="Gráfico de ataque dos tipos de pokemon",  xlab = "Tipos de Pokemon",
        ylab = "Ataque" )

Ao analisar o gráfico, é possível concluir que o bug possui frequência de ataque que varia, começando perto do 0 e chegando perto dos 150. O dragon possui o ataque com uma variação menor, pois começa no 50, podendo chegar até 150. Já o Fairy, começa abaixo de 50 e consegue ultrapassar o 100. O fire possui um ataque que pode começar abaixo de 50 e chegar perto dos 150. O ghost possui ataque mais equilibrado, começando abaixo de 50 e podendo chegar quase aos 150. O groud e o normal também possui variações médias, começando abaixo dos 50 e podendo chegar perto dos 150. Já o psychic, começa no 50 e é o único a ultrapassar os 150. E por fim, o steel começa perto do 0, passa de 100 e não chega até 150.