df%>%group_by(egg_group_1)%>%summarise(media=mean(speed),mediana=median(speed),desv.pad=sd(speed))%>%flextable()%>%theme_zebra()
egg_group_1 | media | mediana | desv.pad |
|---|---|---|---|
bug | 61.21212 | 60.0 | 32.74071 |
ditto | 48.00000 | 48.0 | |
dragon | 63.77778 | 58.0 | 23.46155 |
fairy | 62.78125 | 57.5 | 25.62601 |
flying | 81.30435 | 80.0 | 23.65011 |
ground | 72.98802 | 70.0 | 24.36321 |
humanshape | 67.18919 | 65.0 | 25.61883 |
indeterminate | 54.60976 | 50.0 | 24.75164 |
mineral | 52.73913 | 47.5 | 26.18943 |
monster | 54.98667 | 50.0 | 21.89934 |
no-eggs | 81.64286 | 90.0 | 32.01586 |
plant | 43.40000 | 40.0 | 17.83255 |
water1 | 60.31081 | 60.0 | 22.23469 |
water2 | 76.20000 | 68.0 | 14.04177 |
water3 | 64.92857 | 69.0 | 24.97218 |
A maior média de velocidade está entre os Pokemon que não possuem ovos (no-eggs, 81.64), seguidos de perto pelos voadores (flying, 81.30). A mediana dos Pokemons no-eggs está em 90 e o desvio-padrão em 32, enquanto a mediana do grupo flying está em 80 e desvio-padrão em 23.
Isso mostra que, apesar de possuírem médias próximas, o grupo flying demonstra ser mais simétrico (pela proximidade entre média e meidana) e concentrado (menor desvio-padrão) que o tipo no-eggs.
Nota-se também que o tipo ditto não possui desvio-padrão e as duas outras medidas (média e mediana) são iguais, indicando que a categoria possui apenas um indivíduo.
cores<-unique(df$color_1)
par(cex.axis=.81)
boxplot(speed~egg_group_1
,data=df
#,main="Distribuição de velocidade por tipo de ovos"
,las=3,xlab = '',ylab='Velocidade',col=cores)