library(pacman)
p_load(vembedr,ggplot2,dplyr,gganimate)

1 Actividad 1

“Básicamente, todos los modelos son erróneos, pero algunos son muy útiles”

George E. P. Box 1

2 Actividad 2

Biografía

Soy Brayan Augusto Flores Villa, nací el 2 de diciembre. Culminé mis estudios del colegio en el año 2022 en la I. E. Fernando Carbajal Segura 6039. Algunos de mis interes son:

  • Aprender sobre programación en phyton.
  • Empezar a hacer algún deporte.
  • Obtener estabilidad económica.

Mis objetivos profesionales son:

  • Graduarme en 5 años de la carrera.
  • Obtener un trabajo estable.
  • Trabajar en un puesto de trabajo referente a un banco o financiera.

3 Actividad 3

3.1 Imagen de mi colegio

3.2 Dirección web

Facebook de la I. E. Fernando Carbajal Segura 6039.

3.3 Insertando emoji

📊

3.4 Insertando video

embed_url("https://www.youtube.com/watch?v=t76vI1wgrEw&pp=ygUGeXVuZ2F5") %>% use_align("center")

4 Actividad 4

SITUACIÓN ACADÉMICA DE LOS ESTUDIANTES

Situación = c("Normal","Riesgo académico","Peligro acedémico","Separado")
Frecuencia = c(250,35,19,1)
datos = data.frame(Situación,Frecuencia)
datos = datos %>% mutate(porcentaje = Frecuencia/sum(Frecuencia)*100)
attach(datos)
grafico = ggplot(datos) + aes(x = Situación, y = Frecuencia, fill = Situación) + geom_col(show.legend = F) + geom_text(label = round(porcentaje,2)) + 
   transition_states(Situación) +
  enter_fade() +
  exit_fade()
animate(grafico)

5 Actividad 5

“El total de alumnos matriculados de la carrera de Estadistica Informática en el semestre 2023-1 ha sido de 305.”

6 Pie de documento

  1. Referencia de la cita↩︎