library(dplyr) # operador pipe e tratamento dos dados##
## 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) # para fazer uma tabela no RMarkdown
library(reactable) # para fazer uma tabela no RMarkdown
library(RColorBrewer) # para colocar a corload("C:/Users/mtbor/Downloads/Base_de_dados-master/df_pokemon.RData")ft2 <- df %>% select(type_1,base_experience) %>%
group_by(type_1) %>%
summarise(media=round(mean(base_experience),1),
desvio.padrao=round(sd(base_experience),1),
media2=mean(base_experience),
desvio.padrao2=sd(base_experience),
tamanho=n()) %>%
data.frame() %>% flextable()
ft2type_1 | media | desvio.padrao | media2 | desvio.padrao2 | tamanho |
bug | 117.9 | 60.6 | 117.9048 | 60.64963 | 63 |
dark | 139.5 | 70.8 | 139.5000 | 70.81143 | 28 |
dragon | 197.2 | 91.2 | 197.2500 | 91.20414 | 24 |
electric | 148.6 | 69.6 | 148.6389 | 69.56196 | 36 |
fairy | 142.5 | 79.4 | 142.5294 | 79.42459 | 17 |
fighting | 129.8 | 58.5 | 129.8400 | 58.54178 | 25 |
fire | 151.6 | 72.9 | 151.5652 | 72.88611 | 46 |
flying | 165.7 | 107.6 | 165.6667 | 107.59802 | 3 |
ghost | 139.0 | 71.1 | 139.0435 | 71.08988 | 23 |
grass | 138.0 | 67.6 | 137.9545 | 67.58799 | 66 |
ground | 137.8 | 72.4 | 137.8000 | 72.38470 | 30 |
ice | 148.2 | 71.3 | 148.1739 | 71.32554 | 23 |
normal | 138.0 | 89.6 | 137.9677 | 89.57647 | 93 |
poison | 125.7 | 62.0 | 125.6786 | 61.96119 | 28 |
psychic | 158.8 | 82.3 | 158.7609 | 82.34593 | 46 |
rock | 133.6 | 64.4 | 133.5750 | 64.35434 | 40 |
steel | 173.2 | 78.3 | 173.1818 | 78.31356 | 22 |
water | 137.4 | 68.2 | 137.3619 | 68.24519 | 105 |
ft2 %>% theme_tron()type_1 | media | desvio.padrao | media2 | desvio.padrao2 | tamanho |
bug | 117.9 | 60.6 | 117.9048 | 60.64963 | 63 |
dark | 139.5 | 70.8 | 139.5000 | 70.81143 | 28 |
dragon | 197.2 | 91.2 | 197.2500 | 91.20414 | 24 |
electric | 148.6 | 69.6 | 148.6389 | 69.56196 | 36 |
fairy | 142.5 | 79.4 | 142.5294 | 79.42459 | 17 |
fighting | 129.8 | 58.5 | 129.8400 | 58.54178 | 25 |
fire | 151.6 | 72.9 | 151.5652 | 72.88611 | 46 |
flying | 165.7 | 107.6 | 165.6667 | 107.59802 | 3 |
ghost | 139.0 | 71.1 | 139.0435 | 71.08988 | 23 |
grass | 138.0 | 67.6 | 137.9545 | 67.58799 | 66 |
ground | 137.8 | 72.4 | 137.8000 | 72.38470 | 30 |
ice | 148.2 | 71.3 | 148.1739 | 71.32554 | 23 |
normal | 138.0 | 89.6 | 137.9677 | 89.57647 | 93 |
poison | 125.7 | 62.0 | 125.6786 | 61.96119 | 28 |
psychic | 158.8 | 82.3 | 158.7609 | 82.34593 | 46 |
rock | 133.6 | 64.4 | 133.5750 | 64.35434 | 40 |
steel | 173.2 | 78.3 | 173.1818 | 78.31356 | 22 |
water | 137.4 | 68.2 | 137.3619 | 68.24519 | 105 |
library(RColorBrewer)
cor_dark <- brewer.pal(5,"Dark2")
cor_dark## [1] "#1B9E77" "#D95F02" "#7570B3" "#E7298A" "#66A61E"
par(bg='lightyellow')
par(cex=0.4)
boxplot(base_experience~type_1,data = df)boxplot(base_experience~type_1,data = df,
col=cor_dark,main="Gráfico 2 - Boxplot do base_experience por type_1",
horizontal = FALSE)Interpretação: Podemos observar que a maioria dos boxplots possuem assimetria negativa, com a linha da mediana mais próxima ao terceiro quartil. Também se pode notar que os Pokemón do tipo “Dragon” possuem a maior média em comparação ao resto, por estar com o seu retângulo acima dos outros tipos. Além disso, o único tipo de Pokemón que possui outliers é o do tipo “normal”, sendo um desses outliers um valor bem discrepante do restante. Observa-se que a maior mediana está presente no tipo “Dragon”. E nota-se também que temos uma considerável dispersão dos dados no tipo “psychic”, comparado ao resto. Por fim, é possível perceber que o tipo mais simétrico é o “dragon”, e o mais assimétrico é o tipo “fighting”