Facultad de Ciencias Naturales y Matemáticas
II PAO 2022-2023
Estadística
Proyecto de estadística 1
Ing. Joffre Sánchez
Paralelo #1
ESTG1034
Christian Guillermo Narvaez Saavedra
Nager Rafael Naranjo Molina
[email protected]
[email protected]
16/01/2023
Segundo término- Segunda evaluación
Data: Pokémones
Introducción
Durante años se ha oído acerca de los pokémones, independientemente de si se es un
gran fan de los videojuegos o del anime japonés, todo mundo sabe acerca de ellos y de
su existencia; aunque sea únicamente del famoso Pikachú, aquella criatura color
amarilla que se presenta como tierna y fiel acompañante de Ash Ketchum. Pokemon
tuvo sus inicios como un videojuego, cuyo autor es Satoshi Tajiri.
De hecho, la palabra pokemon se deriva del japonés Poketto Monsuta, cuyo significado
más cercano al español sería “Monstruo de bolsillo”. La idea fue básicamente crear un
mundo de fantasía donde las personas recolectaban estos pokemones y luchaban junto
a otros, llamados “entrenadores pokemon” para subir de rango. Fue tanto el impacto
social del videojuego que este empezó a tener muchas más versiones a través de los
años, hasta el punto de tener su propia serie o lo que en Japón se denomina, anime.
Resulta que el anime fue tan popular que tuvo 25 temporadas y estuvo al aire durante
25 años.
Los pokemones se caracterizan por poseer un elemento como habilidad. En este caso,
existen los cuatro elementos como los que son: aire, agua, tierra y fuego; y aquellos
que se derivan de estos como: electricidad, luz, veneno, oscuridad, piedra, hielo, entre
otros. Incluso, con el pasar de los años, se les fue atribuyendo la habilidad de
evolucionar. La evolución de estos pokémones consiste en que el pokemon mejora sus
habilidades, obtiene algunas nuevas e incluso cambia su apariencia. La idea del
videojuego es sencilla, entre más pokémones que se tengan y, más sea su grado de
evolución, mayores serán las probabilidades de ganar batallas, campeonatos, subir de
rango y, como es el caso de la serie, convertirse en campeón mundial. Adicional, años
después se introdujeron los conceptos de pokémones legendarios. Criaturas únicas y
sumamente difíciles de encontrar, peor atrapar.
A todo esto, se responde a la pregunta: ¿Por qué se eligió esta data?
Si bien es cierto, Pokemon ha sido un fenómeno a nivel mundial con un impacto
increíblemente fuerte en jóvenes y adultos. Pues, durante 25 años de transmisión, es
de esperarse un rango inmenso de edades de interés en el videojuego y anime; tanto
así que, años atrás, por el 2016 se lanzó a todos los mercados digitales la aplicación de
Pokemon Go, cuyo fin era vivir una experiencia más real en la captura de pokemones y
vivir las famosas batallas Pokemon. No solo en videojuegos de la marca Nintendo,
quién año tras año sigue actualizando y brindando mejores versiones de estos. Al
menos en Ecuador, Pokemon fue el boom del momento y hasta el día de hoy lo sigue
siendo. Simplemente se abre la aplicación celular y en una gran cantidad de espacios
abiertos se encuentran muchas clases de Pokemones listos para ser atrapados en las
pokebolas digitales y llevarlos a los centros de entrenamiento y coliseos para obtener
las medallas de victoria.
Resulta interesante estudiar tal impacto y es por eso que se determinó que esta sería la
data para el proyecto.
Objetivos
Los objetivos aprobados para este proyecto son:
Comparar el promedio del total de puntos los pokémones tipo agua y fuego.
Comparar el promedio de ataque de los pokémones lengendarios y no
legendarios.
Comparar el promedio de defensa de los pokémones de generación uno y ocho.
Leer data en R-studio
file.choose()
ruta_excel <- "C:\\Users\\DELL\\Downloads\\Pokemon.csv"
Pokemon <- read.csv(ruta_excel)
Pokemon
Se descargó la data desde la web data.world. En anexos encontrará el link de
descarga.
Objetivo 1.
pokemones_agua <- Pokemon %>% filter(type1 == "Water") %>% select(total)
%>% unlist()
pokemones_agua
pokemones_fuego <- Pokemon %>% filter(type1 == "Fire") %>% select(total)
%>% unlist()
pokemones_fuego
Lectura de datos:
hist(pokemones_agua)
En base al histograma, no se puede observar una distribución simétrica. Sin embargo,
se puede deducir que la media se encuentra entre 400 y 550 por la distribución que
existe en los grupos de datos, donde pareciera estar más concentrado. Además, se
puede observar un grupo aberrante entre 750 y 800.
qqnorm(pokemones_agua)
qqline(pokemones_agua)
Con qqnorm y qqline, se puede analizar si los datos siguen una distribución normal.
Con qqline(), se puede presenciar que los datos no siguen una distribución normal, ni
en las colas ni en el centro. Los datos se encuentran no se empatan con la línea
diagonal trazada.
hist(pokemones_fuego)
La mayor agrupación de datos pareciera estar entre 400 y 550. Sin embargo, se podría
determinar que la media existe entre 400 y 500 porque es el rango que más centra
datos a casi la misma frecuencia.
qqnorm(pokemones_fuego)
qqline(pokemones_fuego)
Se puede observar que los datos no se encuentran ni cerca de seguir una distribución
normal. Se encuentra muy separados de la línea diagonal de normalidad visualizada en
el gráfico.
Prueba de varianzas
H0: var?pokemones_agua = var?pokemones_fuego
Ha: var?pokemones_agua != var?pokemones_fuego
var.test(x = pokemones_agua, y= pokemones_fuego, ratio=1, alternative =
"two.sided",
conf.level = 0.95)
El valor p resulta ser 0.4641, mayor que el valor de significancia (0.05) al 95% de
confianza. No se puede rechazar la hipótesis nula. Se considera a las varianzas
iguales.
Prueba de medias
Se elige como hipótesis alterna que la media del total de puntos de los pokémones de
agua es menor que los pokémones de fuego porque se asume que las habilidades de
agua pueden ser fácilmente anuladas por las de fuego. En otras palabras, se asume al
fuego como un elemento superior al agua.
H0: mu?pokemones_agua = mu?pokemones_fuego
Ha: mu?pokemones_agua < pokemones_fuego
t.test(x=pokemones_agua, y=pokemones_fuego, alternative="less", mu=0,
paired = F, var.equal = T, conf.level = 0.95)
El valor p (0.064) es mayor al nivel de significancia (0.05) a un nivel de confianza del
95%. Por lo tanto, no se puede rechazar la hipótesis nula.
Conclusión objetivo 1
Ya que el valor p fue mayor al nivel de significancia a un 95% de confianza, se
concluye que no existe diferencia significativa en el total de puntos entre los
pokémones tipo agua y los tipo fuego.
Por tanto, no se puede una ventaja significativa al usar un tipo fuego contra un tipo
agua. En otras palabras, la hipótesis alterna se planteaba en el sentido de que las
habilidades de fuego anulaban las de agua; con esta conclusión, se presencia que las
habilidades de agua también pueden representar un factor de peligro ante las de fuego.
Entonces, no se puede ni asegurar la batalla ni tampoco mayores probabilidades de
obtener el rango de maestro al usar un pokemon tipo fuego.
Objetivo 2.
pokemones_leg <- Pokemon %>% filter(legendary == "TRUE") %>% select(attack)
%>% unlist()
pokemones_leg
pokemones_noleg <- Pokemon %>% filter(legendary == "FALSE") %>%
select(attack) %>% unlist()
pokemones_noleg
Lectura de datos.
hist(pokemones_leg)
El histograma parece presentar un sesgo positivo o un sesgo hacia la derecha. Por lo
tanto, la media será mayor que la mediana. Además, la media se encuentra entre 90 y
130.
qqnorm(pokemones_leg)
qqline(pokemones_leg)
Los datos parecen tener una distribución normal en el centro pero no en las colas. Son
muy dispersos en los extremos, no se empatan con la línea diagonal.
hist(pokemones_noleg)
Se observa una mejor distribución de los datos en este gráfico. Sin embargo, se sigue
observando un sesgo hacia la derecha. Se puede concluir que la media es mayor que
la mediana en este conjunto.
qqnorm(pokemones_noleg)
qqline(pokemones_noleg)
Este gráfico corrobora lo dicho en el histograma. Se observa una distribución normal en
la gran mayoría de los datos a excepción de las colas. Pero de -2 a 2, los datos se
empatan con la línea diagonal.
Prueba de varianzas
H0: var?pokemones_leg = var?pokemones_noleg
Ha: var?pokemones_leg != var?pokemones_noleg
var.test(x = pokemones_leg, y= pokemones_noleg, ratio=1, alternative = "two.sided",
conf.level = 0.95)
El valor p es mayor al nivel de significancia (p-value = 0.7993, alpha = 0.05). Por lo
tanto, no se puede rechazar la hipótesis nula. Las varianzas son iguales.
Prueba de medias
Se define como hipótesis alterna que la media de los pokémones legendarios sea
mayor que la de los no legendarios. La razón es que se esperaría que, al ser una
especie única entre los miles de pokémones que existen, estos demuestren cierto nivel
de superioridad frente a los demás pokémones.
#H0: mu?pokemones_leg = mu?pokemones_noleg
#Ha: mu?pokemones_leg > mu?pokemones_noleg
t.test(x=pokemones_leg, y=pokemones_noleg, alternative="greater", mu=0,
paired = F, var.equal = T, conf.level = 0.95)
El valor p es menor al valor de significancia al 95% de confianza (p-value = 2.2x10^-16
alpha = 0.05)
Conclusión objetivo 2
Ya que el valor p en esta prueba resultó ser menor que el valor de significancia al 95%
de confianza, se puede rechazar la hipótesis nula. En conclusión, existe diferencia
significativa entre la media de ataque de los pokémones legendarios y los no
legendarios.
Por lo tanto, se determina que usar pokémones legendarios provean mayores
probabilidades de acabar con el pokemon rival. A nivel de batalla, esto implica mejores
resultados en el campo.
Las probabilidades de obtener un rango de maestro pokemon son mayores usando los
que corresponden a la especie legendaria.
Objetivo 3
pokemones_gen1 <- Pokemon %>% filter(generation == 1) %>% select(defense) %>%
unlist()
pokemones_gen1
pokemones_gen8 <- Pokemon %>% filter(generation == 8) %>% select(defense) %>%
unlist()
pokemones_noleg
Comportamiento de datos
hist(pokemones_gen1)
La distribución de este conjunto de datos se asemeja bastante a una distribución
normal. Sin embargo, se puede presencia un sesgo hacia la derecha. Esto indica que la
mediana es menor que la media. Además, por la distribución se determina que la
mediana se encuentra entre 50 y 80. También, se evidencian datos atípicos.
qqnorm(pokemones_gen1)
qqline(pokemones_gen1)
El conjunto presenta un comportamiento “normal” en su gran mayoría de datos, incluso
bastante cerca de la normalidad en las colas. Sin embargo, también se evidencian
datos atípicos muy por fuera de la línea diagonal.
hist(pokemones_gen8)
El histograma de este conjunto presenta un sesgo hacia la derecha muy notorio. De la
misma forma, se puede concluir que la mediana es menor que la media y que la media
se encuentra entre 50 y 100. Además, es de notar que existen valores atípicos y estos
se presentan con una gran separación entre la concentración de datos.
qqnorm(pokemones_gen8)
qqline(pokemones_gen8)
Como se evidenció en el histograma, los valores atípicos se encuentran muy separados
de la concentración de datos. Además, parecen tener un comportamiento de
distribución lineal en todos sus datos con excepción de los situados en la cola inferior.
Prueba de varianzas
H0: var?pokemones_gen1 = var?pokemones_gen8
Ha: var?pokemones_gen1 != var?pokemones_gen8
var.test(x = pokemones_gen1, y= pokemones_gen8, ratio=1, alternative =
"two.sided",
conf.level = 0.95)
El valor p es mayor al nivel de significancia (p-value = 0.3115, alpha = 0.05) . Por lo
tanto, no se puede rechazar la hipótesis nula. Las varianzas son iguales.
Prueba de medias
Se escoge como hipótesis alterna que la media de defensa de los pokémones de
generación uno debería ser menor a la media de la generación ocho, por motivos de
que se espera a medida que aumentan en la generación, sus habilidades evolucionen
de manera proporcional. Incluyendo a la defensa. Por ende, la última generación
debería ser mejor que la primera.
#H0: mu?pokemones_gen1 = mu?pokemones_gen8
#Ha: mu?pokemones_gen1 < mu?pokemones_gen8
t.test(x=pokemones_gen1, y=pokemones_gen8, alternative="less", mu=0,
paired = F, var.equal = T, conf.level = 0.95)
El valor p es menor al valor de significancia al 95% de confianza (p-value = 0.01539
alpha = 0.05).
Conclusión del objetivo 3
Como el valor p fue menor que el valor de significancia al 95% de confianza, se
concluye que se puede rechazar la hipótesis nula y que existe diferencia significativa
entre las medias.
Esto solo evidencia que, a medida que los pokémones nacen en una generación
superior, sus habilidades también son superiores. Por lo tanto, la defensa de los
pokémones de la última generación es mucho mejor que la primera generación.
La defensa es un requisito muy importante en una batalla pokemon. Entre mayor su
habilidad de defenderse a los ataques, mayores sus probabilidades de resistir en la
batalla y de ganarla. Por ende, las probabilidades de conseguir el título de Maestro
Pokemon cuando se use pokémones de última generación, son mayores que al usar
pokémones de primera generación.
Bibliografía
Cruz, M. F. (15 de 07 de 2016). LA NACIÓN. Obtenido de
https://www.lanacion.com.ar/espectaculos/television/pokemon-la-historia-detras-
del-fenomeno-nid1918059/#:~:text=La%20historia%20de%20Pok%C3%A9mon
%20(abreviatura,interactuar%20en%20un%20mundo%20compartido.
LA NACION. (27 de 08 de 2014). LA NACION. Obtenido de
https://www.nacion.com/blogs/jugador-1/pokemon-mas-que-un-videojuego-un-
fenomeno-cultural/6CJ5NC5TL5CMVGWGHZ2A5CMH5A/story/
Nintenders. (14 de 10 de 2022). Nintenders. Obtenido de
https://www.nintenderos.com/2022/10/pokemon-en-2022-cuantas-especies-
diferentes-existen/#:~:text=N%C3%BAmero%20de%20tipos%20en
%202022&text=La%20serie%20Pok%C3%A9monen%202022%20ya,Agua
