Pokémon

R Markdown

DATAFRAME

load("~/Base_de_dados-master/df_pokemon.RData")

BASES

library(readxl)

## Warning: package 'readxl' was built under R version 4.2.2

library(flextable)

## Warning: package 'flextable' was built under R version 4.2.2

library(dplyr)

## Warning: package 'dplyr' was built under R version 4.2.2

## 
## 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

RESUMO

df %>% 
  select(speed,type_1)%>% 
  group_by(type_1) %>%
  summarise(Velocidade.Média=mean(speed),
            mediana=median(speed),
            Desvio.Padrão=sd(speed),
            Velocidade.Mínima=min(speed),
            Velocidade.Máxima=max(speed)) %>% 
  flextable() %>% theme_vader()

GRÁFICO BLOXPOT

boxplot(df$speed ~df$type_1,
        par(cex=0.5),
        col=c("red","blue"),
        main="Qual tipo Pokémon é mais rápido?",
        ylab="Velocidade", xlab="Tipagem")

INTERPRETAÇÃO DAS TABELAS E GRÁFICO

Inicialmente para criar a tabela foram escolhidas as variáveis type_1 e speed para dar inicio a tabela por grupos com a velocidade média,mediana, desvio padrão, velocidade mínima e velocidade máxima dos tipos de pokémon.

Ao criar a tabela podemos perceber que na maioria dos dados analisados, os pokémons do tipo voador(flying) saem na frente em todos menos em sua velocidade máxima, onde os pokémons do tipo inseto(bug) estão a frente.

Ao analisar o gráfico de caixas não há muitos pokémons que estão fora da curva, apenas 1 do tipo inseto(bug), 1 do tipo poison(venenoso) e 1 do tipo pedra(rock).Enquanto o equilibrio das linhas dentro das caixas temos poucas estando em assimetria.