load("C:/Users/usuario/Downloads/Base_de_dados-master/Base_de_dados-master/df_pokemon.RData")
ft <- df %>% select(type_1, defense) %>% group_by(type_1) %>% summarise(média_Def=mean(defense),
                                                                        Desvio_DF=sd(defense),
                                                                        Quantidade_Tipo_1=n()) %>% 
  
    data.frame() %>% flextable()


ft <- bg(ft, bg = "orange", part = "header")
ft <- bg(ft, bg = "purple", part = "body")
ft
boxplot(defense~type_1, data = df,
        col=c("#ad5950","#141180","#11801a","#381f03","#cbf2ae","#8de3da","#4d4557", "#fc9505","#1a2036","#4d1061","#d99d04", "#6e050c","#e6aa73","#875d58","#6d4db3","#195215","#7d5104", "#c4c4c4"), main="defesa dos pokemons",
        xlab = "pokemons existentes",
        ylab = "Defesa" )

Ao observarmos os gráficos, podemos constatar que os pokemons do tipo metal e de pedra tendem a ter uma defesa maior que a dos outros estilos. já os estilos que possuem a menor média de defesa são os do tipo elétrico seguido pelo normal.

Já no quesito desvio, podemos observar que os tipos que mais possuem está habilidade são, os do tipo pedra e gelo.

Mesmo com todos esses dados, no ecossistema do mundo pokemon, acharemos com maior frequencia os pokemons do tipo normal e do tipo água, sendo assim o mestre pokemon terá uma dificuldade bem maior para achar os pokemons com uma grande defesa, como no caso dos pokemons de metal, que tem uma incidencia de 22 desse tipo proporcionalmente para os outros tipo.