load("C:/Users/carol/OneDrive/Documentos/UNIRIO/Segundo Periodo ADM/Estatistica/Base_de_dados-master/df_pokemon.RData")
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.0.3
##
## 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)
## Warning: package 'flextable' was built under R version 4.0.5
library(reactable)
## Warning: package 'reactable' was built under R version 4.0.5
df %>% select (type_1,speed) %>%
group_by(type_1) %>%
summarise (Média=round(mean(speed),2),
Desvio_Padrao=round(sd(speed),2)) %>%
flextable() %>% theme_tron()
## `summarise()` ungrouping output (override with `.groups` argument)
type_1 | Média | Desvio_Padrao |
bug | 60.06 | 32.23 |
dark | 75.39 | 25.05 |
dragon | 76.67 | 22.41 |
electric | 83.53 | 27.36 |
fairy | 48.59 | 23.31 |
fighting | 62.88 | 24.27 |
fire | 74.48 | 24.58 |
flying | 96.33 | 36.30 |
ghost | 60.83 | 27.54 |
grass | 59.89 | 25.81 |
ground | 62.13 | 27.45 |
ice | 61.87 | 23.75 |
normal | 69.66 | 26.99 |
poison | 63.57 | 22.63 |
psychic | 72.63 | 32.56 |
rock | 51.98 | 25.72 |
steel | 54.18 | 25.48 |
water | 65.01 | 22.61 |
par(cex=0.5)
boxplot(speed~type_1, data=df, col=c("#f50707","#f59e07"),
horizontal = F, ylim = c(0,250),
main="Boxplot da rapidez dos tipos de pokemons")