1. Dados Pokemón

Aqui vou importar a base de dados Pokemón:

load("C:/Users/isaft/OneDrive/Documentos/R/Base_de_dados-master/df_pokemon.RData")

2. Variáveis escolhidas: Tipo 1 e Grupo de ovos 2

df$type_1 <- as.factor(df$type_1)
df$egg_group_2 <- as.factor(df$egg_group_2)

library(knitr)
tabela1 <- table(df$type_1, df$egg_group_2)
kable(tabela1)

	bug	dragon	fairy	flying	ground	humanshape	indeterminate	mineral	plant	water1	water2	water3
bug	2	0	0	0	0	2	0	2	2	0	0	0
dark	0	2	0	0	0	0	0	0	0	0	2	0
dragon	0	11	0	0	0	0	0	0	0	0	0	0
electric	0	2	4	0	3	0	0	0	0	0	0	0
fairy	0	0	4	0	0	0	0	0	0	0	0	0
fighting	0	0	0	0	0	5	0	0	0	0	0	0
fire	0	3	0	0	0	3	0	0	0	0	0	0
flying	0	0	0	0	0	0	0	0	0	0	0	0
ghost	0	0	0	0	0	0	4	0	0	0	0	0
grass	0	3	0	0	0	2	0	2	29	0	0	0
ground	0	0	0	0	3	0	1	0	0	0	0	0
ice	0	0	0	0	4	0	0	3	0	0	0	0
normal	0	1	2	0	6	3	1	0	0	0	0	0
poison	0	5	0	0	4	0	0	0	0	0	0	2
psychic	0	0	0	0	2	0	0	0	0	0	0	0
rock	0	2	0	0	0	0	0	1	0	0	0	6
steel	0	0	1	0	0	0	0	0	0	0	0	0
water	0	7	4	4	11	0	2	0	3	13	6	7

Podemos ver analisando a tabela:

O Tipo 1 Bug concentrado somente nos Grupos de ovos Bug, Humanshape, Mineral e Plan, todos possuindo 25% (2 pokemons em cada um dos 4 grupos);
A maioria dos Tipos 1 concentrados no Grupo de ovos Dragon com 36 no total;
Muitos também concentrados no Grupo de ovos Ground com 33 e no Plant com 34;
Os grupos Bug e Plant com poucos, com somente 2 e 4 respectivamente;
E alguns Tipo 1 que se concentram 100% em um Grupo de ovos, como o Dragon (11), o Fairy (4), o Psychic (2), o Fighting (5) e o Ghost (4).

Grupo de ovos Dragon reina!