#Pregunta 1:

“La estadistica es una ciencia que demuestra que, si mi vecino tiene dos coches y yo ninguno, los dos tenemos uno.”

George Bernand Shaw

#Pregunta2:

# Definición de variables para la biografía
nombre <- "Catherine Antonia Ramirez Gutierrez"
fecha_nacimiento <- "05 de diciembre"
lugar_nacimiento <- "Lima, Peru"
profesion <- "Estadistica informatica"
resumen <- "Soy alumna de traslado, ingrese por la carrera de Economia, sin embargo la carrera de Estadistica informatica me llamo mas la atencion por lo cual realice mi traslado el semestre pasado el 23-II. Uno de mis objetivos que quiero lograr es ser el orgullo de mis padres y poder darles todo lo que ellos se merecen asi como ellos me lo dieron a mi, ese seria mi princial objetivo en esta vida.

Tengo mucho interes en los animales me gusta un monton y me gustaria poder estudiar una sengunda carrera para Educacion inicial."

# Crear una lista con la información
biografia <- list(
  Nombre = nombre,
  "Fecha de Nacimiento" = fecha_nacimiento,
  "Lugar de Nacimiento" = lugar_nacimiento,
  Profesión = profesion,
  Resumen = resumen
)

biografia
## $Nombre
## [1] "Catherine Antonia Ramirez Gutierrez"
## 
## $`Fecha de Nacimiento`
## [1] "05 de diciembre"
## 
## $`Lugar de Nacimiento`
## [1] "Lima, Peru"
## 
## $Profesión
## [1] "Estadistica informatica"
## 
## $Resumen
## [1] "Soy alumna de traslado, ingrese por la carrera de Economia, sin embargo la carrera de Estadistica informatica me llamo mas la atencion por lo cual realice mi traslado el semestre pasado el 23-II. Uno de mis objetivos que quiero lograr es ser el orgullo de mis padres y poder darles todo lo que ellos se merecen asi como ellos me lo dieron a mi, ese seria mi princial objetivo en esta vida.\n\nTengo mucho interes en los animales me gusta un monton y me gustaria poder estudiar una sengunda carrera para Educacion inicial."

#Pregunta3:

Mi colegio
Mi colegio

La ciudad que me gustaria viajar es al pueblo de mi padre:

library(vembedr)
## Warning: package 'vembedr' was built under R version 4.2.3
embed_url("https://www.youtube.com/watch?v=qNSthBUhtWs") %>% use_align("center") %>% use_start_time("32s")

#Pregunta4:

library(pacman)
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"),
  N = c(250, 38, 19, 1)
)

El codigo que se presenta es para la creacion del grafico de barras.

# Crear el gráfico de barras
p <- ggplot(datos, aes(x = Situacion, y = N, fill = Situacion)) +
  geom_bar(stat = "identity") +
  labs(title = "Evolución de categorías",
       x = "Situación",
       y = "Cantidad") +
  theme_minimal() +
  theme(legend.position = "none")

# Crear la animación
animacion <- p + transition_states(Situacion, transition_length = 2, state_length = 1) +
  enter_fade() + exit_fade()

# Mostrar la animación en el visor de RPubs
animate(animacion)

#Pregunta5:
El total de alumnos matriculados de la carrera de Estadistica Informatica en el semestre 2023-I ha sido de:

total_alumnos <- sum(datos$N)
total_alumnos
## [1] 308