Practica 3

0.1 ACTIVIDADES

0.1.1 Actividad 1: Presentar una cita o frase de un estadístico de su preferencia (diferente a los mencionados en clase). Indique la referencia de dicha cita

“Las estadísticas son el triunfo del método cuantitativo, y el método cuantitativo es la victoria de la esterilidad y de la muerte”

Hilarie Belloc[^1]

Frase de Hilarie Frases del estadístico Hilarie Belloc

0.1.2 Actividad 2: Escribe una biografía de ti mismo (1-2 párrafos). Incluye información sobre tus estudios, intereses y objetivos profesionales en formato lista

0.1.2.1 Biografía:

Soy Ashley Tarazona Gutierrez, tengo 19 años. Amo la música y los animales, son cosas que me hacen muy feliz; al igual que pasar tiempo con mi familia y amigos, considero que el tiempo de calidad es lo mejor. Actualmente yo:
1. Soy estudiante de la carrera de Estadística e Informática , cursando el 2do ciclo
2. Me interesan las ramas de la ciencia de datos, sin embargo aún no tengo en claro a qué quiero dedicar mis años de trabajo
3. Mi objetivo profesional es encontrar el área de trabajo donde sea buena en lo que hago, pero también me haga feliz y me dé una vida muy cómoda

0.1.3 Actividad 3: Incluir una imagen de tu colegio, una dirección web de tu colegio o ciudad de tus padres, un tema formato *css, un emoji y un video relacionado a la ciudad o lugar en Perú que más te agrade visitar (paquete vembedr)

Imagen de mi colegio:

Dirección web de mi colegio:

Colegio Innova Schools Página de la sede de Puruchuco
Tema en formato css: en YAML
Emoji: 😔
Video de macchu picchu:

library(vembedr)

## Warning: package 'vembedr' was built under R version 4.3.3

embed_url("https://www.youtube.com/watch?v=cClWxcBxDg8&t=101s&ab_channel=NationalGeographicEspa%C3%B1a") %>% use_align("center")

0.1.4 Actividad 4: Gráfico de barras animado en % con los datos anteriores

# Cargando paquetes
library(pacman)

## Warning: package 'pacman' was built under R version 4.3.3

p_load(dplyr, ggplot2, datos, kableExtra, knitr, 
       flextable, foreign, gganimate)
options(scipen = 999)
options(digits = 3)
datos <- data.frame(
  Situacion = c("Normal", "Riesgo académico", "Peligro académico", "Separado"),
  cantidad = c(250, 38, 19, 1))
attr(datos, "variable.labels") <- NULL
attach(datos)
ggplot(datos) + aes(x = Situacion , y = cantidad , fill = Situacion)  +
       geom_col(color = "black") +
       transition_states(Situacion)   +
       enter_fade() +
       exit_fade()

0.1.5 Actividad 5: Presente el siguiente párrafo:

datos %>% filter(Situacion %in% c("Normal","Riesgo Académico","Peligro Académico")) %>% summarise(n=n())

##   n
## 1 1