Untitled

load("C:/Users/renata/Desktop/df_pokemon.RData")

summary(df$attack)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    5.00   53.00   73.00   74.85   95.00  165.00

summary(df$type_1)

##    Length     Class      Mode 
##       718 character character

var(df$attack)

## [1] 837.3524

sd(df$attack)

## [1] 28.93704

mean(df$attack)

## [1] 74.85376

O Desvio-padrão

Tabelas Quali Vs Quanti

Cruzamento de variáveis quantitativas por variáveis qualitativas

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)



df %>% select(attack,type_1) %>%
  group_by(type_1) %>% 
  summarise(Média=round(mean(attack),2),
            Desvio_Padrao=round(sd(attack),2)) %>% flextable() %>% theme_tron() 

#Gerar uma visualização dessa tabela (min, 1 quartil, mediana,3 quartil e maximo)

df %>% select(attack,type_1) %>%
  group_by(type_1) %>% 
  summarise(Média=round(mean(attack),2),primeiro_quartil=quantile(attack,probs=0.25),
            mediana=median(attack),
            terceiro_quartil=quantile(attack,probs=0.75),
            Desvio_Padrao=round(sd(attack),2)) %>% flextable() %>% theme_tron()

boxplot

boxplot(attack~type_1,  data=df ,
        col=c("red","royalblue"),
        horizontal =F,
        main="Gráfico 1 ")

Todos apresentam desvio padrão parecidos, próximos a 30, apenas se destoando dois deles: voadores com 45 e de poção com 19. A média mais alta é a dos dragões concentrando acima de 50, tendo uma distribuição parecida, porém com valores altos.