Introdução

Carregando e analisando a base de dados de defesa do pokémon.

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)
library(reactable)
library(RColorBrewer)


load("C:/Users/jheni/Base_de_dados-master/df_pokemon.RData")

#Cruzamento de uma variável quatitativa e uma vareável quanlitativa

Nesse gráfico pode-se perceber a média, desvio e quantidade de cada tipo de defesa. Assim, podemos analisar que o tipo “Water” é o que apresenta maior quantidade, seguido do tipo “Normal”, com 93, e “Grass”, com 66. Já os que tipos que apresentam menos quantidade são: “Flying”, com 3 Pokemons nesse tipo, o tipo “Fairy”, com 17, e o tipo “Steel”, com 23. Já na analise do desvio, pode-se perceber que o tipo “Rock” é o que apresenta um número maior, com 36.42132, e “Fighting” que representa o tipo com menor número de desvio.

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


ft <- bg(ft, bg = "#095c63", part = "header")
ft <- bg(ft, bg = "#ade8ed", part = "body")
ft

#Boxplot da Defesa dos tipos de Pokémon

boxplot(defense~type_1, data = df,
        col=c("#7ea8e6","#cf72cf","#72cfb3","#72cf80","#84cf72","#a5cf72","#c4cf72", "#cfbe72","#cf8472","#9a72cf","#317394", "#ad1fff","#ff1f40","#505730","#e89161","#7ffaf2","#e362a0", "#00eb1b"), main="Gráfico de defesa dos tipos de Pokemon",
        xlab = "Tipos de Pokemon",
        ylab = "Defesa" )