load("C:/Users/gabri/Desktop/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)
df %>% select(hp,type_1) %>%
group_by(type_1) %>% summarise(Média=round(mean(hp),2),
Desvio_Padrao=round(sd(hp),2)) %>% flextable() %>% theme_tron()
df %>% select(hp,type_1) %>%
group_by(type_1) %>%
summarise(minimo=min(hp),
primeiro_quartil=quantile(hp,probs=0.25),
mediana=median(hp),
terceiro_quartil=quantile(hp,probs=0.75),
maximo=max(hp)) %>%
flextable() %>% theme_tron()
boxplot(hp~type_1, data = df,col=c("orange","grey"),
las = 2,
main= "Boxplot - hp do pokemon por tipo 1 dos pokemon")
Nessa atividade foi usada a base de dados df pokemon, na qual dentro dela há diversas variáveis qualitativas e quantitativas. As duas variáveis escolhidas para se cruzarem nos gráficos a seguir foram, hp e type_1.
Cruzando os dados da variável tipo 1 e hp, vemos na tabela as médias de hp de cada um dos 18 tipos de pokemon, sendo a maior delas a média dos pokemon tipo dragão. Além disso, percebemos que o menor desvio padrão, ou seja, menor taxa de variação do hp em referência a média do seu tipo, é a dos pokemon bug.
Por último, avaliando o gráfico boxplot, percebemos que há 2 outliers de hp do tipo normal, sendo um o maior hp de todos os pokemon e há 1 outlier do tipo psychic.